Select Code to Download

> perl -e 'print join q( ), map 1000003*(1<<$_) % 1001 % 4, (0..7)'
0 0 0 0 0 0 0 0

// C D M values are all 0 (modulo 4).
int step_cdm[1001] = { 0,0,0,0, 0,1,1,1, 0,2,2,2, 0,3, ... , 0,2,2,2, 
+0,1,1,1, 0,0,0,0, 0 };
...
if (step && step_ok(d7)) { q8 += step - 1; continue; }   // loop q8
if (d != 500) continue;
...