[過去ログ]
【初心者】課題をクリアしていくスレ【講習会】 (787レス)
【初心者】課題をクリアしていくスレ【講習会】 http://mevius.5ch.net/test/read.cgi/gamedev/1086858349/
上
下
前次
1-
新
通常表示
512バイト分割
レス栞
抽出解除
必死チェッカー(本家)
(べ)
自ID
レス栞
あぼーん
このスレッドは過去ログ倉庫に格納されています。
次スレ検索
歴削→次スレ
栞削→次スレ
過去ログメニュー
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
メモ帳
(0/65535文字)
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
スレ情報
赤レス抽出
画像レス抽出
歴の未読スレ
AAサムネイル
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.019s