functional-programming - 将一个参数应用于多个函数

有没有一种方法可以将一个参数应用于榆木中的多个功能？

在示例中，x将应用于每个isDiv函数

isDiv : Int -> Int -> Bool
isDiv x y =
    modBy x y == 0


isLeapYear : Int -> Bool
isLeapYear x =
    x (isDiv 4 && isDiv 100 || isDiv 400)

最终这样做

isLeapYear : Int -> Bool
isLeapYear x =
    let
        isDiv y =
            modBy y x == 0
    in
    isDiv 4 && not (isDiv 100) || isDiv 400

最佳答案

您可以在isLeapYear内编写一个帮助函数，如下所示：

isLeapYear : Int -> Bool
isLeapYear x =
    let isDivX n = isDiv x n
    in isDivX 4 && isDivX 100 || isDivX 400