Recursive Expansion by nu(rand)

X,r;f(l,x,y){r=~y?~l?x%=3*l,x>l?2+x%2+f(l/2,x%2-y,~x|1):f(l/2,x-l,y%l):x%4?0:2:!~X>r;}main(y,l){for(l%=33;putchar(X>l*4?"_ |"[f(l,--X,1-2*y)%3]:10)<11?X=--y>l:1;);}

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

download

return to the top page