From 3dd3e509c4969c81dce04e53c867dcf0ce9408e6 Mon Sep 17 00:00:00 2001 From: Mark A Date: Sat, 17 Jul 2021 03:56:08 -0600 Subject: ch-2.raku tidied --- challenge-121/mark-anderson/raku/ch-2.raku | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/challenge-121/mark-anderson/raku/ch-2.raku b/challenge-121/mark-anderson/raku/ch-2.raku index 6055cdee76..8aeff99fa7 100644 --- a/challenge-121/mark-anderson/raku/ch-2.raku +++ b/challenge-121/mark-anderson/raku/ch-2.raku @@ -53,7 +53,7 @@ class Node } } - @.matrix = ([Z] @.matrix)>>.Array; + @.matrix = ([Z] @.matrix)>>.Array; } } @@ -96,7 +96,7 @@ multi branch-and-bound(Node @nodes) $node.matrix = $n.matrix.duckmap(*.clone); $node.set-Infs; $node.Reduce; - $node.cost += sum $n.cost, $n.matrix[@p[*-2]-1;@p[*-1]-1]; + $node.cost += $n.cost + $n.matrix[@p[*-2]-1;@p[*-1]-1]; my $i = @nodes.first(*.cost >= $node.cost, :k); @nodes.splice($i, 0, $node); } -- cgit