小编4DA*_*4DA的帖子

如何编写一个在列表元素之间具有逻辑和功能的函数？

我写了这个:

iand :: [IO Bool] -> IO Bool

iand [] = return (True)
iand (x:xs) = do
  a <- x 
  b <- iand(xs)
  return (a && b)

但这似乎是不切实际的.

如何用foldM(liftM)重写这个功能？

谢谢.