diff options
| author | Mark Anderson <mark@frontrangerunner.com> | 2020-11-10 09:00:57 -0700 |
|---|---|---|
| committer | Mark Anderson <mark@frontrangerunner.com> | 2020-11-10 09:00:57 -0700 |
| commit | 6a0beb6ca7532a5583ba1543d0b5e74291891750 (patch) | |
| tree | 371027f0b9f516345192bcfc91fcea6b6b75427d /challenge-086/mark-anderson | |
| parent | 9cd19e0e2c7aa92e65d7b74bd5c18dc50f7cc66e (diff) | |
| download | perlweeklychallenge-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.p6 | 8 |
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] = "_"; |
