All pastes #115942 Raw Edit

Miscellany

public text v1 · immutable
·published 2006-08-04 23:28 UTC
rendered paste body
CREATE FLAGS 8190 ALLOT
FLAGS 8190 + CONSTANT EFLAG

: PRIMES  ( -- n )  FLAGS 8190 1 FILL  0 3  EFLAG FLAGS
  DO   I C@
       IF  DUP I + DUP EFLAG <
           IF    EFLAG SWAP
                 DO  0 I C! DUP  +LOOP
           ELSE  DROP  THEN  SWAP 1+ SWAP
           THEN  2 +
       LOOP  DROP ;

: BENCHMARK  0 2000 0 DO  PRIMES NIP  LOOP ;

utime BENCHMARK . utime 2swap  d- CR d. .( secs)