coins

haskell-long.hs

main = do
    money <- getLine
    mapM putStr $ coins [200, 100, 50, 20, 10, 5, 2, 1] (read money)

coins [] _ = []
coins (x:xs) y
    | x <= y = (coin x) : coins (x:xs) (y-x)
    | x > y  = coins xs y

coin x
    | x > 99  = ((show $ x `div` 100) ++ "€ ")
    | x <= 99 = (show x ++ "¢ ")

haskell-short.hs

main=do m<-getLine;mapM putStr$a[200,100,50,20,10,5,2,1](read m)
a[]_=[];a(x:xs)y|x<=y=(b x):a(x:xs)(y-x)|x>y=a xs y
b x|x>99=((show$x`div`100)++"€ ")|x<=99=(show x++"¢ ")

171 characters