「コンパイラ・スクリプトエンジン」相談室6

「コンパイラ・スクリプトエンジン」相談室6 at TECH

301:デフォルトの名無しさん
05/05/24 22:48:54
>>300
array sieve[1000000]

i = 0
init:
sieve[i] = 1
i = i + 1
if i <= 1000000 then jump init

i = 2
loop1:
if sieve[i] = 0 then jump skip
j = i + i
loop2:
sieve[j] = 0
j = j + i
if j <= 1000000 then jump loop2
skip:
i = i + 1
if i <= 1000 then jump loop1

i = 2
fin:
primes = primes + sieve[i]
i = i + 1
if i <= 1000000 then jump fin

1000*1000; "未満の素数が"; primes; "個あります\n"

次ページ

続きを表示

1を表示