8 lines
268 B
Text
8 lines
268 B
Text
:arithmetic (ab-)
|
|
over '\na_______=_%n s:put
|
|
dup '\nb_______=_%n s:put
|
|
dup-pair + '\na_+_b___=_%n s:put
|
|
dup-pair - '\na_-_b___=_%n s:put
|
|
dup-pair * '\na_*_b___=_%n s:put
|
|
/mod '\na_/_b___=_%n s:put
|
|
'\na_mod_b_=_%n\n" s:put ;
|