feat: solution to challenge 198

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;