mirror of
https://github.com/anoma/juvix.git
synced 2024-11-30 14:13:27 +03:00
15 lines
242 B
Plaintext
15 lines
242 B
Plaintext
-- recursion through higher-order functions
|
|
module test016;
|
|
|
|
import Stdlib.Prelude open;
|
|
|
|
g (f : Nat → Nat) : Nat → Nat
|
|
| zero := 0
|
|
| (suc x) := f x;
|
|
|
|
terminating
|
|
f (x : Nat) : Nat := x + g f x;
|
|
|
|
main : IO := printNatLn (f 10);
|
|
-- 55
|