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

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

「コンパイラ・スクリプトエンジン」相談室6 - 暇つぶし2ch302:デフォルトの名無しさん
05/05/24 22:50:36
うわインデントが

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"

次ページ