- 十進BASIC
129 ：デフォルトの名無しさん[]：2014/11/06(木) 22:03:34.11 ID:CB9kVja+ - 10 LET F$ = "E:ABC.TXT"
20 OPEN #1 : NAME F$
30 ERASE #1
40 LET C=3
50 LET K=11
64 IF MOD(K,C)=0 THEN GOTO 130
70 IF MOD(C,6)=1 THEN C=C+4 ELSE LET C=C+2
80 IF K<C*C THEN
90 PRINT #1 : K
100 GOTO 130
110 END IF
120 GOTO 64
130 LET C=3
140 IF MOD(K,6)=1 THEN LET K=K+4 ELSE LET K=K+2
1000 IF K>1000000 THEN GOTO 10000
1221 GOTO 64
10000 PRINT C,K
10001 CLOSE #1
10002 END
|
- 十進BASIC
130 ：デフォルトの名無しさん[]：2014/11/06(木) 22:08:04.99 ID:CB9kVja+ - 以前うｐした素数表示プログラムを、ファイルに落とし込む内容です。
実はディスプレイ表示だと液晶だと怒濤の遅延を引き起こしまして
ファイルに落とし込むと数十倍速い ようです。
それと、ただ単に奇数と奇数で約数チェックするのではなく、
３の倍数はキャンセルするよう工夫しましたが、
そのＩＦ文で却って遅くなってるかどうかはまだ確認していません。
|
- 十進BASIC
131 ：デフォルトの名無しさん[]：2014/11/06(木) 22:13:37.05 ID:CB9kVja+ - あ、なので未だＣＲＴモニターつこうとるかたは
数倍は速いですよ。液晶が遅いことは知られなきゃならない程度には
知られていません。表示に関して、
ＣＰＵのクロックうｐが全部無駄になるほど液晶はのろいんです。
これ、もっと知られないと。Ｋ６−２の４５０ＭＨｚマシンが
ａｔｏｍの１．１３ＧＨｚよりぜんぜん速いということが、
ＣＲＴモニターと液晶の比較だと起こります。
ｗｉｌｌｃｏｍＤ４で後者を確認したんですが…のろいよ…
|
- 十進BASIC
132 ：デフォルトの名無しさん[]：2014/11/06(木) 22:24:00.42 ID:CB9kVja+ - ちなみに>>１２８の直後、双子数の存在がもしあったならそこから６００以内にさらなる双子数が
永遠になくなることはないことが、確実になった、みたいな報道がありましたよね。をれ
別のスレに直前ちょこちょこカキコしたんすけどその、妙な規則性。
|