From ee710ba5b3254be3fe8913e3bca38df4d6188200 Mon Sep 17 00:00:00 2001 From: sangeet Date: Thu, 28 May 2020 22:36:20 +0000 Subject: raku beam search minor fix --- challenge-062/sangeet-kar/raku/ch-2a.raku | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/challenge-062/sangeet-kar/raku/ch-2a.raku b/challenge-062/sangeet-kar/raku/ch-2a.raku index a2fcf9e241..a1a9e78560 100755 --- a/challenge-062/sangeet-kar/raku/ch-2a.raku +++ b/challenge-062/sangeet-kar/raku/ch-2a.raku @@ -22,9 +22,8 @@ sub place-queen(@indices, @queens, @solutions, $beam-width=2) { } my @best = (for @indices -> $pos {($pos, @indices.grep({is-available($pos, $_)}))}); if $beam-width ≠ -1 { - @best = find-best($beam-width, @best, {+@_.[1]}); + @best = find-best($beam-width, @best, {+$^b[1] cmp +$^a[1]}); } - for @best -> ($pos, @available) { place-queen(@available, (|@queens, $pos), @solutions, $beam-width); } -- cgit