Как создать список натуральных чисел из 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]