rotate counterclockwise by BioFALSE (author)

sub rotL{
my @t=(); my $i=0; my $j;
for (@_){
$i=0, $j=length; $t[$i++].=chop while $j--
}
return @t
}

@_=<>;
chomp @_;
@_=rotL @_;
$,="\n";
print @_

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page