/Prelude-v23.0.0/List/replicate.dhall

Copy path to clipboard

Build a list by copying the given element the specified number of times

Examples

replicate 9 Natural 1 ≡ [ 1, 1, 1, 1, 1, 1, 1, 1, 1 ]
replicate 0 Natural 1 ≡ ([] : List Natural)

Source

--| Build a list by copying the given element the specified number of times
let replicate
: Natural → ∀(a : Type) → a → List a
= λ(n : Natural) →
λ(a : Type) →
λ(x : a) →
List/build
a
( λ(list : Type) →
λ(cons : alistlist) →
Natural/fold n list (cons x)
)

let example0 = assert : replicate 9 Natural 1 ≡ [ 1, 1, 1, 1, 1, 1, 1, 1, 1 ]

let example1 = assert : replicate 0 Natural 1 ≡ ([] : List Natural)

in replicate