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 06:19] – 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 146: | 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.1773469155.txt.gz · Last modified: by appledog