在 ghci 中跟踪历史

Question

历史管理如何在 GHCI 或其他基于 Haskell 的 REPL 中工作？由于 Haskell 是一种纯语言，我猜它是使用 monad 实现的，也许是 state monad。

请注意我是 Haskell 的初学者，所以请提供详细的解释，而不仅仅是链接到源代码。

Answer 1

这是一个程序如何保存用户输入命令历史的简化示例。它与猜数字游戏的结构基本相同，所以一旦你明白了，你应该就可以理解这个了：

import Control.Monad.State
import Control.Monad

shell :: StateT [String] IO ()
shell = forever $ do
  lift $ putStr "$ "
  cmd <- lift getLine
  if cmd == "history"
    then do hist <- get
            lift $ forM_ hist $ putStrLn
    else modify (++ [cmd])

main = do putStrLn "Welcome to the history shell."
          putStrLn "Type 'history' to see your command history."
          execStateT shell []