sd:star_forth_test_suite
Differences
This shows you the differences between two versions of the page.
| Both sides previous revisionPrevious revisionNext revision | Previous revision | ||
| sd:star_forth_test_suite [2026/03/14 02:32] – appledog | sd:star_forth_test_suite [2026/03/14 13:20] (current) – appledog | ||
|---|---|---|---|
| Line 51: | Line 51: | ||
| <codify Forth> | <codify Forth> | ||
| - | : TEST= = IF ." PASS" ELSE ." FAIL" THEN CR ; | + | : TEST= = IF ." PASS " ELSE ." FAIL " THEN ; |
| ( Arithmetic ) | ( Arithmetic ) | ||
| Line 99: | Line 99: | ||
| 65 EMIT 66 EMIT 67 EMIT CR | 65 EMIT 66 EMIT 67 EMIT CR | ||
| 3 SPACES 65 EMIT CR | 3 SPACES 65 EMIT CR | ||
| + | |||
| + | ( Bit Shifting Ops ) | ||
| + | 1 0 LSHIFT 1 TEST= | ||
| + | 1 1 LSHIFT 2 TEST= | ||
| + | 1 4 LSHIFT 16 TEST= | ||
| + | 1 8 LSHIFT 256 TEST= | ||
| + | $FF 4 LSHIFT $FF0 TEST= | ||
| + | 16 1 RSHIFT 8 TEST= | ||
| + | 256 8 RSHIFT 1 TEST= | ||
| + | $FF0 4 RSHIFT $FF TEST= | ||
| + | 1 1 RSHIFT 0 TEST= | ||
| </ | </ | ||
| Line 135: | Line 146: | ||
| === FIZZBENCH | === FIZZBENCH | ||
| <codify Forth> | <codify Forth> | ||
| + | : FIZZBUZZ 21 1 DO I 15 MOD 0 = IF ." FizzBuzz" | ||
| + | 0 = IF ." Fizz" ELSE I 5 MOD | ||
| + | 0 = IF ." Buzz" ELSE I . THEN THEN THEN CR LOOP ; | ||
| : FIZZBENCH 0 10000 0 | : FIZZBENCH 0 10000 0 | ||
| DO I 15 MOD 0 = IF 1 + ELSE | DO I 15 MOD 0 = IF 1 + ELSE | ||
sd/star_forth_test_suite.1773455576.txt.gz · Last modified: by appledog