aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Family Day update

Browse source
This commit is contained in:
Ingy döt Net 2020-02-17 23:21:07 -08:00
parent aac6731f2c
commit 9ad63ea473
2442 changed files with 39761 additions and 8255 deletions
Download patch file Download diff file Expand all files Collapse all files

16
Task/Arithmetic-Integer/Retro/arithmetic-integer.retro
View file

@ -1,8 +1,8 @@
: arithmetic ( ab- )
over "\na = %d" puts
dup "\nb = %d" puts
2over + "\na + b = %d" puts
2over - "\na - b = %d" puts
2over * "\na * b = %d" puts
/mod "\na / b = %d" puts
"\na mod b = %d\n" puts ;
: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 ;