1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
|
# -*- perl -*-
use strict;
use Set::IntSpan 1.17;
my $N = 1;
sub Not { print "not " }
sub OK { print "ok ", $N++, "\n" }
my @tests =
(
[ [] , 0, 0 ],
[ [ 1 ], 0, 0 ],
[ [ 1 ], 1, 0 ],
[ [ 1 ], 2, 1 ],
[ [ 1, 2 ], 0, 0 ],
[ [ 1, 2 ], 1, 0 ],
[ [ 1, 2 ], 2, 1 ],
[ [ 1, 2 ], 3, 2 ],
[ [ 1, 3 ], 0, 0 ],
[ [ 1, 3 ], 1, 0 ],
[ [ 1, 3 ], 2, 1 ],
[ [ 1, 3 ], 3, 1 ],
[ [ 1, 3 ], 4, 2 ],
[ [ 1, 3, 5 ], 0, 0 ],
[ [ 1, 3, 5 ], 1, 0 ],
[ [ 1, 3, 5 ], 2, 1 ],
[ [ 1, 3, 5 ], 3, 1 ],
[ [ 1, 3, 5 ], 4, 2 ],
[ [ 1, 3, 5 ], 5, 2 ],
[ [ 1, 3, 5 ], 6, 3 ],
[ [ 1, 3, 5, 7 ], 0, 0 ],
[ [ 1, 3, 5, 7 ], 1, 0 ],
[ [ 1, 3, 5, 7 ], 2, 1 ],
[ [ 1, 3, 5, 7 ], 3, 1 ],
[ [ 1, 3, 5, 7 ], 4, 2 ],
[ [ 1, 3, 5, 7 ], 5, 2 ],
[ [ 1, 3, 5, 7 ], 6, 3 ],
[ [ 1, 3, 5, 7 ], 7, 3 ],
[ [ 1, 3, 5, 7 ], 8, 4 ],
[ [ 1, 3, 5, 7, 9 ], 0, 0 ],
[ [ 1, 3, 5, 7, 9 ], 1, 0 ],
[ [ 1, 3, 5, 7, 9 ], 2, 1 ],
[ [ 1, 3, 5, 7, 9 ], 3, 1 ],
[ [ 1, 3, 5, 7, 9 ], 4, 2 ],
[ [ 1, 3, 5, 7, 9 ], 5, 2 ],
[ [ 1, 3, 5, 7, 9 ], 6, 3 ],
[ [ 1, 3, 5, 7, 9 ], 7, 3 ],
[ [ 1, 3, 5, 7, 9 ], 8, 4 ],
[ [ 1, 3, 5, 7, 9 ], 9, 4 ],
[ [ 1, 3, 5, 7, 9 ], 10, 5 ],
[ [ 1, 3, 5, 7, 9, 11 ], 0, 0 ],
[ [ 1, 3, 5, 7, 9, 11 ], 1, 0 ],
[ [ 1, 3, 5, 7, 9, 11 ], 2, 1 ],
[ [ 1, 3, 5, 7, 9, 11 ], 3, 1 ],
[ [ 1, 3, 5, 7, 9, 11 ], 4, 2 ],
[ [ 1, 3, 5, 7, 9, 11 ], 5, 2 ],
[ [ 1, 3, 5, 7, 9, 11 ], 6, 3 ],
[ [ 1, 3, 5, 7, 9, 11 ], 7, 3 ],
[ [ 1, 3, 5, 7, 9, 11 ], 8, 4 ],
[ [ 1, 3, 5, 7, 9, 11 ], 9, 4 ],
[ [ 1, 3, 5, 7, 9, 11 ], 10, 5 ],
[ [ 1, 3, 5, 7, 9, 11 ], 11, 5 ],
[ [ 1, 3, 5, 7, 9, 11 ], 12, 6 ],
[ [ 1, 3, 5, 7, 9, 11, 13 ], 0, 0 ],
[ [ 1, 3, 5, 7, 9, 11, 13 ], 1, 0 ],
[ [ 1, 3, 5, 7, 9, 11, 13 ], 2, 1 ],
[ [ 1, 3, 5, 7, 9, 11, 13 ], 3, 1 ],
[ [ 1, 3, 5, 7, 9, 11, 13 ], 4, 2 ],
[ [ 1, 3, 5, 7, 9, 11, 13 ], 5, 2 ],
[ [ 1, 3, 5, 7, 9, 11, 13 ], 6, 3 ],
[ [ 1, 3, 5, 7, 9, 11, 13 ], 7, 3 ],
[ [ 1, 3, 5, 7, 9, 11, 13 ], 8, 4 ],
[ [ 1, 3, 5, 7, 9, 11, 13 ], 9, 4 ],
[ [ 1, 3, 5, 7, 9, 11, 13 ], 10, 5 ],
[ [ 1, 3, 5, 7, 9, 11, 13 ], 11, 5 ],
[ [ 1, 3, 5, 7, 9, 11, 13 ], 12, 6 ],
[ [ 1, 3, 5, 7, 9, 11, 13 ], 13, 6 ],
[ [ 1, 3, 5, 7, 9, 11, 13 ], 14, 7 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15 ], 0, 0 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15 ], 1, 0 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15 ], 2, 1 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15 ], 3, 1 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15 ], 4, 2 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15 ], 5, 2 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15 ], 6, 3 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15 ], 7, 3 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15 ], 8, 4 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15 ], 9, 4 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15 ], 10, 5 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15 ], 11, 5 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15 ], 12, 6 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15 ], 13, 6 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15 ], 14, 7 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15 ], 15, 7 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15 ], 16, 8 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15, 17 ], 0, 0 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15, 17 ], 1, 0 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15, 17 ], 2, 1 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15, 17 ], 3, 1 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15, 17 ], 4, 2 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15, 17 ], 5, 2 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15, 17 ], 6, 3 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15, 17 ], 7, 3 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15, 17 ], 8, 4 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15, 17 ], 9, 4 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15, 17 ], 10, 5 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15, 17 ], 11, 5 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15, 17 ], 12, 6 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15, 17 ], 13, 6 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15, 17 ], 14, 7 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15, 17 ], 15, 7 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15, 17 ], 16, 8 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15, 17 ], 17, 8 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15, 17 ], 18, 9 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15, 17, 19 ], 0, 0 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15, 17, 19 ], 1, 0 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15, 17, 19 ], 2, 1 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15, 17, 19 ], 3, 1 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15, 17, 19 ], 4, 2 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15, 17, 19 ], 5, 2 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15, 17, 19 ], 6, 3 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15, 17, 19 ], 7, 3 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15, 17, 19 ], 8, 4 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15, 17, 19 ], 9, 4 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15, 17, 19 ], 10, 5 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15, 17, 19 ], 11, 5 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15, 17, 19 ], 12, 6 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15, 17, 19 ], 13, 6 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15, 17, 19 ], 14, 7 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15, 17, 19 ], 15, 7 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15, 17, 19 ], 16, 8 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15, 17, 19 ], 17, 8 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15, 17, 19 ], 18, 9 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15, 17, 19 ], 19, 9 ],
[ [ 1, 3, 5, 7, 9, 11, 13, 15, 17, 19 ], 20, 10 ],
);
print "1..", scalar @tests, "\n";
for my $test (@tests)
{
my($edges, $target, $expected) = @$test;
my $actual = Set::IntSpan::_bsearch($edges, $target);
$expected==$actual or Not; OK;
}
|
