User Portlet
| Discussions |
|---|
| Single line Sudoku solver: https://rosettacode.org/wiki/Sudoku#Mathematica solve[sudoku_] := NestWhile[ Join @@ Table[ Table[ReplacePart[s, #1 -> n], {n, #2}] & @@ First@SortBy[{#, ... |
User Portlet | Discussions |
|---|
| Single line Sudoku solver: https://rosettacode.org/wiki/Sudoku#Mathematica solve[sudoku_] := NestWhile[ Join @@ Table[ Table[ReplacePart[s, #1 -> n], {n, #2}] & @@ First@SortBy[{#, ... |