[過去ﾛｸﾞ]
【初心者】課題をクリアしていくスレ【講習会】 (787ﾚｽ)
【初心者】課題をクリアしていくスレ【講習会】 http://mevius.5ch.net/test/read.cgi/gamedev/1086858349/
上
下
前
次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索
歴削→次ｽﾚ
栞削→次ｽﾚ
過去ﾛｸﾞﾒﾆｭｰ
240: HSPが初プログラム@生徒希望 [sage] 04/07/04 19:58 ID:3DUC6+Xf えと、素数はどういうものかはわかるんですが、プログラムというかHSPでの算出方法が… http://mevius.5ch.net/test/read.cgi/gamedev/1086858349/240
241: x≠先生かつx＝生徒 ⇒ x＝俺 [sage] 04/07/04 20:45 ID:WDudAYFD ; 素数判定 with HSP 少しだけ高速版 sdim log, 7000: notesel log title "素数判定 - Calculating..." mesbox log, 640, 480 log = "2": n = 1 repeat 999 repeat n += 2: f = 1 repeat n>>1-1,3 if n \ cnt = 0: f = 0: break continue cnt+2 loop if f: break loop noteadd ""+n await loop objprm 0, log title "素数判定" stop http://mevius.5ch.net/test/read.cgi/gamedev/1086858349/241
242: x≠先生かつx＝生徒 ⇒ x＝俺 [sage] 04/07/04 20:47 ID:WDudAYFD あ、インデントかけるの忘れとった。。。 ; 素数判定 with HSP 単純版 sdim log, 7000: notesel log title "素数判定 - Calculating..." mesbox log, 640, 480 repeat ,2 n = cnt repeat cnt-2, 2 if n \ cnt = 0: n = 0: break loop if n{ noteadd ""+cnt i++ if i >= 1000: break await } loop objprm 0, log title "素数判定" stop http://mevius.5ch.net/test/read.cgi/gamedev/1086858349/242
243: Ruby@素数高速化 [] 04/07/05 00:33 ID:K58VA1M5 以前のバージョン 43.702999830246秒 ループ 31343403回 新しいバージョン（奇数のみ評価、平方根までチェック) 0.921999931335449秒(約47倍) ループ 225062回(約139倍) 思ったより高速化されてﾋﾞｸｰﾘ print "2\n" count=1 loopCount=0 i=3 old=Time.now.to_f; while count<1000 do sosu=true for j in 3..Math.sqrt(i) do loopCount=loopCount+1 if ( (i % j) == 0) sosu=false end end if (sosu) print "#{i}\n" count=count+1 end i=i+2 end print " #{Time.now.to_f - old}秒かかりました\n" print " #{loopCount}回ループしました\n" print "素数を#{count}個みつけました\n" http://mevius.5ch.net/test/read.cgi/gamedev/1086858349/243
244: 名前は開発中のものです。 [] 04/07/05 01:37 ID:o/9mlWPU >>241を改良してみた。 ; 素数判定 with HSP 何気に高速版 title "素数判定 - Calculating..." #const MAX_COUNT 1000 ll_libload dll,"kernel32.dll" :ll_getproc func,"GetTickCount", dll ll_libfree dll :ll_retset refunc sdim log, 7 * MAX_COUNT :notesel log dim result, MAX_COUNT mesbox log, 640, 480 noteadd "2",0,1 :result.0 = 2 :count = 3 :i = 1 ;測定 ll_callfunc temp,0,func start = refunc repeat flg = 1; repeat i if count \ result.cnt = 0 : flg = 0 :break loop if flg { noteadd ""+count, -1 :result.i = count i++ :if i >= MAX_COUNT: break await } count += 2 loop ll_callfunc temp,0,func refunc -= start :dialog "" + refunc + "ms" objprm 0, log :title "素数判定" stop http://mevius.5ch.net/test/read.cgi/gamedev/1086858349/244
245: 名前は開発中のものです。 [sage] 04/07/05 07:17 ID:LZQQVRIy Delphiで素数 http://gamdev.org/up/img/805.zip http://mevius.5ch.net/test/read.cgi/gamedev/1086858349/245
246: 名前は開発中のものです。 [sage] 04/07/05 13:04 ID:LZQQVRIy 最速の素数判定アルゴリズム http://pc.2ch.net/tech/kako/993/993457354.html http://mevius.5ch.net/test/read.cgi/gamedev/1086858349/246
247: 名前は開発中のものです。 [sage] 04/07/05 20:13 ID:axn64mRQ すごいスレの流れと違うような気がしますが、 Cで、ウインドウ表示とか（課題3）、できないんですが･･･どうしたらいいんでしょうか？ http://mevius.5ch.net/test/read.cgi/gamedev/1086858349/247
248: 名前は開発中のものです。 [sage] 04/07/05 20:40 ID:q8IB8pY7 できないだけ書かれてもどうしようもない。 http://mevius.5ch.net/test/read.cgi/gamedev/1086858349/248
249: 名前は開発中のものです。 [sage] 04/07/05 20:57 ID:0DOOfkU1 >>247 猫でもわかるプログラミング ttp://www.kumei.ne.jp/c_lang/ このへんでまず勉強してこよう http://mevius.5ch.net/test/read.cgi/gamedev/1086858349/249
250: 名前は開発中のものです。 [sage] 04/07/05 22:48 ID:LZQQVRIy >>247 WinMainからはじまって CreateWindowでウィンドウの設定して ShowWindowで表示するだけだ http://mevius.5ch.net/test/read.cgi/gamedev/1086858349/250
251: HSPが初プログラム@生徒希望 [sage] 04/07/05 22:51 ID:ZZjGGIiZ sdim m,4000 : notesel m mesbox m,640,480 noteadd "2" m : noteadd "3" m : noteadd "5" m : noteadd "7" m n=7 c=4 *judge n+=2 if n\3=0 : goto *judge if n\5=0 : goto *judge if n\7=0 : goto *judge noteadd "n" m : c+ if c=1000 : goto *s goto *judge *s stop 素数はこれで出るカナと思ったんですが、エラー発生。原因を突き止められませんTT http://mevius.5ch.net/test/read.cgi/gamedev/1086858349/251
252: x≠先生かつx＝生徒 ⇒ x＝俺 [sage] 04/07/05 23:00 ID:pTJ3lo22 エラーを読も・・・・・Σ(；ﾟДﾟ)HSPがエラー吐いてない！ noteadd "*" m ~|~ 要らない。ここでエラーが出てる。 noteadd "n" ~|~ エラーの原因ではないが、""+nの誤り。 あと、objprm 0, mをstopの前に入れて出力させてあげよう。 http://mevius.5ch.net/test/read.cgi/gamedev/1086858349/252
253: HSPが初プログラム@生徒希望 [sage] 04/07/05 23:07 ID:ZZjGGIiZ >>252 thx でも、4363で終わりますがあってるんでしょうか? sdim m,4000 : notesel m mesbox m,640,480 noteadd "2" : noteadd "3" : noteadd "5" : noteadd "7" n=7 c=4 *judge n+=2 if n\3=0 : goto *judge if n\5=0 : goto *judge if n\7=0 : goto *judge noteadd ""+n : c+ if c=1000 : goto *s goto *judge *s objprm 0, m stop http://mevius.5ch.net/test/read.cgi/gamedev/1086858349/253
254: x≠先生かつx＝生徒 ⇒ x＝俺 [sage] 04/07/05 23:24 ID:pTJ3lo22 たしか7919のはずだけど・・・ 暇だしPerlとJava版の素数判定作ってみようかな。。。 http://mevius.5ch.net/test/read.cgi/gamedev/1086858349/254
255: 名前は開発中のものです。 [sage] 04/07/05 23:25 ID:MIzlaErt >>253 間違ってるよ・・・ 121とかあるし・・・11からの素数の合成数が出まくりやね。 http://mevius.5ch.net/test/read.cgi/gamedev/1086858349/255
256: 名前は開発中のものです。 [sage] 04/07/06 00:11 ID:hNVuoewj >>247 それは簡単だって！どっかのサイトに張ってあるやつをそのままコピペで完成だぁよぉ！ http://mevius.5ch.net/test/read.cgi/gamedev/1086858349/256
257: 名前は開発中のものです。 [sage] 04/07/06 01:48 ID:IHRV3HSb 素数スレになってるのだが・・・ http://mevius.5ch.net/test/read.cgi/gamedev/1086858349/257
258: 名前は開発中のものです。 [] 04/07/06 02:29 ID:pkSoPn0/ Delphi エラトステネスの篩 http://gamdev.org/up/img/810.zip http://mevius.5ch.net/test/read.cgi/gamedev/1086858349/258
259: x≠先生かつx＝生徒 ⇒ x＝俺 [sage] 04/07/06 07:38 ID:BOq5Vq10 #!D:\perl\bin\perl.exe print "Content-type: text/plain\n\n"; print "Start\n"; print "2\n"; $table[0] = 2; $i = 1; for(2..1000){ for($i += 2; ; $i += 2){ if(&IsPrime($i)){ last; } } } print "Finish"; exit(1); sub IsPrime{ (my $src) = @_; for($j = 0; $table[$j] <= sqrt($src); $j++){ if($src % $table[$j] == 0){ return 0; } } print $src."\n"; push(@table, $src); return 1; } # Perl版。printを取ってみると分かるけどPerlはインタープリタなのに # 結構処理速いね。。。 http://mevius.5ch.net/test/read.cgi/gamedev/1086858349/259
260: 名前は開発中のものです。 [sage] 04/07/06 12:03 ID:IHRV3HSb >>259 Perlは見かけ上インタプリタだけど、 処理はコンパイル後実行だと聞いたことがある。 http://mevius.5ch.net/test/read.cgi/gamedev/1086858349/260
261: 名前は開発中のものです。 [] 04/07/06 16:54 ID:pkSoPn0/ C#で素数 static void Main(string[] args) { int sosuCount=0; for (int i = 2; sosuCount<1000; i++) { Boolean nososu; nososu = false; for (int j = 2; j < i ; j++) { if ((i % j) == 0) { nososu = true; break; } } if (!nososu) { Console.WriteLine(i); sosuCount++; } } Console.WriteLine(sosuCount + "個の素数を発見しました"); } http://mevius.5ch.net/test/read.cgi/gamedev/1086858349/261
262: x≠先生かつx＝生徒 ⇒ x＝俺 [sage] 04/07/06 17:32 ID:BOq5Vq10 public class Prime { public final static int PRIME_MAX = 1000; static int PrimeTable[] = new int [PRIME_MAX]; static int TableLast = 1; public static void main(String[] args) { int l = 1; PrimeTable[0] = 2; System.out.println(2); for(; TableLast < PRIME_MAX; TableLast++) for(l += 2; ; l += 2) if(IsPrime(l)) break; System.out.println("Finish"); } public static boolean IsPrime(int src) { for(int i = 0; PrimeTable[i] <= Math.sqrt(src) && i < TableLast; i++) if(src % PrimeTable[i] == 0) return false; PrimeTable[TableLast] = src; System.out.println(src); return true; } } // Java版。 // あと手を付けてない言語は何だっけ。 // ・・・ひまわりでもやってみるか。 http://mevius.5ch.net/test/read.cgi/gamedev/1086858349/262
263: 名前は開発中のものです。 [] 04/07/06 18:09 ID:pkSoPn0/ //PHPで素数 <?php for ($i=2; $sosuCount<1000; $i++) { $nososu=false; for ($j=2; $j<$i; $j++) { if (($i % $j) == 0) { $nososu=true; break; } } if (!$nososu) { echo $i; echo "\n"; $sosuCount++; } } echo $sosuCount + "個の素数を発見しました"; ?> http://mevius.5ch.net/test/read.cgi/gamedev/1086858349/263
264: 名前は開発中のものです。 [] 04/07/06 18:57 ID:pkSoPn0/ #Pythonで素数 sosuCount=0 i=2 while sosuCount<1000: nososu=False j=2 while j<i: if ((i % j) == 0): nososu=True j=99999 break j=j+1 if (not nososu): print i sosuCount=sosuCount+1 i=i+1 print sosuCount print "個の素数を発見しました" http://mevius.5ch.net/test/read.cgi/gamedev/1086858349/264
ﾒﾓ帳
(0/65535文字)
上
下
前
次
1-
新
書
関
写
板
覧
索
設
栞
歴
あと 523 ﾚｽあります
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.010s