diff options
| author | Mark A <andemark@a-iot1t.uch.ad.pvt> | 2021-07-17 03:56:08 -0600 |
|---|---|---|
| committer | Mark A <andemark@a-iot1t.uch.ad.pvt> | 2021-07-17 03:56:08 -0600 |
| commit | 3dd3e509c4969c81dce04e53c867dcf0ce9408e6 (patch) | |
| tree | c3da7d1b17ec4787966c2a5265259128a478ece6 /challenge-121 | |
| parent | c7bc515a68bfad1f7c63713449caa0d7ceffa866 (diff) | |
| download | perlweeklychallenge-club-3dd3e509c4969c81dce04e53c867dcf0ce9408e6.tar.gz perlweeklychallenge-club-3dd3e509c4969c81dce04e53c867dcf0ce9408e6.tar.bz2 perlweeklychallenge-club-3dd3e509c4969c81dce04e53c867dcf0ce9408e6.zip | |
ch-2.raku tidied
Diffstat (limited to 'challenge-121')
| -rw-r--r-- | challenge-121/mark-anderson/raku/ch-2.raku | 4 |
1 files 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); } |