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

Initial data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 72d218235f
commit f23f22d71c
199087 changed files with 3378941 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

7
Task/Arithmetic-Integer/Forth/arithmetic-integer-1.fth Normal file
View file

@ -0,0 +1,7 @@
: arithmetic ( a b -- )
cr ." a=" over . ." b=" dup .
cr ." a+b=" 2dup + .
cr ." a-b=" 2dup - .
cr ." a*b=" 2dup * .
cr ." a/b=" /mod .
cr ." a mod b = " . cr ;

3
Task/Arithmetic-Integer/Forth/arithmetic-integer-2.fth Normal file
View file

@ -0,0 +1,3 @@
FM/MOD ( d n -- mod div ) \ floored
SM/REM ( d n -- rem div ) \ symmetric
M* ( n n -- d )

2
Task/Arithmetic-Integer/Forth/arithmetic-integer-3.fth Normal file
View file

@ -0,0 +1,2 @@
UM/MOD ( ud u -- umod udiv )
UM* ( u u -- ud )