aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorsangeet <sangeet.kar@gmail.com>2020-05-27 22:18:38 +0000
committersangeet <sangeet.kar@gmail.com>2020-05-27 22:18:38 +0000
commit7be5a3f822cf1f0bd971b2dada2b9d019919102c (patch)
tree58bcce0e069de9f1779093453a0092c45dcb8a89
parentf8c8aae1538fc68002e31a380f0243406b44bfc5 (diff)
downloadperlweeklychallenge-club-7be5a3f822cf1f0bd971b2dada2b9d019919102c.tar.gz
perlweeklychallenge-club-7be5a3f822cf1f0bd971b2dada2b9d019919102c.tar.bz2
perlweeklychallenge-club-7be5a3f822cf1f0bd971b2dada2b9d019919102c.zip
minor fix in ch-2
-rwxr-xr-xchallenge-062/sangeet-kar/raku/ch-2.raku4
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;
}