Pathologically Eclectic Rubbish Lister | |
PerlMonks |
comment on |
( [id://3333]=superdoc: print w/replies, xml ) | Need Help?? |
0: #!/usr/bin/perl 1: print "What string would you like to twiddle? "; 2: $twiddle = <STDIN>; 3: chomp($twiddle); 4: $length = (length($twiddle)) - 1; 5: my (@twiddled); 6: $twiddled[$length] = $twiddle; 7: $early = $length - 1; #had to change to this 8: $late = $length + 1; #from $early = $length 9: while ($early >= 0) { 10: chop($twiddle); 11: $twiddled[$early] = $twiddle; 12: $twiddled[$late] = $twiddled[$early]; 13: --$early; #these used to be right after 14: ++$late; #chop($twiddle) 15: } 16: $playtime = 0; 17: while ($playtime <= $late) { 18: print $twiddled[$playtime] . "\n"; 19: ++$playtime; 20: }
|
|