lean4-htt/tests/compiler/map_big.lean

8 lines
215 B
Text

def f2 (n : nat) (xs : list nat) : list (list nat) :=
let ys := list.repeat 0 n in
xs.map (λ x, x :: ys)
def main : io uint32 :=
let n := 100000 in
io.println (to_string (f2 n (list.repeat 0 n)).length) *>
pure 0