Sudoku solver using Perl regex http://www.perlmonks.org/?node_id=471168 http://www.perlmonks.org/?node_id=471168 Sudoku solver in three lines of Perl (golf):

Sudoku solver using Perl regex http://www.perlmonks.org/?node_id=471168 http://www.perlmonks.org/?node_id=471168 Sudoku solver in three lines of Perl (golf): https://web.archive.org/web/20070106133158/http://www.ecclestoad.co.uk/blog/2005/06/02/sudoku_solver_in_three_lines_explained.html https://web.archive.org/web/20070106133158/http://www.eccles... 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