REXX: Beispiele: Primzahlen

Sieb des Erathostenes

Bearbeiten
/* Ein Rexx-Programm */
/* Initialisierung */
zahl. = 1     /* Alle Zahlen sind Primzahlen */
/* Primzahlen sieben */ 
do index = 2 to 100
  if zahl.index = 1 then do index2 = (index*index) to 10000 by index
      zahl.index2 = 0
  end
end
/* Ausgabe der Primzahlen */
do index = 2 to 10000
  if zahl.index = 1 then say index
end

Primzahltest naiver Ansatz

Bearbeiten
/* Ein REXX-Programm */
initial=1
obergrenze = 10000
anzahl_primzahlen = 1
primzahl_zeiger.1=2
say 2
do index = 3 to obergrenze
  primzahl_wahr = 1
  laeufer = initial
  do anzahl_primzahlen
    laeufer = primzahl_zeiger.laeufer
    if index // laeufer = 0 then primzahl_wahr = 0
  end
  if primzahl_wahr = 1 then do 
    primzahl_zeiger.laeufer = index
    anzahl_primzahlen = anzahl_primzahlen + 1
    say index
  end
end