gleitkommafreundefixed by 

r=repeat
t=r '*'
s=r ' '
f m n|m>n=[take(n-2)s++"G*F"]
f m n=[take(n-m)s++take(2*m-1)t]++f(m+1)n
main=readLn>>= \i->mapM putStrLn(f 1 (i-1))

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)

download

return to the top page