## primes.fth, forth-xlc primes below 10 : 4 primes below 100 : 25 primes below 10000 : 1229 small primes: 2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 sieve(10000), 200 passes: 73050 us per pass ok ## fib.fth, forth-xlc fib(20) naive = 6765 fib(24) naive = 46368 fib(28) iter = 317811 fib(24) naive, one run: 320000 us fib(28) iter, one run: 0 us ok ## ack.fth, forth-xlc ack(2,3) = 9 ack(3,3) = 61 ack(3,5) = 253 ack(3,6) = 509 ack(3,6), one run: 390000 us ok ## does.fth, forth-xlc board holds 0..9, sum = 45 0 squared is 0 1 squared is 1 2 squared is 4 3 squared is 9 4 squared is 16 ok ## tests, both builds PASS hello PASS does PASS checks PASS err-div (rc=2: ERROR: divide by zero) PASS err-underflow (rc=2: ERROR: stack underflow) passed 5, failed 0 PASS hello PASS does PASS checks PASS err-div (rc=2: ERROR: divide by zero) PASS err-underflow (rc=2: ERROR: stack underflow) passed 5, failed 0