This repository has been archived on 2024-01-18. You can view files and clone it, but cannot push or open issues or pull requests.
compilation/flap/tests/04-Hobix_to_Fopix/08-multiple-free-variables-and-rec.hobix
2023-12-11 11:49:02 +01:00

9 lines
No EOL
176 B
Text

val f = \(z) =>
val x = z + 1;
val y = x;
val t = 0;
fun g (x) = f(y + x, x)
and f (a, b) = z + a;
\(k) => g (k) + x
val main = print_int (f (21) (20))