lean4-htt/doc/examples/compiler/test.lean
2019-02-05 16:50:12 -08:00

5 lines
109 B
Text

def Sum (xs : list nat) : nat :=
xs.foldl (+) 0
def foo (n : nat) : string :=
to_string $ Sum (list.iota n)