7 lines
147 B
Text
7 lines
147 B
Text
|
[ ( a b -- )
|
||
|
|
2dup ." a+b = " + . cr
|
||
|
|
2dup ." a-b = " - . cr
|
||
|
|
2dup ." a*b = " * . cr
|
||
|
|
2dup ." a/b = " / . ." remainder " mod . cr
|
||
|
|
] is mathops
|