• # Golf

    Posté par . En réponse au journal Créer un livre dont vous êtes le héros avec des outils libres + question sur les regex. Évalué à 5.

    Une solution en 132 caractères, nullement digne d'un golfeur expérimenté et ne reprenant pas les lignes digraph G { et } pour gagner un peu... J'essairai de faire mieux au réveil cet aprem (ou pas).


    chomp&&/(\d+)->/?$c=1ドル:/(\d|;)+/m&&push(@{$r[$c]},split(/;/,$_))while<>;for$i(1..$c){print$i.'->'.$a.";\n"while $a=shift(@{$r[$i]})}