如何从 1..n 生成自然数列表

Question

我目前正在尝试在我的函数中生成一个列表。用户将传入一个参数，该参数将是一个Int。该函数的工作是生成一个列表，从 1 开始，一直到 n 。所以列表看起来像

[1....n]

到目前为止，我所做的是这样的：

iterate (+1) 1

虽然这提供了正确的模式，但它会永远持续下去。我怎么能停在n？此外，我如何在列表末尾附加'1'，如下所示：

[1...n,1]

Answer 1

从字面上看，它就像：

f :: Int -> [Int]
f n = [1..n] ++ [1]