Coding Dojo 27-maio-2011

gistfile1.hs

main = 
    putStrLn (show $ trocoPara 50)

trocoPara quantia = 
    let todasCombinacoes = todasPossibilidades (quantia `div` (last todasMoedas)) []
    in filter (\c -> (sum c) == quantia ) todasCombinacoes

todasPossibilidades num ps =
    if num == 0 then ps
    else concat [ (possibilidades num), (todasPossibilidades (num - 1) ps) ]

possibilidades 1 = concat [sequence [todasMoedas]]
possibilidades num = 
    let anterior = possibilidades (num - 1)
    in [ a:b | a <- todasMoedas, b <- anterior, a >= b !! 0 ]

todasMoedas = [100, 50, 25, 10, 5]