[Cologne-pm] finde aritmatik operator fuer 57a27b37c17d47=777

Cem Sakaryali cem.sakaryali at easi.de
Sun Nov 27 15:56:56 PST 2005


@a=@b=@c=@d=('*','-','+','/');

foreach $a (@a) {
foreach $b (@b) {
foreach $c (@c) {
foreach $d (@d) {
$string = eval ("57 $a 27 $b 37 $c 17 $d 47");
if ($string==777) {print "a$a b$b c$c d$d\n"}
}
}
}
}


Ich mag perl :D

Gruss
Cem



More information about the Cologne-pm mailing list