Shawn Zhang's questions

此函数将返回一个Either类型。String 表示错误值，Right/Bool 表示用户关心的普通布尔类型

testPre :: Rational -> Rational -> Either String Bool
testPre a b
  | b == 0 = Left "Shouldn't be 0" 
  | a > b = Right True
  | a <= b = Right False

any但是，如果我想测试带有特殊或all可与 String Bool 一起使用的数字列表，该怎么办？ 使any或all在 的上下文中工作Either？

all (testPre 3)  [1,2]  =>  should be `Right True`
all (testPre 3)  [1,2,3]  =>  should be `Right False`

any (testPre 3)  [1,5]  =>  should be `Right True`
any (testPre 3)  [5,6]  =>  should be `Right False`

any (testPre 3)  [1,0,3]  =>  should be "Shouldn't be 0" 

谢谢

• 是fruit一个 Maybe 类型
• 如果水果是 aapple并且是甜的（用函数测试testSweet），则触发过程 A
• 如果不甜或者fruit什么都不是，则执行过程 B

这是伪代码，

   case fruit of 
       Just apple ->
           if testSweet apple then 
               <ProcessA>
           else
               <ProcessB>
       Nothing ->
               <ProcessB>

<ProcessB>但这里看起来有重复，有什么办法可以解决这个问题吗？我认为最佳方法是代码中只有一个。