埃拉托色尼筛选最优数算法(测速用)

云外归鸟

输出 "埃拉托色尼筛选最优数算法"

变量 为 整数型 size = 8190
变量 为 整数型 sizepl = 8191
变量 flags() 为 整数型
重定义 flags(sizepl)  为 整数型
变量 为 整数型 i, prime, k, 总数, iter, 开始时间,elapsedtime
输出 "10 计数器"
开始时间 = 取启动时间()*1000
计次循环 iter = 1 至 10
总数 = 0
计次循环 i = 0 至 size
  flags(i) = 1
计次循环尾

计次循环 i = 0 至 size
如果 (flags(i)) 则
   prime = i + i + 3
     k = i + prime
     条件循环 (k <= size)
   flags(k) = 0
   k += prime
     条件循环尾
     总数 += 1
如果结束
计次循环尾

计次循环尾
elapsedtime = 取启动时间()*1000 - 开始时间
输出 总数 & " 最好"
输出 "所需时间 = " & elapsedtime & "毫秒" & 取启动时间()
延时

易语言用了40毫秒, NB用了4毫秒

和尚

我这里1毫秒...