是否可以将一个参数应用于榆木中的多个功能?
在示例中,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