From b3fbd6d32a8ee6b087ec4dd8cb838c73883611db Mon Sep 17 00:00:00 2001 From: carlos157oliveira Date: Sun, 8 Jan 2023 11:30:07 -0300 Subject: feat: solution to challenge 198 --- challenge-198/carlos-oliveira/raku/ch-1.raku | 16 ++++++++++++++++ challenge-198/carlos-oliveira/raku/ch-2.raku | 9 +++++++++ 2 files changed, 25 insertions(+) create mode 100644 challenge-198/carlos-oliveira/raku/ch-1.raku create mode 100644 challenge-198/carlos-oliveira/raku/ch-2.raku 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; -- cgit