• # obfuscating contest!

    Posté par (site web personnel) . En réponse au message Liste de conditions. Évalué à 2.

    print !grep (/0/, map { $s =~ /$_/?1:0} qw/toto tata titi/ ) ? "OK" : "NOK";

    explication:
    map {} qw// : remplace le tableau de conditions par un tableau de 1 ou 0 suivant si la condition est verifiee.

    Ce tableau de 0 et 1 est passe a grep, qui rend le nombre d'occurence de 0.
    si ce nombres d'occurence est non nul, tout est verifie, sinon erreur.

    De la a dire que c'est plus clair que le foreach, il y a un pas que je ne franchirai pas.