该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
易言版本……跑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) ' 可以根据您的需要返回任意数值