30 lines
439 B
Io
30 lines
439 B
Io
add_op := method(name, action,
|
|
ops atPut(name, action)
|
|
)
|
|
|
|
add_op("+", block(a, b, a + b))
|
|
add_op("-", block(a, b, b - a))
|
|
add_op("*", block(a, b, a * b))
|
|
|
|
add_op(">", block(a, b,
|
|
if(a > b, push(a); return(b), push(b); return(a))
|
|
))
|
|
add_op("=", block(a, b,
|
|
if(a == b, return(1), return(0))
|
|
))
|
|
|
|
add_op(":", block(a, b,
|
|
push(b)
|
|
push(a)
|
|
return(a)
|
|
))
|
|
|
|
add_op("~", block(a, b,
|
|
push(a)
|
|
return(b)
|
|
))
|
|
|
|
add_op("_", block(a, b,
|
|
return(b)
|
|
))
|