> 自宅に戻ったらアップロードしたいな。
アップロードしました。
tp://toshiki.la.coocan.jp/prime88.zip
期間限定。そのうちに削除します。
> といいつつ、特にファイル書き込みの部分はろくに動作確認をしていないのだけど。
こんな短いコードなのに、全ての条件分岐を網羅するホワイトボックステストは
行っていない。面倒になっちゃって。あぁ、横着。
とはいえ、画面表示とファイル出力の、最低限のチェックはしたので、少なくとも
一部はPC-98のDOS BASICで動作確認済み。
GOTOとGOSUBのジャンプはほとんどラベル化したので、行番号はなくても論理構造は
理解可能なはず。konnoさんのお持ちのTurboBasicなら、例えばcols.defのようなもの
を使って全ての行番号を削除しても、もしかしたらコンパイル可能かも。
ラベルの文法が違うからダメ、かな。
あと、もしかしたらほんのちょっとだけ高速化するかもしれない技術を一つ、導入
してみました。
360 IF INT(I/2)*2 = I THEN *EXIT2
380 WHILE (J<SQR(I)) AND (INT(I/J)*J<>I)
ここ、多くの処理系では割り算よりも掛け算のほうが速いと聞いたことがあるので、
割り算を２回するのではなく掛け算と割り算の組み合わせに変更してみました。
これでどのくらい早くなるかは測定していないからわからない。
処理系によっては、むしろ遅くなったりして。
konnoさんオリジナルのロジックよりは、使う変数も少なくなっている分だけ速く
なってるかもしれないけど、こんなもん、最近のコンパイラなら最適化してくれる
でしょ、という範囲かもしれない。
あとはまぁ、PC-88などの８ビットマシンならDMAを停めるとか、ナノピコ秒単位で
速度を稼ぐためにインデントを全て削除してマルチステートメント化するとか、
他にもいろいろと思いつく技はいくつかありますけどね。そこまではしていません。