character subsets by pooq

<?if(($b=strlen($a=fgets(STDIN))-1)>6){$a='long';$b=4;}for(;$i<1<<$b;$i++,$j=-print'
')for(;++$j<$b;)if($i/(1<<($b-$j-1))%2)echo$a[$j];

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

download

return to the top page