我只写了以下两个函数: fand :: (a -> Bool) -> (a -> Bool) -> a -> Bool fand f1 f2 x = (f1 x) && (f2 x) f_or :: (a -> Bool) -> (a -> Bool) -> a -> Bool f_or f1 f2 x = (f1 x) || (f2 x) 它们可能被用来组合两个布尔函数的值,例如: import Text.ParserCombinators.Parsec import Data.Char nameChar = satisfy […]