如何从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]