diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2023-01-08 16:58:05 +0000 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2023-01-08 16:58:05 +0000 |
| commit | 8820ec6c30077f6255a0268ee8f5b30f42198d79 (patch) | |
| tree | ac7451eaee89df436aef90bb46e4a5091422c47f | |
| parent | 3c380a5c89e835e80a9e4631709e444494a6473d (diff) | |
| parent | b3fbd6d32a8ee6b087ec4dd8cb838c73883611db (diff) | |
| download | perlweeklychallenge-club-8820ec6c30077f6255a0268ee8f5b30f42198d79.tar.gz perlweeklychallenge-club-8820ec6c30077f6255a0268ee8f5b30f42198d79.tar.bz2 perlweeklychallenge-club-8820ec6c30077f6255a0268ee8f5b30f42198d79.zip | |
Merge pull request #7374 from carlos157oliveira/challenge-198
feat: solution to challenge 198
| -rw-r--r-- | challenge-198/carlos-oliveira/raku/ch-1.raku | 16 | ||||
| -rw-r--r-- | challenge-198/carlos-oliveira/raku/ch-2.raku | 9 |
2 files changed, 25 insertions, 0 deletions
diff --git a/challenge-198/carlos-oliveira/raku/ch-1.raku b/challenge-198/carlos-oliveira/raku/ch-1.raku new file mode 100644 index 0000000000..d1294d7766 --- /dev/null +++ b/challenge-198/carlos-oliveira/raku/ch-1.raku @@ -0,0 +1,16 @@ +sub count_max_gaps (+@input) { + @input ==> sort() + ==> my @sorted; @sorted + ==> tail(*-1) + ==> zip(@sorted) + ==> map({ @_[1] - @_[0] }) + ==> my @differences; + + my $max_difference = reduce &max, @differences; + return @differences.grep({ $_ == $max_difference }).elems; +} + +say count_max_gaps (2, 5, 8, 1); +say count_max_gaps (3); +say count_max_gaps (3, 5); +say count_max_gaps (); diff --git a/challenge-198/carlos-oliveira/raku/ch-2.raku b/challenge-198/carlos-oliveira/raku/ch-2.raku new file mode 100644 index 0000000000..65f9a9415d --- /dev/null +++ b/challenge-198/carlos-oliveira/raku/ch-2.raku @@ -0,0 +1,9 @@ +sub prime_count (Int $n) { + return (2..$n).grep(&is-prime).elems; +} + +say prime_count 10; +say prime_count 15; +say prime_count 1; +say prime_count 25; +say prime_count 2; |