Ausdrücken der Geldsumme in Bezug auf Änderungen

Question

Ich habe Haskell für eine Woche studiert und versucht, einige echte Weltfunktionen selbst zu schreiben. Mein Ziel ist es, die Geldsumme in Bezug auf die jeweiligen Münzen und die Menge dieser Münzen auszudrücken. Aber ich bin mir nicht sicher, ob ich "funktional" denke, wenn ich Funktionen schreibe. Beispielcode ist unten;

changes = [1,2,5,10,25,50] 

makechanges n cs = if n `div` (last cs) > 0 
        then (coin_amount, last cs) : makechanges (n - coin_amount * current_coin) (init cs) 
        else makechanges n (init cs) 
        where coin_amount = n `div` (last cs) 
         current_coin = last cs 

Beispiel Ausgabe ist

makechanges 126 changes 
[(50,2),(25,1),(1,1)] 

Gibt es eine FP Weise beabsichtigte Funktion zu schreiben? Ich fühle mich wie diese Funktion ist nur die Umwandlung der imperativen Funktion, danke im Voraus.

Answer 1

würde eine linke Falte Lösung sein:

change :: (Foldable t, Integral a) => a -> t a -> [(a, a)] 
change total coin = foldl go (const []) coin total 
    where 
    go run c x = if x < c then run x else (c, x `div` c): run (x `mod` c) 

dann:

\> change 126 [1, 2, 5, 10, 25, 50] 
[(50,2),(25,1),(1,1)]