diff options
| -rw-r--r-- | challenge-086/mark-anderson/raku/ch-2.p6 | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/challenge-086/mark-anderson/raku/ch-2.p6 b/challenge-086/mark-anderson/raku/ch-2.p6 index 276a2512bc..9672e8d61d 100644 --- a/challenge-086/mark-anderson/raku/ch-2.p6 +++ b/challenge-086/mark-anderson/raku/ch-2.p6 @@ -2,17 +2,17 @@ # using the algorithm from https://www.geeksforgeeks.org/sudoku-backtracking-7/ # -my @sudoku := < _ _ _ 2 6 _ 7 _ 1 >, - < 6 8 _ _ 7 _ _ 9 _ >, - < 1 9 _ _ _ 4 5 _ _ >, - < 8 2 _ 1 _ _ _ 4 _ >, - < _ _ 4 6 _ 2 9 _ _ >, - < _ 5 _ _ _ 3 _ 2 8 >, - < _ _ 9 3 _ _ _ 7 4 >, - < _ 4 _ _ 5 _ _ 3 6 >, - < 7 _ 3 _ 1 8 _ _ _ >; - -my @grid = @sudoku.map(*.Array); +my @grid = < _ _ _ 2 6 _ 7 _ 1 >, + < 6 8 _ _ 7 _ _ 9 _ >, + < 1 9 _ _ _ 4 5 _ _ >, + < 8 2 _ 1 _ _ _ 4 _ >, + < _ _ 4 6 _ 2 9 _ _ >, + < _ 5 _ _ _ 3 _ 2 8 >, + < _ _ 9 3 _ _ _ 7 4 >, + < _ 4 _ _ 5 _ _ 3 6 >, + < 7 _ 3 _ 1 8 _ _ _ >; + +@grid = @grid.map(*.Array); $_.map({ $_ = +$_ if $_ ~~ UInt }) for @grid; if solve(@grid, 0, 0) { |