Haskell::OGR-nの探索(その6′)

しょうもないミスをしていたのと、2分探索の過程で明らかに無駄な計算をしていたので修正。

ogr6_.hs

改めて計算時間を測定。

3:([0,1,3],[0,2,3])
0.000u 0.001s 0:00.00 0.0%      0+0k 0+0io 0pf+0w
4:([0,1,4,6],[0,2,5,6])
0.000u 0.001s 0:00.00 0.0%      0+0k 0+0io 0pf+0w
5:([0,1,4,9,11],[0,2,7,10,11])
5:([0,2,7,8,11],[0,3,4,9,11])
0.002u 0.001s 0:00.00 0.0%      0+0k 0+0io 0pf+0w
6:([0,1,4,10,12,17],[0,5,7,13,16,17])
6:([0,1,4,10,15,17],[0,2,7,13,16,17])
6:([0,1,8,11,13,17],[0,4,6,9,16,17])
6:([0,1,8,12,14,17],[0,3,5,9,16,17])
0.005u 0.001s 0:00.00 0.0%      0+0k 0+0io 0pf+0w
7:([0,2,3,10,16,21,25],[0,4,9,15,22,23,25])
7:([0,1,4,10,18,23,25],[0,2,7,15,21,24,25])
7:([0,1,7,11,20,23,25],[0,2,5,14,18,24,25])
7:([0,1,11,16,19,23,25],[0,2,6,9,14,24,25])
7:([0,2,7,13,21,22,25],[0,3,4,12,18,23,25])
0.031u 0.001s 0:00.03 100.0%    720+816k 0+0io 0pf+0w
8:([0,1,4,9,15,22,32,34],[0,2,12,19,25,30,33,34])
0.389u 0.007s 0:00.39 97.4%     738+837k 0+0io 0pf+0w
9:([0,1,5,12,25,27,35,41,44],[0,3,9,17,19,32,39,43,44])
5.128u 0.001s 0:05.12 100.0%    719+815k 0+0io 0pf+0w
10:([0,1,6,10,23,26,34,41,53,55],[0,2,14,21,29,32,45,49,54,55])
91.360u 0.105s 1:31.48 99.9%    717+813k 0+0io 0pf+0w

n=10も正しい計算結果が得られているし、計算時間も削減されている。
n=11は計算中なので、完了後追記。

追記:
n=11の計算が完了。
11:([0,1,4,13,28,33,47,54,64,70,72],[0,2,8,18,25,39,44,59,68,71,72])
11:([0,1,9,19,24,31,52,56,58,69,72],[0,3,14,16,20,41,48,53,63,71,72])
1946.184u 1.594s 32:33.37 99.7% 717+813k 0+0io 0pf+0w

思っていたよりも、相当早く完了したので、ついでにn=12にもチャレンジ中。

追記’:
n=12の計算が完了。
12:([0,2,6,24,29,40,43,55,68,75,76,85],[0,9,10,17,30,42,45,56,61,79,83,85])
9803.742u 9.778s 2:43:56.58 99.7%       717+813k 0+0io 0pf+0w

あれ? 1日ぐらいはかかるかと思ってたのに、3時間足らずで計算できちゃった。結果も間違ってないようだし。
んでは、n=13もチャレンジしてみますか。