Thread Kleines mathe-skript
(31 answers)
Opened by SirLant at 2003-09-02 16:39
[quote=SirLant,02.09.2003, 14:56]
Code (perl): (dl
)
1 2 3 4 5 6 7 8 9 10 11 12 13 for ($neun = 0;$neun < $#neun;$neun++){ for ($acht = 0;$acht < $#acht; $acht++){ if($acht[$acht] == $neun[$neun]){ print "$acht[$_] sekunden"; } } } Nimm $acht statt $_. s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;
use strict; use warnings; Link zu meiner Perlseite |