Gestern beim stöbern bin ich auf einen Sudoku-Löser in Perl gestossen. Laut timestamp ist die Datei von 2006, aber wahrscheinlich noch viel älter. Ich kann mich erinnern, dass die Datei mal nur 3 Zeilen lang war. Aber durch meine Versuche diesen Wurstsalat wieder etwas auseinander zu frickeln sind ein paar Zeilenumbrüche hinzu gekommen. Wahrscheinlich wird das so auch garnicht mehr funktionieren.
Da ich kein Plan von Perl habe, kann ich auch nichts weiter zu sagen.
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