利用Haskell的高阶函数编写简洁的代码

Haskell是一种函数式编程语言，它允许我们使用高阶函数来编写简洁的代码。高阶函数是指可以接受函数作为参数或返回函数的函数。

下面是一些使用高阶函数编写简洁代码的例子：

1. Map函数：Map函数可以将一个函数应用到列表中的每个元素上，并返回处理后的列表。

-- 将列表中的每个元素加倍
doubleList :: [Int] -> [Int]
doubleList = map (\x -> x * 2)

-- 使用例子
main :: IO ()
main = do
    let nums = [1, 2, 3, 4, 5]
    print $ doubleList nums -- 输出 [2, 4, 6, 8, 10]

2. Filter函数：Filter函数可以根据一个谓词函数的返回值，过滤列表中的元素。

-- 过滤列表中的偶数
filterEven :: [Int] -> [Int]
filterEven = filter (\x -> x mod 2 == 0)

-- 使用例子
main :: IO ()
main = do
    let nums = [1, 2, 3, 4, 5]
    print $ filterEven nums -- 输出 [2, 4]

3. Foldl和Foldr函数：Foldl和Foldr函数可以将一个二元函数应用到一个初始值和一个列表上，产生一个累积值。

-- 计算列表中所有元素的和
sumList :: [Int] -> Int
sumList = foldl (+) 0

-- 使用例子
main :: IO ()
main = do
    let nums = [1, 2, 3, 4, 5]
    print $ sumList nums -- 输出 15

4. Curry和Uncurry函数：Curry函数可以将一个接受多个参数的函数转化为一系列接受单个参数的嵌套函数。Uncurry函数则恰好相反。

-- 将一个接受多个参数的函数转化为一个接受元组作为参数的函数
curryFunc :: (Int -> Int -> Int) -> (Int -> Int -> Int)
curryFunc f = \x y -> f x y

-- 将一个接受元组作为参数的函数转化为接受多个参数的函数
uncurryFunc :: (Int -> Int -> Int) -> (Int, Int) -> Int
uncurryFunc f = \(x, y) -> f x y

-- 使用例子
add :: Int -> Int -> Int
add x y = x + y

main :: IO ()
main = do
    let curriedAdd = curryFunc add
    let result = curriedAdd 3 4 -- 输出 7
    putStrLn $ "Curried add result: " ++ show result

    let uncurriedAdd = uncurryFunc add
    let result' = uncurriedAdd (3, 4) -- 输出 7
    putStrLn $ "Uncurried add result: " ++ show result'

这只是一些使用高阶函数编写简洁代码的例子，Haskell还提供了许多其他高阶函数来处理列表、函数组合和递归等。使用高阶函数可以使代码更具可读性、可维护性和可重用性。