Merge pull request #9641 from wambash/challenge-week-257

solution 257-1

1 files changed, 27 insertions, 0 deletions

diff --git a/challenge-257/wambash/raku/ch-1.raku b/challenge-257/wambash/raku/ch-1.raku
new file mode 100644
index 0000000000..f3bd676a43
--- /dev/null
+++ b/challenge-257/wambash/raku/ch-1.raku
@@ -0,0 +1,27 @@
+#!/usr/bin/env raku
+
+sub smaller-than-current (+@ints) {
+    my %small := (
+    @ints
+    andthen .sort
+    andthen .squish
+    andthen .antipairs
+    andthen .Map
+    );
+
+    @ints.map: -> \i { %small{i} }
+}
+
+multi MAIN (Bool :test($)!) {
+    use Test;
+    is smaller-than-current(5,2,1,6),(2,1,0,3);
+    is smaller-than-current(1,2,0,3),(1,2,0,3);
+    is smaller-than-current(0,1),(0,1);
+    is smaller-than-current(9,4,9,2),(2,1,2,0);
+    done-testing;
+}
+
+
+multi MAIN (*@ints) {
+    put smaller-than-current @ints
+}