■ このスレッドは過去ログ倉庫に格納されています
【友好数探し】ベンチスレ＠昔のPC板
- 1 ：ナイコンさん：2005/06/27(月) 12:37:46 .net
-
↓68030
∧＿∧
（ ・∀・）つ
⊂ ノ
（＿） ノ ∧＿∧
（＿） （´∀｀ ）
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''｀｀｀｀｀
｀''''''''''''''''''
↑Z80
昔のPCさえあれば、何もいらない。
というわけでもありませんが、お前らの愛機の実力を教えてください。
（友好数とは）そのすべての約数（自分自身を除く）の和が、
互いに相手の数と等しくなるような数のペアのことです。
(測定方法）プログラム実行とともにストップウォッチで秒数を測定
（小数点以下切り捨て）
- 138 ：機種の壁を超えた限界バトル！中間ランキング：2006/10/01(日) 13:55:58 .net
- ■インタープリタ整数カテゴリ■
【機種名】 【クロック数】 【言語】 【変数型】 【220 284】 【Perform】
ファミリーコンピュータ 1.79 NS-HUBASIC V2.1A. 2 50 22.3
PC-286C 10 N88日本語BASIC(86) Ver5.0 2 11 18.2
HC-20 0.641 純正BASIC 2. 190 16.4
PC-G850V 8 内蔵C言語 2 16 15.6
FM77AV 2 F-BASIC 3.0 (disk版) 2 65 15.4
FM-NEW7 2 F-BASIC 3.0 2 75 13.3
X1 4 dB-IBASIC 1.0 2 44 11.4
PC-98DO. 10 N88-BASIC(86) Ver2.0 2. 22. 9.1
MZ-2000 4 WICS-2000 V.2.0.. 2. 65. 7.7
X1 4 CZ-8CB01(HuBASIC)1.0. 2. 66. 7.6
FS-A1WX 3.579545 .MSX-BASIC ver3.0 2. 96. 5.8
PC-98DO 8 N88-BASIC Ver2.3 2 45 5.6
X68000XVI('91) 10 X-BASIC. 2 51. 3.9
MZ-2000 4 BASIC MZ-1Z001 V1.0D 2 143. 3.5
※Perform 変数型÷(クロック数×所要時間)×1000 とした（数字が大きいほど優れている）
- 139 ：機種の壁を超えた限界バトル！中間ランキング：2006/10/01(日) 13:58:24 .net
- ■インタープリタ単精度カテゴリ■
【機種名】 【クロック数】 【言語】 【変数型】 【220 284】 【Perform】
PC-E500 2.3 純正BASIC 15 238 27.4
PB-100 0.455 純正BASIC+MOD 8 732 24.0
PB-100 0.455 純正BASIC 8 1050 16.7
PC-1261 0.768 純正BASIC. 8. 1500 6.9
PC-1251 0.576 純正BASIC. 8 2586. 5.3
PC-G850V 8 純正BASIC. 8 196. 5.1
PC-6001. 4. N60-BASICPage数4 8 736. 2.7
※Perform 変数型÷(クロック数×所要時間)×1000 とした（数字が大きいほど優れている）
- 140 ：機種の壁を超えた限界バトル！中間ランキング：2006/10/01(日) 14:00:32 .net
- ■マシンランゲージカテゴリ■
【機種名】 【クロック数】 【言語】 【変数型】 【220 284】 【Perform】
MZ-2000 4 WICS-2000+CompilerV.2.0 2 7 71.4
PC-6001 4 ＋EXAS BASIC Compiler 2 20 25.0
───── 番外編 ─────
WonderSwan 3.072 LSI-C86 for WonderWitch. 2 0.27. 2411.3
ゲームボーイアドバンス 16 C+アセンブリ. 2 0.11. 1136.4
モバイルギア MK-22. 16.5 LSI-C86 3.30c試食版 2 0.16 757.6
ゲームボーイ. 4 機械語(アセンブラ) 2 4.6 108.7
※変数型 2バイト（16ビット） とした
※Perform 変数型÷(クロック数×所要時間)×1000 とした（数字が大きいほど優れている）
変数型の違いでパフォーマンスが大きく変わるようです
各言語での変数型の情報を募集中です
また、クロックがわからないために掲載していない機種も多くあります
各機種のクロックの情報も募集中です
- 141 ：ナイコンさん：2006/10/01(日) 14:04:37 .net
- いまさらこんなのやってどうすんの？(笑)
- 142 ：ナイコンさん：2006/10/01(日) 14:56:40 .net
- Performになんの意味がw
良くても時間掛かってるんだし。
- 143 ：ナイコンさん：2006/10/01(日) 15:32:40 .net
- PUSH ANY KEY
- 144 ：ナイコンさん：2006/10/01(日) 15:50:02 .net
- >>142
見ての通り演算効率を示しています
マシン(HW)と言語(SW)のバランスを評価する指標です
車のレースに例えるなら、下手糞ドライビングなのに大パワーの恩恵で勝つより
遅くとも美しい走りかたの方を評価したい、と思っているんですよ
- 145 ：ナイコンさん：2006/10/01(日) 21:12:36 .net
- >>139
PC-E500の単精度の変数型、
実質使っているのは10バイトで残り5バイトは未使用のようです。
（PC-E500／PC-1480U活用研究 P.187 I/O BOOKS）
Performは18.3、結局PB-100に一歩及びませんでしたね。
あと、PB-100はMOD関数ではなくFRAC関数と書くべきでは？
とりあえず、乙>>138-140
- 146 ：ナイコンさん：2006/10/01(日) 21:49:33 .net
- 100です。
これは,友好数の計算初めてすぐ出した結果ですが,
過疎っているので, ひさしぶりにageます。
【.メーカー.】 バンダイ
【..機種名....】 WonderSwan
【...CPU...... 】80186バイナリ互換
【クロック数】 3.072MHz
【.....メモリ.. 】 16KB(本体)+256KB(WonderWitchカートリッジSRAM)+512KB(WonderWitchカートリッジROM)
【.言語 】 LSI-C86 for WonderWitch
【プログラム変更点】
素因数分解を用いて友好数を計算しました。
実用上,O(N)級のアルゴリズムです。
WonderWitchのOS FreyaのシステムBIOS関数 sys_get_tick_countを用いて，
時間を計測。これも，>>99 と同じで，VSYNC(VBLANK)を使用した計測。
あとRTCで秒単位でも計測。
▼スコア
通常方法／高速アルゴリズム
【 220,284 】 0秒27 = 20 tick / 0秒40 = 30 tick
【 1184,1210 】 7秒36 = 552 tick / 0秒65 = 49 tick
【 2620,2924 】 35秒95 = 2696 tick / 1秒05 = 79 tick
【 5020,5564 】 131秒73 = 9880 tick / 1秒73 = 130 tick
【 6232,6368 】 203秒07 =15230 tick / 2秒06 = 155 tick
10000までの計算 522秒32 =39174 tick / 3秒00 = 225 tick
522秒32がRTCで519秒なので，75tick/秒に約0.6%ほどき刻みが速い模様。
- 147 ：114：2006/10/02(月) 02:11:55 .net
- ぬおー、PB-100めぶっちぎりではないか
プログラムの一部最適化が許されるなら、これでどうだ！
【.メーカー.】 SHARP
【..機種名....】 PC-1251 / PC-1261
【...CPU...... 】SC61860
【クロック数】 576 / 768 kHz
【.....メモリ.. 】 4 / 10.4 KB
【.言語 】 BASIC
【プログラム変更点】
・100行目削除
・110行目の「FOR J=2 TO 1000」は、 「FOR J=2 TO 10000」の間違いですた。
・170行目削除
・180行目以降を以下のサブルーチンと差し替える
180 IF N<6 RETURN
190 S=1,I=2
200 H=N/I:IF H=INT H LET S=S+H+I
210 I=I+1:IF I<H THEN 200
220 RETURN
▼スコア
【 220,284 】 7分38秒 / 5分35秒
【 1184,1210 】
…でもヤツが同じ最適化を施せば、ヤツはまた俺の前を行くのか…
意味ねーじゃん
- 148 ：ナイコンさん：2006/10/02(月) 09:12:18 .net
- しかしスピードの世界とはそう言うもの
- 149 ：年収二万 ◆gvqwvMhy9w ：2006/10/02(月) 10:07:26 .net
- たな
- 150 ：ナイコンさん：2006/10/02(月) 18:10:01 .net
- ｱﾘの巣ｺﾛﾘってあるじゃん｡
蟻の行列にﾎﾟﾝと置くと､一瞬ﾋﾞｯｸﾘして列が乱れる｡邪魔だなと言わんばかりに迂回する列が出来る｡
そのうち好奇心旺盛な一匹がｱﾘの巣ｺﾛﾘに入る｡
そいつをﾏﾈして何匹も入る｡
毒とも知らずにﾂﾌﾞﾂﾌﾞを運び出す｡
一匹が一粒づつ｡
いつのまにか行列はｱﾘの巣ｺﾛﾘが折り返し地点になる｡
黄色い粒と黒い蟻が作り出す模様は綺麗で見てて楽しい｡
一匹が一粒づつ､丁寧にせっせと毒の粒を運ぶ｡
せっせと､せっせと､せっせと､せっせと｡
蟻さんって働き者だなと思う｡
俺も頑張らなきゃなと思う｡
次の日､あれほど沢山いて俺を困らせた蟻が一匹もいない｡
ほんとにいない｡
探してもいない｡
泣きたくなった｡
このﾚｽを見た人は4日後にあなたの大切な人がいなくなるでしょう････
それが嫌ならこのﾚｽを5つの板にｺﾍﾟﾋﾟしてください｡
信じるか信じないかはあなた次第です｡
- 151 ：無色透明 ◆Tt738756Kw ：2006/10/06(金) 06:47:46 .net
- エミュだけどやってみた
【.メーカー.】シャープ
【..機種名....】X1turbo (Xmillennium T-tuneSTEP1.43 + ikaTune release4)
【...CPU...... 】Z80A
【クロック数】4MHz
【.....メモリ.. 】64KB
【.言語 】CZ-8FB01(HuBASIC) 1.0
【プログラム変更点】
105 TIME=0:REPEAT:UNTIL TIME>0 を追加
110 FOR J=2 TO 10000 に変更
140 PRINT J;N;TIME-1 に変更
最適化版は、以下のサブルーチンに差し替え
180 IF N<6 RETURN
190 S=1:I=2
200 H=N/I:IF N MOD I=0 THEN S=S+H+I
210 I=I+1:IF I<H THEN 200
220 RETURN
▼スコア 通常 ／ 最適化
【 220,284 】 67（1分07秒）／31（31秒）
【 1184,1210 】1807（30分07秒）／410（6分50秒）
【 2620,2924 】8764（2時間26分4秒）／1358（22分38秒）
＞180 IF N<6 RETURN
が、なんかインチキくさいけど>>147の最適化って確かに速いな
しかし>>146の素因数分解とは違うんじゃろ？
- 152 ：勝手に訂正：2006/10/21(土) 23:25:44 .net
- ■インタープリタ単精度カテゴリ■
【機種名】 【クロック数】 【言語】 【変数型】 【220 284】 【Perform】
PB-100 0.455 純正BASIC+FRAC. 8 732 24.0
PC-E500 2.3 純正BASIC 10 238 18.3
PB-100 0.455 純正BASIC. 8. 1050 16.7
PC-1261 0.768 純正BASIC 8. 1500. 6.9
PC-1251 0.576 純正BASIC 8. 2586. 5.3
PC-G850V 8 純正BASIC. 8 196. 5.1
PC-6001. 4. N60-BASICPage数4 8 736. 2.7
───── 最適化編 ─────
PC-1261 0.768 純正BASIC+最適化. 8 335. 31.1
PC-1251 0.576 純正BASIC+最適化. 8 458. 30.3
※Perform 変数型÷(クロック数×所要時間)×1000 とした（数字が大きいほど優れている）
各言語での変数型の情報を募集中です
各機種のクロックの情報も募集中です
- 153 ：ナイコンさん：2006/11/04(土) 18:19:00 .net
- >>146
なんか10MHzの68 >>20より倍速で悲しい・・・
- 154 ：ナイコンさん：2006/12/27(水) 22:57:34 .net
- このｽﾚ意味あんの？
- 155 ：ナイコンさん：2006/12/28(木) 22:07:36 .net
- ↑オマエの存在よりはなｗｗ
- 156 ：ナイコンさん：2006/12/28(木) 22:57:31 .net
- ↑オマエの存在よりはなｗｗ
- 157 ：ナイコンさん：2006/12/28(木) 23:19:59 .net
- 156 ：ナイコンさん ：2006/12/28(木) 22:57:31
↑オマエの存在よりはなｗｗ
- 158 ：ナイコンさん：2006/12/28(木) 23:20:18 .net
- ↑オマエの存在よりはなｗｗ
- 159 ：ナイコンさん：2007/01/28(日) 04:12:10 .net
- そんなら意味ないじゃん
- 160 ：ナイコンさん：2007/01/28(日) 12:58:48 .net
- このｽﾚ＞↑オマエの存在＞↑オマエの存在＞156 ：ナイコンさん ：2006/12/28(木) 22:57:31↑オマエの存在＞↑オマエの存在＝意味ない
- 161 ：ナイコンさん：2007/01/28(日) 13:19:07 .net
- ぴゅう太まだすか
- 162 ：ナイコンさん：2007/01/30(火) 23:55:31 .net
- このｽﾚ意味あんの？
- 163 ：ナイコンさん：2007/01/31(水) 00:44:39 .net
- 無限ﾙｰﾌﾟ意味あんの？
- 164 ：ナイコンさん：2007/01/31(水) 01:24:46 .net
- ↑オマエの存在よりはなｗｗ
- 165 ：ナイコンさん：2007/08/12(日) 20:09:07 .net
- 88出ねえ～
- 166 ：ナイコンさん：2007/08/27(月) 22:48:04 .net
- 【.メーカー.】CASIO
【..機種名....】FX-603P
【...CPU...... 】不明
【クロック数】1.228MHz
【.....メモリ.. 】6144ステップ
【.言語 】独自(アセンブラライク)
【プログラム変更点】
BASICのルーチンは変えず独自形式に
PB-100と同様MOD演算にはFRACを利用
▼スコア
【 220,284 】704秒
【 1184,1210 】
単精度カテゴリなのかな。
- 167 ：ナイコンさん：2008/01/07(月) 12:07:36 .net
- 【.メーカー.】 SHARP
【..機種名....】 X68030
【...CPU...... 】68030
【クロック数】 25MHz
【.....メモリ.. 】 12MB
【.言語 】 GCC
▼スコア
【 220,284 】 1秒未満
【 1184,1210 】 2秒
【 2620,2924 】 10秒
【 5020,5564 】 37秒
【 6232,6368 】 58秒
10000までの計算 149秒
モバギに負けました。1秒未満の出し方がわからない。
- 168 ：ナイコンさん：2008/01/08(火) 15:42:58 .net
- このスレまだあったのか。お前らありがとう。
- 169 ：ナイコンさん：2008/01/16(水) 21:57:01 .net
- 秋月PIC-BASIC（20MHz）開発キットを手に入れたので
これでベンチしようと思った。
- 170 ：ナイコンさん：2008/01/17(木) 00:40:28 .net
- >>166
おつかれ。
対クロック比がわかるといいなあ。
>>167
おつかれ。
全体を10回廻して10で割れば?
ってそういう意味ではない?
- 171 ：ナイコンさん：2008/04/17(木) 02:25:56 .net
- 過去スレに出てたクロックアップＰＢ＆FX702Pでためしてみたい，改造は出来そう．
しかし【1184,1210 】の時間計る手段どしよ・・・
ビデオ回しはなしじゃ情けない，saveコマンド系を拡張ポートから拾ってどうにかなだろうか？
クロックドーピング＆おいか風邪で，旧PB,FXの最速狙いたいが，基本の計測でつまづく．
弱い...orzどなたか知恵を！
- 172 ：ナイコンさん：2008/05/09(金) 18:38:08 .net
- pb100はtime,poke文がそういえばないね
しかしまあこのスレはプログラム板にあったほうがよかったね
あっちはここを隔離スレとよんでいるから無理か
- 173 ：ナイコンさん：2009/03/06(金) 13:29:16 .net
- FOR I=1 TO 5000:I=I+I-I:NEXT
単位sec. 実数 整数
86系 JX 18 15
80系 PC-8801 31 23
PC-8001MK2 27 21
PC-6001MK2 62
X1 18 14
MZ-2200 11
MZ-1500 17
PASOPIA7 16 12
MULTI8 20 15
SMC-777 30 19
FP-1100 40 25
PHC-25 27
MSX 28 16
M5 11
SC-3000 67
RX-78 14
PV-2000 12
Super Cassette Vision 29
68系 FM-7 17 13
BM-L3 40 31
BM-Jr 48
JR-200 24
65系 Apple2 19
ATARI800 23
VIC-1001 20
MAX MACHINE 22
FAMILY COMPUTER 10
etc. Pyuta 59
- 174 ：ナイコンさん：2009/03/07(土) 19:21:40 .net
- mzってそんなに早いのかな？FMより早い？？
カセットヴィジョン？
- 175 ：ナイコンさん：2009/03/13(金) 13:17:35 .net
- FOR I=1 TO 5000:I=I+I-I:NEXT（実数）
単位sec.
PC-9801M 10
PC-100 14
FM-11AD2 16
FM-11BS 21
FM-16β 11
MYBRAIN3000 24
B16/EX 10
PASOPIA1600 7
MULTI16-Ⅲ 9
MZ-6500 10
if800M60 10
FP-6000 21
IBM 5541B 9
QC-10 31
- 176 ：ナイコンさん：2009/03/14(土) 10:11:38 .net
-
- 177 ：ナイコンさん：2009/03/15(日) 02:33:39 .net
- 98伝説本によると
apple2
FM7
mz80B
x1
の順に早いようだね
- 178 ：ナイコンさん：2009/03/15(日) 03:41:25 .net
- アポーが速いのは整数BASIC使ってるから
- 179 ：ナイコンさん：2009/08/22(土) 19:38:49 .net
- , - ' ﾞ ｀` ‐ 、_,,,,,
,r' ／＝ミ
/ 彡ll',''´
. / 彡lll
!-- .､ ,､､､､,,, 彡lﾉ
l,,,,,__ / ___ 'r''ﾞヽ
. |`ﾞ'' ./ `'ﾞ'''" .〉,l |
|. ,' //
. ',. ,' , r'
. ﾞ, ﾞ'ｰ ‐` l |
ﾞ､''ﾞ ,,､二''‐ ﾉ l、
''''''''7'ヽ ''' ／ /`〉｀ﾞT''''''''''
l ` ､,,,,､- ' " / /.| |
. | | .l i / ./ | |
| | | l / ./ .| |
. | | | l / / | |
| | | ', / / l .l
【ゴールデンレス】
このレスを見た人はコピペでもいいので
10分以内に3つのスレへ貼り付けてください。
そうすれば１４日後好きな人から告白されるわ宝くじは当たるわ
出世しまくるわ体の悪い所全部治るわでえらい事です
- 180 ：ナイコンさん：2009/12/24(木) 23:55:01 .net
- >>171
そんでどうなった？
- 181 ：ナイコンさん：2011/02/07(月) 20:41:49 .net
- 気になったのでage
- 182 ：ナイコンさん：2011/04/27(水) 21:02:28.22 .net
- 【 220,284 】と【 1184,1210 】 って比例にならないの？
- 183 ：電脳プリオン 忍法帖【Lv=40,xxxPT】(1+0：8) 【24.6m】 ：2013/04/20(土) 18:26:35.19 ?PLT(12080).net
- もうベンチしないのか
- 184 ：ナイコンさん：2018/02/09(金) 01:20:32.47 ID:WeM2lqYtQ
- ichigojamでやったらとても遅かった（笑）
- 185 ：ナイコンさん：2018/09/24(月) 15:58:47.96 ID:p0EepzYcX
- ラインtポイントで得た情報は拉致の実行に使われる
- 186 ：ナイコンさん：2020/07/09(木) 18:56:36.51 .net
- ごいす
- 187 ：ナイコンさん：2022/04/15(金) 12:01:49 .net
- 98はゴミ
総レス数 187
61 KB
掲示板に戻る
全部
前100
次100
最新50
read.cgi ver 2014.07.20.01.SC 2014/07/20 D ★