Opened by betterworld at 2003-10-26 00:14
User since
2003-08-15
308 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-15
308 Artikel
BenutzerIn
Ich glaube das stimmt aber so wie Strat es sagt ...
Gestern habe ich auf irgendner Page in Englisch gelesen das es nur noch unter Perl 5.005 nötig ist.
Und als ich gestern srand(time ^ $$) genommen habe bekam ich bei jedem aufruf von rand() eine 8 geliefert. Sehr zufällig ;)\n\n
<!--EDIT|BrownWolf|1067529342-->
Gestern habe ich auf irgendner Page in Englisch gelesen das es nur noch unter Perl 5.005 nötig ist.
Und als ich gestern srand(time ^ $$) genommen habe bekam ich bei jedem aufruf von rand() eine 8 geliefert. Sehr zufällig ;)\n\n
<!--EDIT|BrownWolf|1067529342-->
Code (perl): ()
1 2 3
sub _{s;;xrqIpiql\\{}p{pl{R>rl{N{}gjwpkssq]>rl{N;;;*{{}=*{_};; ${{}={q{{{}}}=>[reverse+split+reverse+q;}{;]};${{}->{q{{{}}}}->[@{{}];} ${{}=reverse+_(q{{}}=>q{{}})^chr(30)x+length&_(q{{}}=>,q{{}})and+print;