Rule 30 by yshl

0 -2 1/s(%stdin)(r)file 1001 string readline pop def s length 1 sub{s exch 3{getinterval{1 and add 2 mul}forall neg 8 and 0 ne{stop}if( )}stopped{(#)}if print 0}for

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

download

return to the top page