Turing Machine by yshl

[9{(%stdin)(r)file 32 string readline pop}repeat]600 string 200 65{{4 copy pop
get 8 mod 1 add get exch 64 sub 4 mul 3 getinterval 3 copy 0 get put exch 1
index 1 get 61 sub add exch 2 get}loop}stopped 5 index{dup 0 ne{8 mod
=only}if}forall

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

download

return to the top page