【友好数探し】ベンチスレ＠昔のPC板
124 ：sage：
>>19と>>121の結果を見て、MOD相当の関数があるので
そっち使ってやってみました。
【.メーカー.】CASIO
【機種名】PB-100（初代）
【.CPU 】???
【クロック数】0.455?
【.メモリ 】2KB（1KB増設済み）
【.言語 】BASIC
【プログラム変更点】
・行番号100、170を削除した。
・110行目の「FOR J=2 TO 1000」は、 「FOR J=2 TO 10000」の間違いですた。
・200行目、(N MOD I) → FRAC(N / I に変更する。
※FRAC：引数の小数部分を返す関数。 I * FRAC(N / I ＝ (N MOD I)。
▼スコア
【 220,284 】12分12秒（手動計測）
【 1184,1210 】 未計測
>>108の【Paform】値を出してみると24.0…。
現時点でBASIC部門の最速はPB-100みたいです(@.@;)
そっち使ってやってみました。
【.メーカー.】CASIO
【機種名】PB-100（初代）
【.CPU 】???
【クロック数】0.455?
【.メモリ 】2KB（1KB増設済み）
【.言語 】BASIC
【プログラム変更点】
・行番号100、170を削除した。
・110行目の「FOR J=2 TO 1000」は、 「FOR J=2 TO 10000」の間違いですた。
・200行目、(N MOD I) → FRAC(N / I に変更する。
※FRAC：引数の小数部分を返す関数。 I * FRAC(N / I ＝ (N MOD I)。
▼スコア
【 220,284 】12分12秒（手動計測）
【 1184,1210 】 未計測
>>108の【Paform】値を出してみると24.0…。
現時点でBASIC部門の最速はPB-100みたいです(@.@;)
|
|
|