aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Another update from ingydotnet^djgoku

Browse source
This commit is contained in:
Ingy döt Net 2015-11-18 06:14:39 +00:00
parent 91df62d461
commit 948b86eafa
7604 changed files with 108452 additions and 22726 deletions
Download patch file Download diff file Expand all files Collapse all files

21
Task/Sudoku/Mathematica/sudoku-1.math
View file

@ -1,13 +1,10 @@
solve[array_] :=
solve[sudoku_] :=
NestWhile[
Join @@ Function[newarray,
Function[{i, j},
Table[ReplacePart[newarray,
Position[newarray, 0, {2}, 1][[1]] -> n], {n,
Select[Range@9,
FreeQ[newarray[[i]], #] && FreeQ[newarray[[All, j]], #] &&
FreeQ[Partition[
newarray, {3, 3}][[Sequence @@
Quotient[{i, j}, 3, -2]]], #] &]}]] @@
Position[newarray, 0, {2}, 1][[1]]] /@ # &, {array}, !
FreeQ[#, 0] &]
Join @@ Table[
Table[ReplacePart[s, #1 -> n], {n, #2}] & @@
First@SortBy[{#,
Complement[Range@9, s[[First@#]], s[[;; , Last@#]],
Catenate@
Extract[Partition[s, {3, 3}], Quotient[#, 3, -2]]]} & /@
Position[s, 0, {2}],
Length@Last@# &], {s, #}] &, {sudoku}, ! FreeQ[#, 0] &]