cps-interpreter/test/programs/branching.cps

10 lines
395 B
Plaintext
Raw Permalink Normal View History

2024-02-28 15:41:53 -05:00
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], [])
])
])