Brain Fuck Really fixed by Hem(interpreter)

#!perl -naF
/\./?print chr@P[$i]:/\[/?$s=$n-1:/\]/*@P[$i]?$n=$s:(@P[$i+=/>/-/</]+=/\+/-/-/)while$_=@F[$n++]

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

download

return to the top page