diff options
| author | sangeet <sangeet.kar@gmail.com> | 2020-05-27 22:18:38 +0000 |
|---|---|---|
| committer | sangeet <sangeet.kar@gmail.com> | 2020-05-27 22:18:38 +0000 |
| commit | 7be5a3f822cf1f0bd971b2dada2b9d019919102c (patch) | |
| tree | 58bcce0e069de9f1779093453a0092c45dcb8a89 | |
| parent | f8c8aae1538fc68002e31a380f0243406b44bfc5 (diff) | |
| download | perlweeklychallenge-club-7be5a3f822cf1f0bd971b2dada2b9d019919102c.tar.gz perlweeklychallenge-club-7be5a3f822cf1f0bd971b2dada2b9d019919102c.tar.bz2 perlweeklychallenge-club-7be5a3f822cf1f0bd971b2dada2b9d019919102c.zip | |
minor fix in ch-2
| -rwxr-xr-x | challenge-062/sangeet-kar/raku/ch-2.raku | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/challenge-062/sangeet-kar/raku/ch-2.raku b/challenge-062/sangeet-kar/raku/ch-2.raku index 4a124254fb..3d973dab62 100755 --- a/challenge-062/sangeet-kar/raku/ch-2.raku +++ b/challenge-062/sangeet-kar/raku/ch-2.raku @@ -16,12 +16,11 @@ sub place-queen(@indices, @queens, @solutions) { sub is-available($ref, $pos) { - my ($refx, $refy, $refz) = $ref; - my ($x, $y, $z) = $pos; my $diff = ($ref »-« $pos)».abs.Set; not (+$diff == 1 || (+$diff == 2 && 0 ∈ $diff)) } + sub indices-to-array(@indices, $n) { my @array = [[[ 0 xx $n] xx $n] xx $n]; for @indices -> ($x, $y, $z) { @@ -30,6 +29,7 @@ sub indices-to-array(@indices, $n) { return @array; } + sub MAIN (Int :$n=2) { say n-queens-threeD $n; } |
