XP is just a number PerlMonks

### Sudoku Solver

by Roger (Parson)
 on Aug 22, 2005 at 08:18 UTC Need Help??

```\$_=q`I=0;while(<>){chomp;next()if((/^\s*#/)or(!\$_));_z()unless@o;my@p=
+/(\S)/g;for(J=0;\$j<9;\$j++){_y(\$i,\$j,\$p[\$j])if(\$p[\$
j]=~/\d/)}if(++\$i>8){\$i=0;\$p=0;while(!_w()){if(\$p==\$c){\$p=0;_q()}\$p=\$c
+}_x();undef(@o)}}Zfor(I=0;\$i<9;\$i++){for(J=0;\$j<9;
...
]<10);E=\$o[\$f][\$d];\$e=substr(\$e,int(rand(length(\$e))),1);_y(\$f,\$d,\$e);
+last};}Xfor(my \$i=0;\$i<9;\$i++){print(join(chr(32),
@{\$o[\$i]}),"\n");;}print("\n");};`;s/\s//gx;s/(?<!\\)([Q-Z])/sub _\l\$1
+\{/gx;s/([A-J])/my \\$\l\$1/gx;s/formy/for my/g;eval
```
```# Puzzle #1

...
7 * 2 * * * * 4 5
* * 5 * * 7 * 3 *
* * * * * 4 * 7 *
```

Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: obfuscated [id://485633]
Approved by aukjan
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (7)
As of 2023-02-08 16:05 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?
I prefer not to run the latest version of Perl because:

Results (42 votes). Check out past polls.

Notices?