iz r pwned!
Former Moderator
Joined: Oct 2000
Posts: 20,448
Likes: 0
From: internet
sorry, but I'm
#!/bin/perl
$|=@c=1..25;@t=split//,",rekcah lreP rehtona tsuJ";for(1..300){
$r=rand$#t;$c[$r]>$c[$n=$r+1]?redo
rint@t,"r";select$,,$,,$,,
.1;(@c[$r,$n],@t[$r,$n])=(@c[$n,$r],@t[$n,$r])}print@t,"n"
$|=@c=1..25;@t=split//,",rekcah lreP rehtona tsuJ";for(1..300){
$r=rand$#t;$c[$r]>$c[$n=$r+1]?redo
rint@t,"r";select$,,$,,$,,.1;(@c[$r,$n],@t[$r,$n])=(@c[$n,$r],@t[$n,$r])}print@t,"n"