aboutsummaryrefslogtreecommitdiff
path: root/challenge-086/mark-anderson
diff options
context:
space:
mode:
authorMark Anderson <mark@frontrangerunner.com>2020-11-10 09:00:57 -0700
committerMark Anderson <mark@frontrangerunner.com>2020-11-10 09:00:57 -0700
commit6a0beb6ca7532a5583ba1543d0b5e74291891750 (patch)
tree371027f0b9f516345192bcfc91fcea6b6b75427d /challenge-086/mark-anderson
parent9cd19e0e2c7aa92e65d7b74bd5c18dc50f7cc66e (diff)
downloadperlweeklychallenge-club-6a0beb6ca7532a5583ba1543d0b5e74291891750.tar.gz
perlweeklychallenge-club-6a0beb6ca7532a5583ba1543d0b5e74291891750.tar.bz2
perlweeklychallenge-club-6a0beb6ca7532a5583ba1543d0b5e74291891750.zip
ch-2.p6
Diffstat (limited to 'challenge-086/mark-anderson')
-rw-r--r--challenge-086/mark-anderson/raku/ch-2.p68
1 files changed, 2 insertions, 6 deletions
diff --git a/challenge-086/mark-anderson/raku/ch-2.p6 b/challenge-086/mark-anderson/raku/ch-2.p6
index fe6ab3e01e..224e65bacb 100644
--- a/challenge-086/mark-anderson/raku/ch-2.p6
+++ b/challenge-086/mark-anderson/raku/ch-2.p6
@@ -20,9 +20,7 @@ if solve(@grid, 0, 0) {
}
sub solve(@grid, $row is copy, $col is copy) {
- if $row == 8 and $col == 9 {
- return True;
- }
+ return True if $row == 8 and $col == 9;
if $col == 9 {
$row++;
@@ -37,9 +35,7 @@ sub solve(@grid, $row is copy, $col is copy) {
if is-safe(@grid, $row, $col, $num) {
@grid[$row][$col] = $num;
- if solve(@grid, $row, $col+1) {
- return True;
- }
+ return True if solve(@grid, $row, $col+1);
}
@grid[$row][$col] = "_";