Merge pull request #11460 from wambash/challenge-week-304

solution week 304-1

1 files changed, 24 insertions, 0 deletions

diff --git a/challenge-304/wambash/raku/ch-1.raku b/challenge-304/wambash/raku/ch-1.raku
new file mode 100644
index 0000000000..5972c3915f
--- /dev/null
+++ b/challenge-304/wambash/raku/ch-1.raku
@@ -0,0 +1,24 @@
+#!/usr/bin/env raku
+use v6.e.PREVIEW;
+
+sub arrange-binary (+digits,:$n) {
+    0,|digits,0
+    andthen .snip: |(0,1) xx *
+    andthen .skip: |(1,1) xx *                
+    andthen .map: { .end div 2 }\
+    andthen .sum ≥ $n
+}
+
+multi MAIN (Bool :test($)!) {
+    use Test;
+    is arrange-binary(1,0,0,0,1):1n, True;
+    is arrange-binary(1,0,0,0,1):2n, False;
+    is arrange-binary(1,0,0,0,0,1):2n, False;
+    is arrange-binary(0,0,1,0,0,1):2n, False;
+    is arrange-binary(0,0,1,0,0,):2n, True;
+    done-testing;
+}
+
+multi MAIN (+digits) {
+    say arrange-binary +digits
+}