The core of this is a JAPH I did before and wasn't entirely satisfied with. I'm not entirely satisfied with this one either, but at least it's more confusing! ;-)#!/usr/bin/perl ($n,$s)=('phroggy',join'',map{(sort split'','b_jl msepr$hyacn"otg.') [$_]}map ord()-97=>split''=>'shfmfrajitkpstguofniabcedlfqkdcodhpnb') and print eval $s for(0..6);
Requires a working Internet connection.
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |