递归
使用递归求List中得最大值,先设置边界条件,如果List为空,则运行异常,如果List只有一个元素,直接返回,如果List中第一个元素大于尾部的最大值则它是最大的,否则尾部最大值最大
maximum' [] = error "error" maximum' [x] = x maximum' (x:xs) = | x > maxTail = x | otherwise = maxTail' where maxTail = maximum' xs
take' n _
| n <= 0 = []
take' _ [] = []
take' n (x:xs) = x : take' (n - 1) xs
zip' _ [] = []
zip' [] _ =[]
zip' (x:xs) (y:ys) = (x, y) : zip' xs ys
</pre></code>
####函数
#####Curried functions
本质上Haskell上的函数值有一个参数的,但以前有多个参数的函数是什么回事。例如max函数,其实它也是一个参数,只是先把1作为参数,然后返回另一个函数,继续把2当做参数
max 1 2
(max 1) 2