From 0da7c3e8edf48be6dd6cae0ad0287a03af60ffbf Mon Sep 17 00:00:00 2001
From: sangeet <sangeet.kar@gmail.com>
Date: Fri, 12 Jun 2020 17:56:20 +0000
Subject: raku Ch1

---
 challenge-064/sangeet-kar/raku/ch-1.raku | 53 ++++++++++++++++++++++++++++++++
 1 file changed, 53 insertions(+)
 create mode 100755 challenge-064/sangeet-kar/raku/ch-1.raku

diff --git a/challenge-064/sangeet-kar/raku/ch-1.raku b/challenge-064/sangeet-kar/raku/ch-1.raku
new file mode 100755
index 0000000000..b39bc4e468
--- /dev/null
+++ b/challenge-064/sangeet-kar/raku/ch-1.raku
@@ -0,0 +1,53 @@
+#!/usr/bin/env raku
+
+use Tuple;
+
+class Node {
+        has $.pos;
+        has $.path;
+        has $.cost;
+        has $.visited;
+}
+
+sub manhattan-dist ($pos, $goal) { ($goal »-« $pos).sum }
+
+sub next-states ($pos, $matrix) {
+        (((1, 0), (0, 1), (-1, 0), (0, -1)) »+» ($pos,*)).grep({(0 ≤ $_[0] < 0+$matrix) && (0 ≤ $_[1] < 0+$matrix[0])}).map({tuple($_)}); 
+}
+
+sub move($curr-node, $pos, $matrix) {
+        my $cost = $matrix[$pos[0]][$pos[1]];
+        Node.new(pos => $pos, path => (|$curr-node.path, $cost), cost => $cost + $curr-node.cost, visited => $curr-node.visited ∪ set($pos));
+}
+
+sub solve($matrix) {
+        my $init = tuple((0, 0));
+        my $goal = tuple(($matrix-1, $matrix[0]-1));
+
+        my $curr-cost = $matrix[$init[0]][$init[1]];
+        my @states = (Node.new(pos => $init, path => ($curr-cost,), cost => $curr-cost, visited => set($init)), );
+        
+        while @states {
+                my $best-node = @states.min({$_.cost + manhattan-dist $_.pos, $goal});
+                if $best-node.pos eqv $goal {
+                        say $best-node.cost, " : ", $best-node.path.join(" → ");
+                        last;
+                }
+                @states .= grep({not $_ eqv $best-node});
+                for next-states($best-node.pos, $matrix) -> $state {
+                       my $next-node = move($best-node, $state, $matrix);
+                       @states.push($next-node) if $next-node.pos ∉ $best-node.visited;
+               }
+        }
+}
+
+
+my $matrix = (1..9).rotor(3);
+solve($matrix);
+
+#A more complex matrix with negative cost
+$matrix = ((1,  2, 3),
+           (12, 2, 6),
+           (-3, 6, 20),
+           (2,  8, 9));
+solve($matrix);
-- 
cgit 


From 73fc954181caad569309a76e715bb5a7f2b92589 Mon Sep 17 00:00:00 2001
From: sangeet <sangeet.kar@gmail.com>
Date: Sat, 13 Jun 2020 07:21:35 +0000
Subject: raku solutions

---
 challenge-064/sangeet-kar/raku/ch-1.raku |  2 +-
 challenge-064/sangeet-kar/raku/ch-2.raku | 23 +++++++++++++++++++++++
 2 files changed, 24 insertions(+), 1 deletion(-)
 create mode 100755 challenge-064/sangeet-kar/raku/ch-2.raku

diff --git a/challenge-064/sangeet-kar/raku/ch-1.raku b/challenge-064/sangeet-kar/raku/ch-1.raku
index b39bc4e468..a1a4a9e63c 100755
--- a/challenge-064/sangeet-kar/raku/ch-1.raku
+++ b/challenge-064/sangeet-kar/raku/ch-1.raku
@@ -12,7 +12,7 @@ class Node {
 sub manhattan-dist ($pos, $goal) { ($goal »-« $pos).sum }
 
 sub next-states ($pos, $matrix) {
-        (((1, 0), (0, 1), (-1, 0), (0, -1)) »+» ($pos,*)).grep({(0 ≤ $_[0] < 0+$matrix) && (0 ≤ $_[1] < 0+$matrix[0])}).map({tuple($_)}); 
+        (((1, 0), (0, 1), (-1, 0), (0, -1)) »+» ($pos,)).grep({(0 ≤ $_[0] < 0+$matrix) && (0 ≤ $_[1] < 0+$matrix[0])}).map({tuple($_)})
 }
 
 sub move($curr-node, $pos, $matrix) {
diff --git a/challenge-064/sangeet-kar/raku/ch-2.raku b/challenge-064/sangeet-kar/raku/ch-2.raku
new file mode 100755
index 0000000000..ab0f03e78f
--- /dev/null
+++ b/challenge-064/sangeet-kar/raku/ch-2.raku
@@ -0,0 +1,23 @@
+#!/usr/bin/env raku
+
+sub word-break($string, $words) {
+        my @ans;
+        recursive-helper($string, $words, (), @ans);
+        return @ans;
+}
+
+sub recursive-helper($string, $words, $accum, @ans) {
+        unless $string {
+                @ans.push($accum);
+                return;
+        }
+        for $words.list {
+                recursive-helper($string.substr(.chars), $words, (|$accum, $_), @ans) if $string.starts-with($_);
+        }
+}
+
+say word-break("perlweeklychallenge", <weekly challenge perl>);
+say word-break("perlandraku", <python ruby haskell>);
+
+#multiple solutions
+say word-break("perlandraku", <perl perland raku and>);
-- 
cgit