你能把 Haskell 列表变成一系列 do 指令吗？

Question

您可以创建一个函数列表，然后按顺序执行它们，也许将它们传递给 do 表示法？

我目前正在通过映射数据列表来执行此操作，并且想知道是否可以以某种方式调用将结果作为一系列顺序调用传递？

Answer 1

到目前为止，答案很好，但如果您还希望每个函数不作用于原始数据，而是作用于前一个函数的结果，请查看折叠函数，例如foldl、foldl1和foldr：

fns = [(1-), (+2), (abs), (+1)]
helperFunction a f = f a
test1 n = foldl helperFunction n fns

并且您可能需要monadic版本、foldM 和 FoldM_ ：

import Control.Monad
import Data.Char

helperFunction a f = f a
prnt = \s-> do putStrLn s; return s
actions = [return, prnt, return.reverse, prnt, return.(map toUpper), prnt, return.reverse, prnt] 
test2 str = foldM_ helperFunction str actions 

Answer 2

像这样的东西吗？

sequence [putStrLn "Hello", putStrLn "World"]

Answer 3

如果这些是函数，即纯函数，那么您可以使用 ($) 或“apply”：

execute functions argument = map ($argument) functions
-- execute [id,(1+),(1-)] 12 => [12,13,-11]

当然不能保证这种情况会按顺序发生，但您将获得返回值的列表。

如果这些是动作，即不纯的，那么你想要的就是 sequence_：

sequence_ [putStr "Hello", putStr " world", putStrLn "!"]

sequence_ 很容易自己编写：

sequence_ [] = return ()
sequence_ (action:actions) = action >> sequence_ actions

还有一个 sequence （不带下划线）运行一系列操作并返回其结果：

main = do
  ss <- sequence [readFile "foo.txt", readFile "bar.txt", readFile "baz.txt"]
  -- or ss <- mapM readFile ["foo.txt", "bar.txt", "baz.txt"]