用变化来表达资金总额

Question

我一直在研究Haskell一个星期，并试图自己写一些真实世界的函数。我的目标是根据各自的硬币和所述硬币的数量来表达金额。但我不确定当我编写函数时是否在“功能上”思考。示例代码如下所示;

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 

示例输出

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

是否有写预期功能更FP的方式？我觉得这个功能只是命令式功能的转换，事先要感谢。

Answer 1

甲左折叠的解决办法是：

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) 

然后：

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