Thread Kleines mathe-skript (31 answers)
Opened by SirLant at 2003-09-02 16:39

Crian
 2003-09-02 18:05
#82980 #82980
User since
2003-08-04
5833 articles
ModeratorIn
[Homepage]
user image
[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";
                
    }
        
  }

}
[/quote]
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

View full thread Kleines mathe-skript