Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked

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 the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (3)
As of 2015-10-09 00:30 GMT
Find Nodes?
    Voting Booth?

    Does Humor Belong in Programming?

    Results (232 votes), past polls