Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number
 
PerlMonks  

Re: Golf: Sudoku solving

by eyepopslikeamosquito (Canon)
on Nov 08, 2007 at 21:46 UTC ( #649814=note: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    use integer;@A=split//,<>;sub R{for$i(0..80){next if$A[$i];my%t=map{$_
    +/9==$i/9||$_%9==$i%9||$_/27==$i/27&&$_%9/3==$i%9/3?$A[$_]:0=>1}0..80;
    +R($A[$i]=$_)for grep{!$t{$_}}1..9;return$A[$i]=0}die@A}R
    
  2. or download this
     * Original Eccles & Toad solution (slightly modified)
     * Mark Byers reduced it to 187 bytes
    ...
     * Simon Stroh changed @A=split//,<> to $/=\1;@A=<> to reduce the prog
    +ram to 179 bytes
     * Mitsuru Kariya changed @A[map{ ... }]  to map@A[ ... ] to reduce th
    +e program to 178 bytes
     * Ton Hospel shortened the program to 121 bytes
    
  3. or download this
    $_=$`.$_.$'.<>;split//;${/[@_[map{$i-($i="@-")%9+$_,9*$_+$i%9,9*$_%26+
    +$i-$i%27+$i%9-$i%3}0..8]]/o||do$0}for/0/||print..9
    
  4. or download this
    $_=$`.$_.$'.<>;split//;map{/[@_[map{$i-($i="@-")%9+$_,9*$_+$i%9,9*$_%2
    +6+$i-$i%27+$i%9-$i%3}0..8]]/o||do$0}/0/||print..9
    

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://649814]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (13)
As of 2014-09-19 14:53 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (140 votes), past polls