lean4-htt/tests/compiler/append.lean
2019-02-08 16:52:41 -08:00

5 lines
169 B
Text

def main (xs : list string) : io uint32 :=
let ys1 := list.repeat 1 1000000 in
let ys2 := list.repeat 2 1000000 in
io.println' (to_string (ys1 ++ ys2).length) *>
pure 0