Twos in Pascals triangle by yuki

f s=s
t=[1]:[1:f s|s<-t]
c n|odd n=0|0<1=1+c(div n 2)
z s=do i<-s;' ':case c i of 0->".";x->show x
a i=take(64-i)$repeat ' '
g(i,s)=putStrLn$a i++tail s++a i
main=mapM_ g$zip[1..][z i|i<-take 64 t]

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

To protect the system from spam, please input your favorite sport (hint: I believe its name must start with 'g', case insensitive)


return to the top page