fold1 :: (a->b->a) ->a ->[b] -> a
fold1 step zero (x:xs) = fold1 step (step zero x) xs
fold1 _ zero [] = zero
foldSum xs = fold1 step 0 xs
where step acc x = acc + x
学了点Haskell就能很好很好的理解什么是FP"过程"了,所以觉得有空学学纯FP还是个锻炼逻辑的过程,可以在大学中认识到FP是我大学中最有意义的一件事了
实现折叠语法
最新推荐文章于 2024-04-22 22:57:34 发布