diff options
| author | Mark Anderson <mark@andemark.io> | 2024-08-05 03:59:16 +0000 |
|---|---|---|
| committer | Mark Anderson <mark@andemark.io> | 2024-08-05 03:59:16 +0000 |
| commit | 6bf48165262c3d99d722b8131c2b6922f1c151a1 (patch) | |
| tree | 8e12de4e13b333d63409c1b256ba52f210e082be | |
| parent | aa85899a858075bfd9275244a84cdce81a794b38 (diff) | |
| download | perlweeklychallenge-club-6bf48165262c3d99d722b8131c2b6922f1c151a1.tar.gz perlweeklychallenge-club-6bf48165262c3d99d722b8131c2b6922f1c151a1.tar.bz2 perlweeklychallenge-club-6bf48165262c3d99d722b8131c2b6922f1c151a1.zip | |
Challenge 281 Solutions (Raku)
| -rw-r--r-- | challenge-281/mark-anderson/raku/ch-1.raku | 6 | ||||
| -rw-r--r-- | challenge-281/mark-anderson/raku/ch-2.raku | 1 |
2 files changed, 3 insertions, 4 deletions
diff --git a/challenge-281/mark-anderson/raku/ch-1.raku b/challenge-281/mark-anderson/raku/ch-1.raku index a5cc293e19..3e9f6f4a73 100644 --- a/challenge-281/mark-anderson/raku/ch-1.raku +++ b/challenge-281/mark-anderson/raku/ch-1.raku @@ -1,9 +1,9 @@ #!/usr/bin/env raku use Test; -ok check-color("d3"); -nok check-color("g5"); -ok check-color("e6"); +ok check-color('d3'); +nok check-color('g5'); +ok check-color('e6'); sub check-color($arg) { diff --git a/challenge-281/mark-anderson/raku/ch-2.raku b/challenge-281/mark-anderson/raku/ch-2.raku index 06ad295d0f..7f5b252d48 100644 --- a/challenge-281/mark-anderson/raku/ch-2.raku +++ b/challenge-281/mark-anderson/raku/ch-2.raku @@ -23,7 +23,6 @@ sub knights-move($begin is copy, $end is copy) while @queue { my %t = shift @queue; - return %t<dis> if all(%t<x> == $end[0], %t<y> == $end[1]); for ^8 |