GPF in Binary by JWinslow23

$z=<>;sub f{for(2..$z){$z/=$z%$_?next:$_;return$z>1?&f:$_;}}$_=sprintf"%b",f;s/1/-/g;s/0/_/g;print

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

download

return to the top page