Re^2: Why Perl Monks Works for Me

in reply to Re: Why Perl Monks Works for Me
in thread Why Perl Monks Works for Me

Here at the monastery, there's always an open $BAR;

Sigh... Sorry, couldn't resist.




$\=" ";$u=0;$w=0;x(qw/4A 16 07 86/);sub x{while(@_){$u**=$w?$w:$#_;
print map{$w<$u?chr(hex shift):chr(hex reverse(shift))}$_;$w+=length%2
+!=1?-1:1}}
[download]

In Section Perl Monks Discussion