- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我正在使用Haskeline包,我想在做任何事情之前从命令行连续获取三个字符串,并且我想出了对我来说似乎是一个巧妙的解决方案。但我确信可能有更好的方法来做到这一点。我正在寻找使用 Haskeline 包时的最佳实践。请评估以下示例代码的优点:
import System.Console.Haskeline
import Control.Monad.Trans
import Control.Monad.Maybe
import Data.Maybe
import Control.Monad
main :: IO ()
main = runInputT defaultSettings (runMaybeT getStrings) >>= print
getStrings :: MaybeT (InputT IO) (String, String, String)
getStrings = do
mone <- lift $ getInputLine "food> "
notNothing mone
mtwo <- lift $ getInputLine "drink> "
notNothing mtwo
mthree <- lift $ getInputLine "dessert> "
notNothing mthree
return (fromJust mone, fromJust mtwo, fromJust mthree)
where
notNothing a = guard (a /= Nothing)
正如您所看到的,它完成了提前终止的任务,但看起来仍然有点令人讨厌。我正在考虑尝试将 notNothing 和 getInputLine 转换为一行,例如:
mone <- notNothing =<< lift $ getInputLine "food> " -- does not type check
我认为看起来没那么糟糕。我认为这是非常清晰和简洁的(尽管它没有类型检查,所以我必须编写一个可以进行类型检查的版本)。
但是,这是我想出的最好的方法,我的最终问题是:您将如何改进此代码以使其更整洁且更易于阅读?我是否走在正确的道路上?
编辑:如果你的防护不是“a/= Nothing”,那么我刚刚发现的一个很好的辅助函数是:
myGuard s = guard (someConditionFunc s) >> s
因为这样你就可以写(如 luqui 建议):
mone <- myGuard =<< (lift $ getInputLine prompt)
这很酷。但如果您只匹配 Nothing,那么 TomMD 的答案会更好。
最佳答案
为什么不直接利用 Maybe monad 的 fail _ = Nothing
这一事实呢?
mthree <- lift $ getInputLine "dessert> "
notNothing mthree
变成了
Just mthree <- lift $ getInputLine "dessert> "
关于Haskell 最佳实践 : Early termination in Haskeline,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/4771199/
我正在尝试使用 Haskeline 实现自动完成功能: import System.Console.Haskeline import System.Console.Haskeline.IO impor
我正在尝试使用Haskeline编写一个程序,询问用户一系列问题,每个问题都可以选择在[括号]中包含一个默认值,并读取他们的回答。我希望用户能够 按 Enter 键提交[默认]值; 输入一个字符串,根
cabal sandbox init cabal install haskeline ... installs successfully ... ghci Prelude> :module +Syst
Haskeline 提供了函数 outputStr 和 outputStrLn,它们输出到 stdout,但是有没有办法更新已经输出的文本呢?例如,我正在考虑当安装程序显示当前安装的百分比时——百分比
我用 Haskell 编写了一个程序,在当前目录中将吉他谱构建为 txt 文件。它从用户处获取一串和弦,然后构建正确的输出并将其逐行写入文件。 当我使用 getLine 时,我无法在输入中使用退格键,
我正在使用Haskeline包,我想在做任何事情之前从命令行连续获取三个字符串,并且我想出了对我来说似乎是一个巧妙的解决方案。但我确信可能有更好的方法来做到这一点。我正在寻找使用 Haskeline
我有一个现有程序,它接受命令行参数(用户名、密码、日期),然后使用 Network.HTTP.Conduit 库将 xml 消息发布到服务器。然后我解析结果,做一些工作并使用 blaze-html 写
我想写一个文本界面,提供一些默认的命令。该程序支持这些命令的制表符补全。 该程序还记录用户输入并将其存储在 StateData 中。 .现在我希望这个程序支持这些用户输入的选项卡完成。例如: *Mai
我有代码 main :: IO() main = runInputT defaultSettings loop where
免责声明:我对 Haskell 有点陌生。 我正在编写一个解释器,或者,在这种情况下,一个 REPL。为此,我使用了 haskeline,它非常适合 REPL。它具有在文件中存储命令行历史记录的功能,
鉴于下面的概念验证代码,我希望能够以某种方式执行我的 foo 函数,并能够输出字符串 Paul! 以及以下可能性:在 InputT monad-transformer 中获取其返回值,而无需在 run
我在运行 Eclipse 3.7.2 和 ghc(i) 7.4.1 的 Ubuntu 12.04 机器上安装了 EclipseFP,Eclipse 的 Haskell 插件。每次我启动 Eclipse
我是一名优秀的程序员,十分优秀!