Count in French by Irratix

f x|x<1=[]|x`mod`100<17=[x]|x>79=[4,20]++f(x-80)|x>59=[60]++f(x-60)|1>0=[x-x`mod`10]++f(x`mod`10)
main=mapM(putStrLn.unwords.map show.f)[1..100]

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