Ik heb hulp nodig om de volgende code om te zetten naar C#. Het zijn niet veel regels maar daarin juist schuilt de kracht van Perl...
Het is code om de welbekende SUDOKU puzzels op te lossen. Als input verwacht het programma een string van 81 cijfers van 1-9 uiteraard.
Alvast bedankt!
Weest gegroet,
Guus
Code:
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
Het is code om de welbekende SUDOKU puzzels op te lossen. Als input verwacht het programma een string van 81 cijfers van 1-9 uiteraard.
Alvast bedankt!
Weest gegroet,
Guus