diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2023-03-08 22:40:48 +0000 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2023-03-08 22:40:48 +0000 |
| commit | bc577f09f07be6abd72291c3e9a6642e4336d9c9 (patch) | |
| tree | 0c8d42eff87cdec66e3ae8739ddec4c49fabd1be | |
| parent | bbd3eedb1d1a2179450a2af48054b874c6719cbe (diff) | |
| parent | e7eb005fd38e2bf18592f9c2bbee45476ff3032d (diff) | |
| download | perlweeklychallenge-club-bc577f09f07be6abd72291c3e9a6642e4336d9c9.tar.gz perlweeklychallenge-club-bc577f09f07be6abd72291c3e9a6642e4336d9c9.tar.bz2 perlweeklychallenge-club-bc577f09f07be6abd72291c3e9a6642e4336d9c9.zip | |
Merge pull request #7696 from kjetillll/challenge-207-kjetillll
Challenge 207 kjetillll
| -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 | 25 |
3 files changed, 35 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..0757a7c171 --- /dev/null +++ b/challenge-207/kjetillll/scala/ch-2.sh @@ -0,0 +1,25 @@ +#!/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(3,4,5,8,10) ) ) // 4 +println( H_index( List(3,3,5,8,25) ) ) // 3 +println( H_index( List(8,5,25,3,3,2,1,1,1,1) ) ) // 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 +// 3 +// 5 +// 1 +// 1 +// 0 |