Obfuscated Erlang Results

Urban Boquist <>
Tue Dec 6 00:14:56 CET 2005


>>>>> Marc van Woerkom writes:

>> The second prize was for an artistic Sudoku solver by Urban.

Marc> How am I supposed to call it?  I need a usage text for mere
Marc> mortals.

The simplest usage is just e:main([]).  ;-)

Below find "e-spoiler.txt" which was included when I submitted "e.erl".

Best regards,

        -- Urban

-------------------------------------------------------------------------------
45> 
45> test:pretty(test:easy()).
[[0,0,9,1,8,0,0,4,5],
 [5,0,0,0,9,6,1,0,0],
 [0,0,0,0,4,3,2,8,0],
 [0,3,8,0,0,0,0,0,6],
 [4,0,0,8,0,5,0,0,1],
 [2,0,0,0,0,0,8,9,0],
 [0,1,5,3,0,0,0,0,0],
 [0,0,2,6,1,0,0,0,4],
 [6,4,0,0,5,8,9,0,0]]
46> 
46> e:main(test:easy()).
[[3,2,9,1,8,7,6,4,5],
 [5,8,4,2,9,6,1,7,3],
 [7,6,1,5,4,3,2,8,9],
 [1,3,8,9,7,2,4,5,6],
 [4,9,7,8,6,5,3,2,1],
 [2,5,6,4,3,1,8,9,7],
 [9,1,5,3,2,4,7,6,8],
 [8,7,2,6,1,9,5,3,4],
 [6,4,3,7,5,8,9,1,2]]
47> 
-------------------------------------------------------------------------------
47> 
47> test:pretty(test:medium()).
[[0,0,0,0,0,0,6,0,7],
 [0,0,8,0,0,3,0,1,0],
 [0,0,0,5,0,0,0,9,0],
 [0,1,0,0,3,0,4,0,6],
 [0,6,9,4,0,7,1,3,0],
 [2,0,4,0,1,0,0,5,0],
 [0,9,0,0,0,4,0,0,0],
 [0,4,0,8,0,0,2,0,0],
 [6,0,3,0,0,0,0,0,0]]
48> 
48> e:main(test:medium()).
[[3,5,1,2,4,9,6,8,7],
 [9,2,8,7,6,3,5,1,4],
 [4,7,6,5,8,1,3,9,2],
 [8,1,7,9,3,5,4,2,6],
 [5,6,9,4,2,7,1,3,8],
 [2,3,4,6,1,8,7,5,9],
 [7,9,2,3,5,4,8,6,1],
 [1,4,5,8,9,6,2,7,3],
 [6,8,3,1,7,2,9,4,5]]
49> 
-------------------------------------------------------------------------------
49> 
49> test:pretty(test:veryhard()).
[[0,0,8,4,0,0,3,5,0],
 [0,0,0,0,0,1,0,8,0],
 [0,0,3,9,0,8,0,0,6],
 [2,0,0,0,9,0,7,0,0],
 [0,9,0,0,6,0,0,1,0],
 [0,0,5,0,1,0,0,0,3],
 [6,0,0,1,0,2,4,0,0],
 [0,4,0,6,0,0,0,0,0],
 [0,8,9,0,0,5,6,0,0]]
50> 
50> e:main(test:veryhard()).
[[7,1,8,4,2,6,3,5,9],
 [9,5,6,7,3,1,2,8,4],
 [4,2,3,9,5,8,1,7,6],
 [2,6,1,5,9,3,7,4,8],
 [3,9,4,8,6,7,5,1,2],
 [8,7,5,2,1,4,9,6,3],
 [6,3,7,1,8,2,4,9,5],
 [5,4,2,6,7,9,8,3,1],
 [1,8,9,3,4,5,6,2,7]]
51> 
-------------------------------------------------------------------------------
51> 
51> e:main([]).
[[1,2,3,4,5,6,7,8,9],
 [4,5,6,7,8,9,1,2,3],
 [7,8,9,1,2,3,4,5,6],
 [2,1,4,3,6,5,8,9,7],
 [3,6,5,8,9,7,2,1,4],
 [8,9,7,2,1,4,3,6,5],
 [5,3,1,6,4,2,9,7,8],
 [6,4,2,9,7,8,5,3,1],
 [9,7,8,5,3,1,6,4,2]]
52>

-------------------------------------------------------------------------------
e:main/1 solves any solvable sudoku

Input should be a list of three-tuples; {Row, Col, Number} with the
initially given numbers.

easy() ->
    [{1,3,9},{1,4,1},{1,5,8},{1,8,4},{1,9,5},{2,1,5},{2,5,9},{2,6,6},{2,7,1},
     {3,5,4},{3,6,3},{3,7,2},{3,8,8},{4,2,3},{4,3,8},{4,9,6},{5,1,4},{5,4,8},
     {5,6,5},{5,9,1},{6,1,2},{6,7,8},{6,8,9},{7,2,1},{7,3,5},{7,4,3},{8,3,2},
     {8,4,6},{8,5,1},{8,9,4},{9,1,6},{9,2,4},{9,5,5},{9,6,8},{9,7,9}].

medium() ->
    [{1,7,6},{1,9,7},{2,3,8},{2,6,3},{2,8,1},{3,4,5},{3,8,9},{4,2,1},{4,5,3},
     {4,7,4},{4,9,6},{5,2,6},{5,3,9},{5,4,4},{5,6,7},{5,7,1},{5,8,3},{6,1,2},
     {6,3,4},{6,5,1},{6,8,5},{7,2,9},{7,6,4},{8,2,4},{8,4,8},{8,7,2},{9,1,6},
     {9,3,3}].

veryhard() ->
    [{1,3,8},{1,4,4},{1,7,3},{1,8,5},{2,6,1},{2,8,8},{3,3,3},{3,4,9},{3,6,8},
     {3,9,6},{4,1,2},{4,5,9},{4,7,7},{5,2,9},{5,5,6},{5,8,1},{6,3,5},{6,5,1},
     {6,9,3},{7,1,6},{7,4,1},{7,6,2},{7,7,4},{8,2,4},{8,4,6},{9,2,8},{9,3,9},
     {9,6,5},{9,7,6}].

-------------------------------------------------------------------------------
EOF.



More information about the erlang-questions mailing list