Haskell:递归复制函数

Question

我刚刚开始使用 Haskell。我正在尝试创建一个函数来模仿 Haskell 中的标准 replicate 函数，但使用递归。例如，

Prelude> replicate 3 "Ha!"
["Ha!","Ha!","Ha!"]

它应该是 Int -> a -> [a] 类型。到目前为止，我有:

myReplicate :: Int -> a -> [a]
myReplicate x y = y : myReplicate (x-1) y
myReplicate 0 y = [ ]

但是，我的函数总是生成无限列表:

Prelude> myReplicate 3 "Ha!"
["Ha!","Ha!","Ha!","Ha!","Ha!","Ha!","Ha!",...

Answer 1

你必须把第二种情况放在第一种情况之前，否则它永远不会到达第二种情况。

myReplicate :: Int -> a -> [a]
myReplicate 0 y = [ ]
myReplicate x y = y : myReplicate (x-1) y