Category:Action! Sieve of Eratosthenes

From Rosetta Code
Revision as of 22:55, 27 September 2022 by Tigerofdarkness (talk | contribs) (→‎Sieve of Eratosthenes: fixed syntax highlighting)
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)

Sieve of Eratosthenes

SIEVE.ACT

The following module marks prime numbers using Sieve of Eratosthenes algorithm. 

MODULE

PROC Sieve(BYTE ARRAY primes INT count)
  CARD i,j

  SetBlock(primes,count,1)
  primes(0)=0 primes(1)=0 i=2
  WHILE i<count
  DO
    IF primes(i)=1 THEN
      FOR j=2*i TO count-1 STEP i
      DO
        primes(j)=0
      OD
    FI
    i==+1
  OD
RETURN

MODULE
Retrieved from "https://rosettacode.org/wiki/Category:Action!_Sieve_of_Eratosthenes?oldid=330746"