<?xml version="1.0" encoding="UTF-8" ?>
<rss version='2.0'>
<channel>
<title>code-depot for VBA</title>
<description>新着投稿一覧</description>
<link>http://cdvba.bbs.fc2.com/</link>
<ttl>60</ttl>
<copyright>FC2, inc</copyright>
<item>
<title>(11)　潜る前に判定</title>
<author>_Kyle(1291004)</author>
<link>http://cdvba.bbs.fc2.com/?act=reply&amp;tid=3595424</link>
<description><![CDATA['-----------------------------------------------------------
'■qa7697154　：(11)　潜る前に判定
'abyssinia.bbs.fc2.com/ act=reply&amp;amp;tid=6924349#14806441
'
'memAryの判定前倒しにして再帰数減らしてみた。
'
'部屋数18，移動数20で10回テストして
'　最短　 38msec.　再帰数　   252回
'　最長　427msec.　再帰数　34,024回
'
'部屋数18，移動数30で10回テストして
'　最短　　 515msec.　再帰数　　 61,110回
'　最長　22,129msec.　再帰数　1,390,492回
'
'※要参照設定：Microsoft Scripting Runtime
'
'-----------------------------------]]></description>
<pubDate>Thu, 01 Jan 1970 09:00:00 +0900</pubDate>
</item>
<item>
<title>(10)　りふぁくたりんぐ３</title>
<author>_Kyle(1291004)</author>
<link>http://cdvba.bbs.fc2.com/?act=reply&amp;tid=3595424</link>
<description><![CDATA['-----------------------------------------------------------
'■qa7697154　：(10)　りふぁくたりんぐ３
'abyssinia.bbs.fc2.com/ act=reply&amp;amp;tid=6924349#14806441
'
't09もぐだぐだ過ぎたもよう　orz
'
'部屋数18，要素20対で10回テストして
'　最短　62msec.
'　最長　539msec.
'
'※要参照設定：Microsoft Scripting Runtime
'
'-----------------------------------------------------------
 
'-------------------------------------------------
'◆元質設定
  Dim t01(100) As Integer '事前設定
  Dim t02(100) As Integer '事前設定
  Dim ]]></description>
<pubDate>Thu, 01 Jan 1970 09:00:00 +0900</pubDate>
</item>
<item>
<title>(09)　りふぁくたりんぐ２</title>
<author>_Kyle(1291004)</author>
<link>http://cdvba.bbs.fc2.com/?act=reply&amp;tid=3595424</link>
<description><![CDATA['-----------------------------------------------------------
'■qa7697154　：(09)　りふぁくたりんぐ２
'abyssinia.bbs.fc2.com/ act=reply&amp;amp;tid=6924349#14789474
'
't08はさすがにぐだぐだ過ぎたもよう　orz
'
'部屋数18，要素20対で10回テストして
'　最短　 82msec.
'　最長　474msec.
'
'※要参照設定：Microsoft Scripting Runtime
'
'-----------------------------------------------------------
 
'-------------------------------------------------
'◆元質設定
  Dim t01(100) As Integer '事前設定
  Dim t02(100) As Integer '事前設]]></description>
<pubDate>Thu, 01 Jan 1970 09:00:00 +0900</pubDate>
</item>
<item>
<title>(08)　いつか来た道</title>
<author>_Kyle(1291004)</author>
<link>http://cdvba.bbs.fc2.com/?act=reply&amp;tid=3595424</link>
<description><![CDATA['-----------------------------------------------------------
'■qa7697154　：(08)　いつか来た道
'abyssinia.bbs.fc2.com/ act=reply&amp;amp;tid=6924349#14770732
'
'「空き部屋の状態によって必要な労力が決まる」
'というハナシ。
'
'
'部屋数18，要素20対で10回テストして
'　最短　  164msec.
'　最長　2,260msec.
'
'-----------------------------------------------------------
 
'-------------------------------------------------
'◆元質設定
  Dim t01(100) As Integer '事前設定
  Dim t02(100) As Integer '事前設定
  Dim ttt(100) As I]]></description>
<pubDate>Thu, 01 Jan 1970 09:00:00 +0900</pubDate>
</item>
<item>
<title>(07)　りふぁくたりんぐ？</title>
<author>_Kyle(1291004)</author>
<link>http://cdvba.bbs.fc2.com/?act=reply&amp;tid=3595424</link>
<description><![CDATA['-----------------------------------------------------------
'■qa7697154　：(07)　りふぁくたりんぐ？
'abyssinia.bbs.fc2.com/ act=reply&amp;amp;tid=6924349#14739912
'
'かえって饂飩になった。　orz
'
'でも速くなった。　＼(^o^)／
'
'部屋数18，要素20対で10回テストして
'　最短　　　 40msec.
'　最長　326,667msec.（５分半）
'
'-----------------------------------------------------------
 
'-------------------------------------------------
'◆元質設定
  Dim t01(100) As Integer '事前設定
  Dim t02(100) As Integer '事前設定
  D]]></description>
<pubDate>Thu, 01 Jan 1970 09:00:00 +0900</pubDate>
</item>
<item>
<title>(06)　どれを出しても一緒</title>
<author>_Kyle(1291004)</author>
<link>http://cdvba.bbs.fc2.com/?act=reply&amp;tid=3595424</link>
<description><![CDATA['-----------------------------------------------------------
'■qa7697154　：(06)　どれを出しても一緒
'abyssinia.bbs.fc2.com/ act=reply&amp;amp;tid=6924349#14731316
'
'同じ部屋から出すなら、どれを出しても一緒というハナシ
'
'部屋数18，要素20対で10回テストして
'　最短　      610msec.
'　最長　5,622,867msec.
'
'-----------------------------------------------------------
 
'-------------------------------------------------
'◆元質設定
Dim t01(100) As Integer '事前設定
Dim t02(100) As Integer '事前設定
Dim ttt(100) As Int]]></description>
<pubDate>Thu, 01 Jan 1970 09:00:00 +0900</pubDate>
</item>
<item>
<title>(05)　どこに置いても一緒</title>
<author>_Kyle(1291004)</author>
<link>http://cdvba.bbs.fc2.com/?act=reply&amp;tid=3595424</link>
<description><![CDATA['-----------------------------------------------------------
'■qa7697154　：(05)　どこに置いても一緒
'abyssinia.bbs.fc2.com/ act=reply&amp;amp;tid=6924349#14726531
 
'同じ部屋に入れるなら、どこに置いても一緒というハナシ
'
'饂飩な感じになっちゃいましたが、時間があったら直します。
'
'あと、動作仕様を元質に整合させました。
'-----------------------------------------------------------
 
'-------------------------------------------------
'◆元質設定
Dim t01(100) As Integer '事前設定
Dim t02(100) As Integer '事前設定
Dim t]]></description>
<pubDate>Thu, 01 Jan 1970 09:00:00 +0900</pubDate>
</item>
<item>
<title>(04)　近い場所から試す＋１</title>
<author>_Kyle(1291004)</author>
<link>http://cdvba.bbs.fc2.com/?act=reply&amp;tid=3595424</link>
<description><![CDATA['-----------------------------------------------------------
'■qa7697154　：(04)　近い場所から試す＋１
'abyssinia.bbs.fc2.com/ act=reply&amp;amp;tid=6924349#14725574
 
'・近い部屋から試す
'・最小コストを事前に積んでおく
'・変数名・プロシージャ名変更
 
'-----------------------------------------------------------
 
Declare Function timeGetTime Lib &amp;quot;winmm.dll&amp;quot; () As Long
 
Private Const maxCnt As Long = 100
 
Private cstTbl()               As Long
Private outAry(maxCnt, maxCnt) As Long
Private in_Ary(maxCnt)         A]]></description>
<pubDate>Thu, 01 Jan 1970 09:00:00 +0900</pubDate>
</item>
<item>
<title>(03)　暫定ベスト判定</title>
<author>_Kyle(1291004)</author>
<link>http://cdvba.bbs.fc2.com/?act=reply&amp;tid=3595424</link>
<description><![CDATA['-----------------------------------------------------------
'■qa7697154　：(03)　暫定ベスト判定
'abyssinia.bbs.fc2.com/ act=reply&amp;amp;tid=6924349#14708866
 
'ある時点の労力が、暫定ベストの労力を超えてしまったら
'その後どう選んでも無駄というハナシ
'
'所要時間　元コード比　0.32【パーセント】
  
'-----------------------------------------------------------
 
Declare Function timeGetTime Lib &amp;quot;winmm.dll&amp;quot; () As Long
 
Private Const maxCnt As Long = 100
 
Private cstTbl()        As Long
Private outAry(maxCnt)  As Long]]></description>
<pubDate>Thu, 01 Jan 1970 09:00:00 +0900</pubDate>
</item>
<item>
<title>(02)　ざっくり直す</title>
<author>_Kyle(1291004)</author>
<link>http://cdvba.bbs.fc2.com/?act=reply&amp;tid=3595424</link>
<description><![CDATA['-----------------------------------------------------------
'■qa7697154　：(02)　ざっくり直す
'abyssinia.bbs.fc2.com/ act=reply&amp;amp;tid=6924349#14706900
 
'とりあえず目に付いたところを
'ざっくり直してみました。
'
'再帰回数は元コード 及び t01と変わらずですが
'所要時間は元コード比96%減，t01比90%減です。
'
'でも、モジュールレベル変数並べてるので
'きっと怒られますね(^^;;;;
'
'itmCntの出し方は我ながら冗長ですが、
'この数字は事前に出てる条件なのでてきとーに。
'
't03以降、ココから刈っていきます。
  
'----------------]]></description>
<pubDate>Thu, 01 Jan 1970 09:00:00 +0900</pubDate>
</item>
</channel>
</rss>
