diff options
| author | Kjetil Skotheim <kjetil.skotheim@sikt.no> | 2023-03-08 23:28:28 +0100 |
|---|---|---|
| committer | Kjetil Skotheim <kjetil.skotheim@sikt.no> | 2023-03-08 23:28:28 +0100 |
| commit | 9340cd609fec461463dcf7927eccc4b7bc91c26f (patch) | |
| tree | 59c55c2f7a153e6d309c278bb6d27a677c3d998a | |
| parent | e828c62a6d5dcb1b26dca191ba08750cb906e602 (diff) | |
| download | perlweeklychallenge-club-9340cd609fec461463dcf7927eccc4b7bc91c26f.tar.gz perlweeklychallenge-club-9340cd609fec461463dcf7927eccc4b7bc91c26f.tar.bz2 perlweeklychallenge-club-9340cd609fec461463dcf7927eccc4b7bc91c26f.zip | |
https://theweeklychallenge.org/blog/perl-weekly-challenge-207/
| -rw-r--r-- | challenge-207/kjetillll/perl/ch-2.pl | 2 | ||||
| -rw-r--r-- | challenge-207/kjetillll/scala/ch-1.sh | 8 | ||||
| -rw-r--r-- | challenge-207/kjetillll/scala/ch-2.sh | 23 |
3 files changed, 33 insertions, 0 deletions
diff --git a/challenge-207/kjetillll/perl/ch-2.pl b/challenge-207/kjetillll/perl/ch-2.pl index dfd40082a4..340441ace0 100644 --- a/challenge-207/kjetillll/perl/ch-2.pl +++ b/challenge-207/kjetillll/perl/ch-2.pl @@ -11,6 +11,7 @@ my @test = ( [10,8,5,5,5], #5 [25,1,1,1], #1 [25], #1 + [ ], #0 ); for ( @ARGV ? ([@ARGV]) : @test ) { @@ -27,3 +28,4 @@ Input: 25 8 5 3 3 H-Index: 3 Input: 10 8 5 5 5 H-Index: 5 Input: 25 1 1 1 H-Index: 1 Input: 25 H-Index: 1 +Input: H-Index: 0 diff --git a/challenge-207/kjetillll/scala/ch-1.sh b/challenge-207/kjetillll/scala/ch-1.sh new file mode 100644 index 0000000000..cb7119989d --- /dev/null +++ b/challenge-207/kjetillll/scala/ch-1.sh @@ -0,0 +1,8 @@ +#!/usr/bin/env scala +println( "Input: " + args.toList ) // input from command line arguments +println( "Output: " + args.toList.filter( "(?i)([qwertyuiop]+|[asdfghjkl]+|[zxcvbnm]+)".r matches _ ) ) + +// chmod +x ch-1.sh +// ./ch-1.sh Hello Alaska Dad Peace +// Input: List(Hello, Alaska, Dad, Peace) +// Output: List(Alaska, Dad) diff --git a/challenge-207/kjetillll/scala/ch-2.sh b/challenge-207/kjetillll/scala/ch-2.sh new file mode 100644 index 0000000000..3c5247652a --- /dev/null +++ b/challenge-207/kjetillll/scala/ch-2.sh @@ -0,0 +1,23 @@ +#!/usr/bin/env scala + +def H_index ( cit: List[Int], is_sorted: Boolean = false ): Int = { + if ( cit.isEmpty ) 0 + else if ( !is_sorted ) H_index( cit.sorted, true ) + else if ( cit.length > cit.head ) H_index( cit.tail, true) + else cit.length +} +println( H_index( List(10,8,5,4,3) ) ) // 4 +println( H_index( List(25,8,5,3,3) ) ) // 3 +println( H_index( List(10,8,5,5,5) ) ) // 5 +println( H_index( List(25,1,1,1) ) ) // 1 +println( H_index( List(25) ) ) // 1 +println( H_index( List() ) ) // 0 + +// chmod +x ch-2.sh +// ./ch-2.sh +// 4 +// 3 +// 5 +// 1 +// 1 +// 0 |