Anonymous user
Attractive numbers: Difference between revisions
Using Sieve of Eratosthenes module
(Added solution for Action!) |
(Using Sieve of Eratosthenes module) |
||
Line 173:
=={{header|Action!}}==
{{libheader|Action! Sieve of Eratosthenes}}
<lang Action!>DEFINE MAX="120"▼
<lang Action!>INCLUDE "H6:SIEVE.ACT"
BYTE ARRAY primes(MAX+1)▼
BYTE FUNC IsAttractive(BYTE n BYTE ARRAY primes)▼
▲BYTE FUNC IsAttractive(BYTE n)
BYTE count,f
Line 230 ⟶ 208:
PROC Main()
▲ BYTE ARRAY primes(MAX+1)
BYTE i
Put(125) PutE() ;clear the screen
Sieve(primes,MAX+1)
PrintF("Attractive numbers in range 1..%B:%E",MAX)
FOR i=1 TO MAX
DO
IF IsAttractive(i,primes) THEN
PrintF("%B ",i)
FI
|