Files
Construction-of-Compilers/Project-02-03-04-05/triplaprograms/wrapped-ggT.tripla
Jan-Niclas Loosen 8a40cb2636 New project structure
2026-03-03 16:45:00 +01:00

8 lines
201 B
Plaintext

let wrapper(a, b) {
let ggt(noneSense) {
if a == b then a
else
if a > b then wrapper(a-b, b)
else wrapper(b-a, a)
} in ggt(0)
} in wrapper(21, 49)