Merge pull request #3895 from wambash/challenge-week-108

solutions week 108

2 files changed, 43 insertions, 0 deletions

diff --git a/challenge-108/wambash/raku/ch-1.raku b/challenge-108/wambash/raku/ch-1.raku
new file mode 100644
index 0000000000..efa5c5f075
--- /dev/null
+++ b/challenge-108/wambash/raku/ch-1.raku
@@ -0,0 +1,26 @@
+#!/usr/bin/env raku
+
+sub locate-memory ( \a ) {
+    a.WHERE
+}
+
+
+multi MAIN (Bool :$test!) {
+   use Test;
+
+   my $a =  2;
+   my $c = $a;
+   my $b = 3;
+   is locate-memory($a), $c.WHERE;
+   is locate-memory($a), locate-memory($c);
+   is locate-memory($b), locate-memory(3);
+
+   my @d := (1,2);
+   my @e := @d;
+   my @f = @d;
+   is locate-memory(@d), locate-memory(@e);
+   isnt locate-memory(@d), locate-memory((1,2));
+   isnt locate-memory(@d), locate-memory(@f);
+
+   done-testing;;
+}
diff --git a/challenge-108/wambash/raku/ch-2.raku b/challenge-108/wambash/raku/ch-2.raku
new file mode 100644
index 0000000000..a04d12c421
--- /dev/null
+++ b/challenge-108/wambash/raku/ch-2.raku
@@ -0,0 +1,17 @@
+#!/usr/bin/env raku
+
+constant @Bell-triangle = [1], { [ [\+] .tail, |$_ ] } ... *;
+constant @Bell-numbers  = @Bell-triangle.map: *.head;
+
+multi MAIN ( $n = 10 ) {
+    .say for @Bell-numbers.head($n)
+}
+
+multi MAIN (Bool :$test!) {
+    use Test;
+
+    is @Bell-triangle[5], <52    67    87   114   151   203>;
+    is @Bell-numbers.head(10), (1, 1, 2, 5, 15, 52, 203, 877, 4140, 21147);
+
+    done-testing;
+}