checkers pattern by konn

t="1":"0":t
f=t:tail t:f
main=interact(\a->let[x,y]=map read$words a in(++"\n").unwords.take y=<<take x f)

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

download

return to the top page