Haskell 在函数中打印或显示

Question

我是 Haskell 的新手，尝试的东西很少。我有一个小程序。

module Collatz where
compute_collatz :: Integer -> Integer
compute_collatz x = if even x then evenComputation else oddcomputation
    where evenComputation = div x 2
          oddcomputation = 3 * x + 1

compute_steps :: Integer -> Integer
compute_steps 1 = 0
compute_steps num = 1 + compute_steps(compute_collatz(num))

我想打印每个compute_collatz(num) 调用生成的数字序列。如何在 compute_steps 或 compute_collatz 函数中添加 print 或 show 语句

Answer 1

这不是一个好方法。

更好的选择是使函数的结果成为访问数字的列表，而不仅仅是最后一个。

collatzSeq :: Integer -> [Integer]
collatzSeq 1 = [1]
collatzSeq x
 | even x     = x : collatzSeq (x`div`2)
 | otherwise  = x : collatzSeq (3*x + 1)

然后您可以使用此列表来计算步数、打印等。请注意，由于惰性，您需要担心在打印开始之前需要计算整个列表 - 它只会在您进行计算时打印。