character subsets by tarhashi

<?for($a=fgetc(STDIN),$s=$a==1?'321':($a=='l'?'gnol':'yeknod');$l<=strlen($s);$b=strrev(decbin(++$i)),$l=strlen($b)){for(;$l>0;$b[--$l]?print$s[$l]:'');?>

<?}

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

download

return to the top page