Annotation of gforth/sieve.fs, revision 1.1
1.1 ! anton 1: #! /usr/stud/paysan/bin/forth
! 2:
! 3: $1FFE Constant 8190
! 4: Create flags 8190 allot
! 5: flags 8190 + AConstant eflag
! 6:
! 7: : PRIMES ( -- n ) FLAGS 8190 1 FILL 0 3 EFLAG FLAGS
! 8: DO I C@
! 9: IF DUP I + DUP EFLAG <
! 10: IF EFLAG SWAP
! 11: DO 0 I C! DUP +LOOP
! 12: ELSE DROP THEN >R 1+ R>
! 13: THEN 2 +
! 14: LOOP DROP ;
! 15:
! 16: : BENCHMARK 0 &100 0 DO PRIMES NIP LOOP ;
! 17: &10 BASE !
! 18: BENCHMARK .
! 19: BYE
! 20: \ HPPA/720, 50 MHz: user 3.90s
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>