18 lines
278 B
Text
18 lines
278 B
Text
new_frontend
|
|
|
|
def f (xs : List Nat) : Nat :=
|
|
match xs with
|
|
| [] => 0
|
|
| x::xs =>
|
|
match xs with
|
|
| [] => 0
|
|
| _ => f xs + 1
|
|
|
|
def g (xs : List Nat) : Nat :=
|
|
match xs with
|
|
| [] => 0
|
|
| y::ys =>
|
|
match ys with
|
|
| [] => 0
|
|
| _::_::zs => g zs + 1
|
|
| zs => g zs + 3
|