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