From 660e815a91d4d24fb575eae1d0d0b9cf078295d6 Mon Sep 17 00:00:00 2001
From: Jan Krňávek <Jan.Krnavek@gmail.com>
Date: Sun, 17 Nov 2024 12:44:59 +0100
Subject: solutions week 295

---
 challenge-295/wambash/raku/ch-1.raku | 18 ++++++++++++++++++
 challenge-295/wambash/raku/ch-2.raku | 31 +++++++++++++++++++++++++++++++
 2 files changed, 49 insertions(+)
 create mode 100644 challenge-295/wambash/raku/ch-1.raku
 create mode 100644 challenge-295/wambash/raku/ch-2.raku

diff --git a/challenge-295/wambash/raku/ch-1.raku b/challenge-295/wambash/raku/ch-1.raku
new file mode 100644
index 0000000000..c306fd91f7
--- /dev/null
+++ b/challenge-295/wambash/raku/ch-1.raku
@@ -0,0 +1,18 @@
+#!/usr/bin/env raku
+
+sub word-break ($str, +@words) {
+    $str.contains: /^ @words+ $/
+}
+
+multi MAIN (Bool :test($)!) {
+    use Test;
+    is word-break('weeklychallenge', 'challenge','weekly'), True;
+    is word-break('perlrakuperl', 'perl','raku'), True;
+    is word-break('sonsanddaughters', 'sons', 'sand', 'daughters'), False;
+    is word-break('sonssanddaughters', 'sons', 'sand', 'daughters'), True;
+    done-testing;
+}
+
+multi MAIN ($str, +words) {
+    say word-break $str, words
+}
diff --git a/challenge-295/wambash/raku/ch-2.raku b/challenge-295/wambash/raku/ch-2.raku
new file mode 100644
index 0000000000..b03b37a905
--- /dev/null
+++ b/challenge-295/wambash/raku/ch-2.raku
@@ -0,0 +1,31 @@
+#!/usr/bin/env raku
+
+sub jump ($from, +@ints) {
+    $from «+« ( 1..@ints[$from] )
+    andthen .Slip
+}
+
+sub jump-game (+@ints) {
+    (0,), { .unique.map: { jump $_, @ints } } ... -> @where {  @ints.end ∈ @where }\
+    andthen .skip
+    andthen .head: @ints.elems
+    andthen .elems
+    andthen $_ ≤ @ints.end ?? $_ !! -1
+}
+
+multi MAIN (Bool :test($)!) {
+    use Test;
+    is jump( 2, (2,3,1,1,4) ), 3;
+    is jump( 0, (2,3,1,1,4) ), (1,2);
+    is jump( 1, (2,3,1,1,4) ), (2,3,4);
+    is jump-game(2,3,1,1,4),2;
+    is jump-game(2,3,0,4),2;
+    is jump-game(2,0,0,4),-1;
+    is jump-game(1,1,1,1,1,1,0),6;
+    is jump-game(0,0),-1;
+    done-testing;
+}
+
+multi MAIN (+@ints) {
+    say jump-game @ints
+}
-- 
cgit 


From 677731527faf177fb5d4122a35fb2fc44508b6b3 Mon Sep 17 00:00:00 2001
From: Jan Krňávek <Jan.Krnavek@gmail.com>
Date: Sun, 17 Nov 2024 12:55:05 +0100
Subject: revision jump-game

---
 challenge-295/wambash/raku/ch-2.raku | 13 +++++--------
 1 file changed, 5 insertions(+), 8 deletions(-)

diff --git a/challenge-295/wambash/raku/ch-2.raku b/challenge-295/wambash/raku/ch-2.raku
index b03b37a905..daa0978913 100644
--- a/challenge-295/wambash/raku/ch-2.raku
+++ b/challenge-295/wambash/raku/ch-2.raku
@@ -2,15 +2,12 @@
 
 sub jump ($from, +@ints) {
     $from «+« ( 1..@ints[$from] )
-    andthen .Slip
 }
 
 sub jump-game (+@ints) {
-    (0,), { .unique.map: { jump $_, @ints } } ... -> @where {  @ints.end ∈ @where }\
-    andthen .skip
+    (0,), { .unique.map: { |jump $_, @ints } } ... *
     andthen .head: @ints.elems
-    andthen .elems
-    andthen $_ ≤ @ints.end ?? $_ !! -1
+    andthen .first: -> @where {  @ints.end ∈ @where }, :k
 }
 
 multi MAIN (Bool :test($)!) {
@@ -20,12 +17,12 @@ multi MAIN (Bool :test($)!) {
     is jump( 1, (2,3,1,1,4) ), (2,3,4);
     is jump-game(2,3,1,1,4),2;
     is jump-game(2,3,0,4),2;
-    is jump-game(2,0,0,4),-1;
+    is jump-game(2,0,0,4),Nil;
     is jump-game(1,1,1,1,1,1,0),6;
-    is jump-game(0,0),-1;
+    is jump-game(0,0),Nil;
     done-testing;
 }
 
 multi MAIN (+@ints) {
-    say jump-game @ints
+    say jump-game( @ints ) // -1
 }
-- 
cgit