Files
Construction-of-Compilers/Project-02-03-04/triplaprograms/wrapped-ggT.tripla
2026-01-16 13:50:04 +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)