8 lines
220 B
Text
8 lines
220 B
Text
def f2 (n : Nat) (xs : List Nat) : List (List Nat) :=
|
|
let ys := List.replicate n 0 in
|
|
xs.map (λ x, x :: ys)
|
|
|
|
def main : IO UInt32 :=
|
|
let n := 100000 in
|
|
IO.println (toString (f2 n (List.replicate n 0)).length) *>
|
|
pure 0
|