diff options
| author | Mark Anderson <mark@andemark.io> | 2024-08-05 04:03:31 +0000 |
|---|---|---|
| committer | Mark Anderson <mark@andemark.io> | 2024-08-05 04:03:31 +0000 |
| commit | d3189423de85bea0dd6d13bf9827a70017450ffb (patch) | |
| tree | c6bb51e97b20b93cdbd906d7c6329ae460cd72f8 | |
| parent | 6bf48165262c3d99d722b8131c2b6922f1c151a1 (diff) | |
| download | perlweeklychallenge-club-d3189423de85bea0dd6d13bf9827a70017450ffb.tar.gz perlweeklychallenge-club-d3189423de85bea0dd6d13bf9827a70017450ffb.tar.bz2 perlweeklychallenge-club-d3189423de85bea0dd6d13bf9827a70017450ffb.zip | |
Challenge 281 Solutions (Raku)
| -rw-r--r-- | challenge-281/mark-anderson/raku/ch-1.raku | 4 | ||||
| -rw-r--r-- | challenge-281/mark-anderson/raku/ch-2.raku | 8 |
2 files changed, 6 insertions, 6 deletions
diff --git a/challenge-281/mark-anderson/raku/ch-1.raku b/challenge-281/mark-anderson/raku/ch-1.raku index 3e9f6f4a73..cc2e15df8e 100644 --- a/challenge-281/mark-anderson/raku/ch-1.raku +++ b/challenge-281/mark-anderson/raku/ch-1.raku @@ -5,9 +5,9 @@ ok check-color('d3'); nok check-color('g5'); ok check-color('e6'); -sub check-color($arg) +sub check-color($coordinates) { - if $arg ~~ /(<.alpha>)(<.digit>)/ -> ($col, $row) + if $coordinates ~~ /(<.alpha>)(<.digit>)/ -> ($col, $row) { one($col.ord, $row) %% 2 # XOR } diff --git a/challenge-281/mark-anderson/raku/ch-2.raku b/challenge-281/mark-anderson/raku/ch-2.raku index 7f5b252d48..eb7b56ec8f 100644 --- a/challenge-281/mark-anderson/raku/ch-2.raku +++ b/challenge-281/mark-anderson/raku/ch-2.raku @@ -6,9 +6,9 @@ use Test; is knights-move('g2', 'a8'), 4; is knights-move('g2', 'h2'), 3; -sub knights-move($begin is copy, $end is copy) +sub knights-move($start is copy, $end is copy) { - $begin .= &coordinates; + $start .= &coordinates; $end .= &coordinates; my $dx := -2, -1, 1, 2, -2, -1, 1, 2; @@ -17,8 +17,8 @@ sub knights-move($begin is copy, $end is copy) my @queue; my @visit; - @queue.push: { :x($begin[0]), :y($begin[1]), :dis(0) } - @visit[$begin[0];$begin[1]] = True; + @queue.push: { :x($start[0]), :y($start[1]), :dis(0) } + @visit[$start[0];$start[1]] = True; while @queue { |