f 0=0 f 1=1 f n=f(n-2)+f(n-1) main=mapM putStrLn$[take(f n)(['1'..'9']++['A'..])|n<-[1..9]]

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

download

return to the top page