「コンパイラ・スクリプトエンジン」相談室6
■ このスレッドは過去ログ倉庫に格納されています
0302デフォルトの名無しさん
2005/05/24(火) 22:50:36array 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"
■ このスレッドは過去ログ倉庫に格納されています