Question

问题 - 在0-100之间可被13和7整除的最大数字。

我正在尝试在Haskell中编写一个代码来检查13和7的可分性。我可以写13但不能在同一代码中检查7。

lard :: (Integral a) => a  
lard = head ( filter p[100,99..]) 
    where p x   = x `mod` 13 == 0

Answer 1

您可以使用&&检查这两种情况。仅当两个操作数均为真时，总体评估才为真。此运算符适用于许多（类C语言）

像：

lard :: (Integral a) => a  
lard = head ( filter p[100,99..]) 
    where p x   = (x `mod` 13 == 0) && (x `mod` 7 == 0)

^{警告：可能有更好的方法可以做到这一点。我刚刚走进了Haskell的世界。：）功能}

Answer 2

module Division where divisibility :: [Int] -> [String] divisibility (x:xs) = map show([if x模13 == 0 && x模7 == 0 then "divideby13and7" else if x模13 == 0 then "divideby13" else if x模7 == 0 then "divideby7" else show(x)| x<-x:xs]

测试整数的可分性为13和7

2 个答案: