Sudoku: Difference between revisions

=={{header|Ursala}}==

<lang Ursala>

#import std

#import nat

sudoku =

@FL mat0+ block3+ mat` *+ block3*+ block9+ -+

~&rSL+ (psort (nleq+)* <~&blrl,~&blrr>)+ ~&arg^& -+

~&al?\~&ar ~&aa^&~&afahPRPfafatPJPRY+ ~&farlthlriNCSPDPDrlCS2DlrTS2J,

^|J/~& ~&rt!=+ ^= ~&s+ ~&H(

-+.|=&lrr;,|=&lrl;,|=&ll;+-,

~&rgg&& ~&irtPFXlrjrXPS; ~&lrK2tkZ2g&& ~&llrSL2rDrlPrrPljXSPTSL)+-,

//~&p ^|DlrDSLlrlPXrrPDSL(~&,num*+ rep2 block3)*= num block27 ~&iiK0 iota9,

* `0?=\~&iNC ! ~&t digits+-

</lang>

test program:

<lang Ursala>

#show+

example =

sudoku

-[

394002670

000300400

500690020

045000900

600000007

007000580

010067008

009008000

026400735]-

</lang>

output:

<pre>

394 852 671

268 371 459

571 694 823

145 783 962

682 945 317

937 126 584

413 567 298

759 238 146

826 419 735

</pre>