14 lines
389 B
Text
14 lines
389 B
Text
|
|
definition g : list nat → list nat → nat
|
|
| [] (y::ys) := y
|
|
| [] ys := 0
|
|
| (x1::x2::xs) ys := g xs ys
|
|
| (x::xs) (y::ys) := g xs ys + y
|
|
| (x::xs) [] := g xs []
|
|
|
|
print g._main.equations.eqn_1
|
|
print g._main.equations.eqn_2
|
|
print g._main.equations.eqn_3
|
|
print g._main.equations.eqn_4
|
|
print g._main.equations.eqn_5
|
|
print g._main.equations.eqn_6
|