該樓層疑似違規已被系統折疊?隱藏此樓查看此樓

易言版本……跑100000萬成績不如PHP。。。。

.版本 2

.程序集 程序集1

.子程序 _啟動子程序, 整數型, , 本子程序在程序啟動后最先執行

.局部變量 參數, 文本型, , "0"

.局部變量 to, 整數型

.局部變量 fr, 整數型

.局部變量 n, 整數型

.局部變量 primeList, 整數型, , "0"

.局部變量 less5, 邏輯型, , "6"

.局部變量 run, 雙精度小數型

.局部變量 end, 雙精度小數型

.局部變量 timeused, 雙精度小數型

.局部變量 is_prime, 邏輯型

.局部變量 top, 整數型

.局部變量 i, 整數型

.局部變量 p, 整數型

取命令行 (參數)

.如果 (取數組成員數 (參數) ＞ 0)

to ＝ 到長整數 (參數 [1])

.否則

to ＝ 2

.如果結束

.如果 (取數組成員數 (參數) ＞ 1)

fr ＝ 到長整數 (參數 [2])

.否則

fr ＝ 2

.如果結束

less5 ＝ { 假, 真, 真, 假, 真 }

run ＝ 取啟動時間 () ÷ 1000

.變量循環首 (fr, to, 1, n)

is_prime ＝ 真

.如果 (n ＜ 6)

is_prime ＝ less5 [n]

.否則

.如果 (n ％ 2 ＝ 0 或 n ％ 5 ＝ 0)

is_prime ＝ 假

.否則

top ＝ 求平方根 (n)

.變量循環首 (3, top, 1, i)

.如果真 (n ％ i ＝ 0)

is_prime ＝ 假

跳出循環 ()

.如果真結束

.變量循環尾 ()

.如果結束

.如果結束

.如果真 (is_prime ＝ 真)

加入成員 (primeList, n)

.如果真結束

.變量循環尾 ()

end ＝ 取啟動時間 () ÷ 1000

timeused ＝ end － run

.' 計次循環首 (取數組成員數 (primeList), p)

' 標準輸出 (, 到文本 (primeList [p]))

.' 計次循環尾 ()

標準輸出 (, “e found ”)

標準輸出 (, 取數組成員數 (primeList))

標準輸出 (, “ primes within ”)

標準輸出 (, fr)

標準輸出 (, “ to ”)

標準輸出 (, to)

標準輸出 (, “ using ”)

標準輸出 (, timeused)

標準輸出 (, “ secs”)

返回 (0) ' 可以根據您的需要返回任意數值