Hulp bij conversie nodig Perl -> C#

Status
Niet open voor verdere reacties.

Guus2005

Terugkerende gebruiker
Lid geworden
15 mrt 2005
Berichten
2.622
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...

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
 
Guus2005 zei:
Als input verwacht het programma een string van 81 cijfers van 1-9 uiteraard.
Dat zou de oplossing / output zijn.

Bij de input wordt denk ik 0-9 gebruikt, waarbij 0 een leeg vakje is.


Vr.Gr. Egel.
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan