parity of numbers by

c=concat;a="1001";b="0110";x=[a,b,b,a];y=[b,a,a,b];main=do putStr$c$c[y,x,x,y,x,y,y,x,x,y,y,x,y,x,x,y]

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

download

return to the top page