エラトステネスの篩
差分
このページの2つのバージョン間の差分を表示します。
| 両方とも前のリビジョン前のリビジョン次のリビジョン | 前のリビジョン | ||
| エラトステネスの篩 [2022/01/06 11:50] – [プログラム] araki | エラトステネスの篩 [2022/01/06 18:31] (現在) – [プログラム] araki | ||
|---|---|---|---|
| 行 36: | 行 36: | ||
| < | < | ||
| 100 'LIST PRIME NUMBERS | 100 'LIST PRIME NUMBERS | ||
| - | 110 CLS: | + | 110 CLS: |
| 120 I=0 | 120 I=0 | ||
| - | 130 IF I<102 W=[I] ELSE GOTO 220 | + | 130 C=C+(Z> |
| 140 IF W*W>T GOTO 170 | 140 IF W*W>T GOTO 170 | ||
| 150 IF T%W=0 GOTO 200 | 150 IF T%W=0 GOTO 200 | ||
| 行 47: | 行 47: | ||
| 200 T=T+2 | 200 T=T+2 | ||
| 210 IF T>0 GOTO 120 | 210 IF T>0 GOTO 120 | ||
| - | 220 LC 0,1:? TICK()/60;" Sec" | + | 220 C=C+(Z> |
| 230 END | 230 END | ||
| </ | </ | ||
| 行 64: | 行 64: | ||
| 可読性の観点からは決して好ましくないのではあるが。 | 可読性の観点からは決して好ましくないのではあるが。 | ||
| - | 因みに、最大の素数は3512番目の32749になる。 | + | 因みに、最大の素数は3512番目の32749で、この次の素数は32771になる。 |
| + | なお、最後まで実行した場合、LPC1114ベースのIchigoJamではTICK()が溢れてしまうためCを使って溢れるたびに加算を行い、最後に546をかけて((32768/ | ||
| + | RISC VベースのIchigoJamで202秒かかった。 | ||
| + | 従って、RISC Vベースの方が約4.8倍速かった。 | ||
| [[IchigoJam]]へ戻る | [[IchigoJam]]へ戻る | ||
エラトステネスの篩.1641437422.txt.gz · 最終更新: 2022/01/06 11:50 by araki