8 lines
150 B
Text
8 lines
150 B
Text
def g (xs : List Nat) : Nat :=
|
|
match xs with
|
|
| [] => 0
|
|
| y::ys =>
|
|
match ys with
|
|
| [] => 0
|
|
| _::_::zs => g zs + 1
|
|
| zs => g zs + 3
|