エラトステネスの篩

差分

このページの2つのバージョン間の差分を表示します。

この比較画面へのリンク

--- エラトステネスの篩 [2022/01/06 02:54] – [プログラム] araki
+++ エラトステネスの篩 [2022/01/06 09:31] (現在) – [プログラム] araki
@@ 行 36: / 行 36: @@
 <code>
 'LIST PRIME NUMBERS
-CLS:CLT:[0]=3:N=1:T=3
+CLS:CLT:[0]=3:N=1:T=3:Z=0:C=0
 I=0
-IF I<102 W=[I] ELSE GOTO 220
+ C=C+(Z>TICK()):Z=TICK():IF I<102 W=[I] ELSE GOTO 220
    IF W*W>T GOTO 170
    IF T%W=0 GOTO 200
@@ 行 47: / 行 47: @@
 T=T+2
 IF T>0 GOTO 120
-LC 0,1:? TICK()/60;" Sec"
+ C=C+(Z>TICK()):Z=TICK():LC 0,1:? C*546+Z/60;" Sec"
 END
 </code>
@@ 行 65: / 行 65: @@
 因みに、最大の素数は3512番目の32749で、この次の素数は32771になる。
-なお、最後まで実行した場合、LPC1114ベースのIchigoJamではTICK()が溢れてしまうため、表示される秒数に意味はない。
+なお、最後まで実行した場合、LPC1114ベースのIchigoJamではTICK()が溢れてしまうためCを使って溢れるたびに加算を行い、最後に546をかけて((32768/60=546.1333...))秒数に変換している。なお実行には968秒かかっている。
-RISC VベースのIchigoJamでの結果は、モノが入手でき次第計測する予定。
+RISC VベースのIchigoJamで202秒かかった。
+従って、RISC Vベースの方が約4.8倍速かった。
 [[IchigoJam]]へ戻る

エラトステネスの篩.1641437656.txt.gz · 最終更新: 2022/01/06 02:54 by araki