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
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233 | #include <stdio.h>
#include <stdlib.h>
#include <stdint.h>
#include <limits.h>
#include <errno.h>
// Kosaraju Strongly Connected Components in C
//
// PURPOSE
// Strongly connected components group vertices that can reach each other in both directions.
//
// METHOD
// First perform iterative DFS to record finishing order. Traverse vertices in reverse
// finishing order using incoming edges, counting each newly discovered component.
//
// COMPLEXITY
// O(n squared) time for the dense matrix and O(n) auxiliary space.
//
// CONTRACT
// Flattened n by n directed 0/1 matrix. Returns number of components; empty graph returns
// zero.
// Public APIs infer array lengths except in C, which accepts pointer/length pairs. Vertex
// counts and matrix dimensions remain explicit. Arrays must contain signed 32-bit integers.
// Sorted order, correct tree topology, and caller-owned data-structure invariants are
// preconditions; checking them on every query would change query complexity.
// Scalar and shape checks are included. Value-range checks are included where needed to
// prevent invalid indexing or nontermination. Allocation sizes are capped at 4,000,000
// workspace entries. Arithmetic outside Python raises an error on 32-bit overflow; Python
// uses arbitrary precision. Native allocation failures propagate. In-place outputs may be
// partly updated after arithmetic failure. These are single-threaded, in-memory
// implementations.
//
// LANGUAGE DETAILS
// C99: checked calloc/free workspace, const input pointers, explicit size_t lengths. Errors
// return INT_MIN with errno=EINVAL, ERANGE, or ENOMEM. Check errno before using a result.
// Input/output arrays must not alias. No variable-length stack arrays.
//
// EXAMPLE
// Expected return: 2.
// Run: gcc -std=c99 -O2 example.c -o example && ./example
// Tests for this exact source artifact run before publication. The accompanying source
// archive includes unit cases, runtime results, and source hashes.
static int alg_min(int a, int b) { return a < b ? a : b; }
static int alg_max(int a, int b) { return a > b ? a : b; }
static int alg_checked(int64_t v, int *error) {
if (v < INT_MIN || v > INT_MAX) { *error = 1; return 0; }
return (int)v;
}
static int alg_add(int a, int b, int *e) { return alg_checked((int64_t)a+b,e); }
static int alg_sub(int a, int b, int *e) { return alg_checked((int64_t)a-b,e); }
static int alg_mul(int a, int b, int *e) { return alg_checked((int64_t)a*b,e); }
int scc_count(const int *graph, size_t graph_length, int n) {
int alg_error = 0;
int alg_result = INT_MIN;
errno = 0;
int *seen = NULL;
int *stack = NULL;
int *next_vertex = NULL;
int *order = NULL;
if (graph_length > 1000000 || (graph_length && !graph)) { errno = EINVAL; alg_result = INT_MIN; goto alg_cleanup; }
if (!(((n >= 0) && (n <= 1000000)))) { errno = EINVAL; alg_result = INT_MIN; goto alg_cleanup; }
if (alg_error) { errno = ERANGE; alg_result = INT_MIN; goto alg_cleanup; }
if (!(((int)graph_length == alg_mul(n, n, &alg_error)))) { errno = EINVAL; alg_result = INT_MIN; goto alg_cleanup; }
if (alg_error) { errno = ERANGE; alg_result = INT_MIN; goto alg_cleanup; }
{
int alg_length = alg_add(n, 1, &alg_error);
if (alg_error) { errno = ERANGE; alg_result = INT_MIN; goto alg_cleanup; }
if (alg_length < 0 || alg_length > 4000000) { errno = EINVAL; alg_result = INT_MIN; goto alg_cleanup; }
seen = calloc((size_t)(alg_length ? alg_length : 1), sizeof(*seen));
if (!seen) { errno = ENOMEM; alg_result = INT_MIN; goto alg_cleanup; }
}
{
int alg_length = alg_add(n, 1, &alg_error);
if (alg_error) { errno = ERANGE; alg_result = INT_MIN; goto alg_cleanup; }
if (alg_length < 0 || alg_length > 4000000) { errno = EINVAL; alg_result = INT_MIN; goto alg_cleanup; }
stack = calloc((size_t)(alg_length ? alg_length : 1), sizeof(*stack));
if (!stack) { errno = ENOMEM; alg_result = INT_MIN; goto alg_cleanup; }
}
{
int alg_length = alg_add(n, 1, &alg_error);
if (alg_error) { errno = ERANGE; alg_result = INT_MIN; goto alg_cleanup; }
if (alg_length < 0 || alg_length > 4000000) { errno = EINVAL; alg_result = INT_MIN; goto alg_cleanup; }
next_vertex = calloc((size_t)(alg_length ? alg_length : 1), sizeof(*next_vertex));
if (!next_vertex) { errno = ENOMEM; alg_result = INT_MIN; goto alg_cleanup; }
}
{
int alg_length = alg_add(n, 1, &alg_error);
if (alg_error) { errno = ERANGE; alg_result = INT_MIN; goto alg_cleanup; }
if (alg_length < 0 || alg_length > 4000000) { errno = EINVAL; alg_result = INT_MIN; goto alg_cleanup; }
order = calloc((size_t)(alg_length ? alg_length : 1), sizeof(*order));
if (!order) { errno = ENOMEM; alg_result = INT_MIN; goto alg_cleanup; }
}
int source = 0;
if (alg_error) { errno = ERANGE; alg_result = INT_MIN; goto alg_cleanup; }
int top = 0;
if (alg_error) { errno = ERANGE; alg_result = INT_MIN; goto alg_cleanup; }
int finished = 0;
if (alg_error) { errno = ERANGE; alg_result = INT_MIN; goto alg_cleanup; }
int u = 0;
if (alg_error) { errno = ERANGE; alg_result = INT_MIN; goto alg_cleanup; }
int v = 0;
if (alg_error) { errno = ERANGE; alg_result = INT_MIN; goto alg_cleanup; }
int count = 0;
if (alg_error) { errno = ERANGE; alg_result = INT_MIN; goto alg_cleanup; }
while (1) {
int alg_condition = (source < n);
if (alg_error) { errno = ERANGE; alg_result = INT_MIN; goto alg_cleanup; }
if (!alg_condition) break;
int alg_condition_1 = (seen[source] == 0);
if (alg_error) { errno = ERANGE; alg_result = INT_MIN; goto alg_cleanup; }
if (alg_condition_1) {
stack[0] = source;
if (alg_error) { errno = ERANGE; alg_result = INT_MIN; goto alg_cleanup; }
top = 1;
if (alg_error) { errno = ERANGE; alg_result = INT_MIN; goto alg_cleanup; }
seen[source] = 1;
if (alg_error) { errno = ERANGE; alg_result = INT_MIN; goto alg_cleanup; }
while (1) {
int alg_condition = (top > 0);
if (alg_error) { errno = ERANGE; alg_result = INT_MIN; goto alg_cleanup; }
if (!alg_condition) break;
u = stack[alg_sub(top, 1, &alg_error)];
if (alg_error) { errno = ERANGE; alg_result = INT_MIN; goto alg_cleanup; }
int alg_condition_2 = (next_vertex[u] == n);
if (alg_error) { errno = ERANGE; alg_result = INT_MIN; goto alg_cleanup; }
if (alg_condition_2) {
order[finished] = u;
if (alg_error) { errno = ERANGE; alg_result = INT_MIN; goto alg_cleanup; }
finished = alg_add(finished, 1, &alg_error);
if (alg_error) { errno = ERANGE; alg_result = INT_MIN; goto alg_cleanup; }
top = alg_sub(top, 1, &alg_error);
if (alg_error) { errno = ERANGE; alg_result = INT_MIN; goto alg_cleanup; }
} else {
v = next_vertex[u];
if (alg_error) { errno = ERANGE; alg_result = INT_MIN; goto alg_cleanup; }
next_vertex[u] = alg_add(next_vertex[u], 1, &alg_error);
if (alg_error) { errno = ERANGE; alg_result = INT_MIN; goto alg_cleanup; }
int alg_condition_3 = ((graph[alg_add(alg_mul(u, n, &alg_error), v, &alg_error)] != 0) && (seen[v] == 0));
if (alg_error) { errno = ERANGE; alg_result = INT_MIN; goto alg_cleanup; }
if (alg_condition_3) {
seen[v] = 1;
if (alg_error) { errno = ERANGE; alg_result = INT_MIN; goto alg_cleanup; }
stack[top] = v;
if (alg_error) { errno = ERANGE; alg_result = INT_MIN; goto alg_cleanup; }
top = alg_add(top, 1, &alg_error);
if (alg_error) { errno = ERANGE; alg_result = INT_MIN; goto alg_cleanup; }
}
}
}
}
source = alg_add(source, 1, &alg_error);
if (alg_error) { errno = ERANGE; alg_result = INT_MIN; goto alg_cleanup; }
}
source = 0;
if (alg_error) { errno = ERANGE; alg_result = INT_MIN; goto alg_cleanup; }
while (1) {
int alg_condition = (source < n);
if (alg_error) { errno = ERANGE; alg_result = INT_MIN; goto alg_cleanup; }
if (!alg_condition) break;
seen[source] = 0;
if (alg_error) { errno = ERANGE; alg_result = INT_MIN; goto alg_cleanup; }
source = alg_add(source, 1, &alg_error);
if (alg_error) { errno = ERANGE; alg_result = INT_MIN; goto alg_cleanup; }
}
while (1) {
int alg_condition = (finished > 0);
if (alg_error) { errno = ERANGE; alg_result = INT_MIN; goto alg_cleanup; }
if (!alg_condition) break;
finished = alg_sub(finished, 1, &alg_error);
if (alg_error) { errno = ERANGE; alg_result = INT_MIN; goto alg_cleanup; }
source = order[finished];
if (alg_error) { errno = ERANGE; alg_result = INT_MIN; goto alg_cleanup; }
int alg_condition_4 = (seen[source] == 0);
if (alg_error) { errno = ERANGE; alg_result = INT_MIN; goto alg_cleanup; }
if (alg_condition_4) {
count = alg_add(count, 1, &alg_error);
if (alg_error) { errno = ERANGE; alg_result = INT_MIN; goto alg_cleanup; }
stack[0] = source;
if (alg_error) { errno = ERANGE; alg_result = INT_MIN; goto alg_cleanup; }
top = 1;
if (alg_error) { errno = ERANGE; alg_result = INT_MIN; goto alg_cleanup; }
seen[source] = 1;
if (alg_error) { errno = ERANGE; alg_result = INT_MIN; goto alg_cleanup; }
while (1) {
int alg_condition = (top > 0);
if (alg_error) { errno = ERANGE; alg_result = INT_MIN; goto alg_cleanup; }
if (!alg_condition) break;
top = alg_sub(top, 1, &alg_error);
if (alg_error) { errno = ERANGE; alg_result = INT_MIN; goto alg_cleanup; }
u = stack[top];
if (alg_error) { errno = ERANGE; alg_result = INT_MIN; goto alg_cleanup; }
v = 0;
if (alg_error) { errno = ERANGE; alg_result = INT_MIN; goto alg_cleanup; }
while (1) {
int alg_condition = (v < n);
if (alg_error) { errno = ERANGE; alg_result = INT_MIN; goto alg_cleanup; }
if (!alg_condition) break;
int alg_condition_5 = ((graph[alg_add(alg_mul(v, n, &alg_error), u, &alg_error)] != 0) && (seen[v] == 0));
if (alg_error) { errno = ERANGE; alg_result = INT_MIN; goto alg_cleanup; }
if (alg_condition_5) {
seen[v] = 1;
if (alg_error) { errno = ERANGE; alg_result = INT_MIN; goto alg_cleanup; }
stack[top] = v;
if (alg_error) { errno = ERANGE; alg_result = INT_MIN; goto alg_cleanup; }
top = alg_add(top, 1, &alg_error);
if (alg_error) { errno = ERANGE; alg_result = INT_MIN; goto alg_cleanup; }
}
v = alg_add(v, 1, &alg_error);
if (alg_error) { errno = ERANGE; alg_result = INT_MIN; goto alg_cleanup; }
}
}
}
}
alg_result = count;
if (alg_error) { errno = ERANGE; alg_result = INT_MIN; goto alg_cleanup; }
goto alg_cleanup;
alg_cleanup:
free(seen);
free(stack);
free(next_vertex);
free(order);
return alg_result;
}
int main(void) {
int graph[] = {0, 1, 0, 1, 0, 1, 0, 0, 0};
int n = 3;
int result = scc_count(graph, 9, n);
printf("%d\n", result);
if (errno) { perror("algorithm"); return 1; }
return 0;
}
|