Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses

Re: Golf: Sudoku solving

by eyepopslikeamosquito (Chancellor)
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{$_
    +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
  4. or download this

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://649814]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (2)
As of 2017-06-29 04:59 GMT
Find Nodes?
    Voting Booth?
    How many monitors do you use while coding?

    Results (653 votes). Check out past polls.