http://www.perlmonks.org?node_id=588010


in reply to Re: For vs. While
in thread For vs. While

Ahh, that makes perfect sense. Thanks!
V(qw/74 401 211 79/);sub V{while(@_){$v**=$V?$#_:$V; print(map{$V<$v?chr(shift):chr(reverse(pop))}$_),$V+=$#_%2!=1?1:0}}