cps-interpreter/test/programs/branching.cps
2024-02-28 13:41:53 -07:00

10 lines
395 B
Plaintext

PRIMOP(>=, [REAL 0, REAL 1], [resultFalse], [
PRIMOP(+, [REAL 2, REAL 4], [result], []),
PRIMOP(<=, [INT 1, REAL 1], [resultTrue], [
PRIMOP(&&, [VAR resultTrue, VAR resultFalse], [fin], [
PRIMOP(-, [REAL 1, REAL 1], [result], []),
PRIMOP(+, [REAL 1, REAL 1], [twoWhenFinIsFalse], [])
]),
PRIMOP(-, [REAL 1, REAL 1], [result], [])
])
])