Public Scratchpad | Download, Select Code To D/L |
Grabbed from jynx's scratchpad:
$,=$/,print join('.',map chr(ord(substr$^X,$_,1)- $_[$_]),0..$#_).q,.,,''if'one4k4'+split//,q,6424,
Very cool indeed.
Public Scratchpad | Download, Select Code To D/L |
$,=$/,print join('.',map chr(ord(substr$^X,$_,1)- $_[$_]),0..$#_).q,.,,''if'one4k4'+split//,q,6424,