Branching tree by yuki

main=putStr$f 0 1
s=repeat ' '
f i b|i<64=q++zipWith g p r++"\n" where
 r=t i '/'
 t j c=take j s++(take(128-j)$cycle$c:take b s)
 g ' ' y=y
 g x ' '=x
f i b=[]

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