haskell - Haskell中如何避免重复的函数调用

Question

如何避免此 Haskell 命令中重复的 x

ccheck :: Balance -> Integer
ccheck b     | x >= 1200    = x - 7
             | otherwise    = x
               where x = account b

Answer 1

好吧，你几乎可以让任何东西都变得免费。

import Control.Arrow
ccheck = uncurry (+) . (min 0 . (*7) . signum . (1199-) &&& id) . account

但是WTH。你的版本很好，更清楚发生了什么，而且正如三十二上校所说，根本没有那么重复。