File: walters.c

package info (click to toggle)
isl 0.27-1
  • links: PTS
  • area: main
  • in suites: forky, sid, trixie
  • size: 20,476 kB
  • sloc: ansic: 230,339; python: 19,348; cpp: 7,165; sh: 4,701; makefile: 767; lisp: 207; perl: 9
file content (14 lines) | stat: -rw-r--r-- 378 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
S2(1, 0, 1, 0);
S4(1, 0, 1, 0);
S3(2, 0, 1, 1);
S4(2, 0, 1, 1);
for (int c0 = 3; c0 <= 10; c0 += 1) {
  if ((c0 + 1) % 3 == 0) {
    S3(c0, (c0 - 2) / 3, (c0 + 1) / 3, (c0 + 1) / 3);
  } else if (c0 % 3 == 0) {
    S1(c0, c0 / 3, c0 / 3, c0 / 3);
  } else {
    S2(c0, (c0 - 1) / 3, (c0 + 2) / 3, (c0 - 1) / 3);
  }
  S4(c0, c0 / 3, c0 - c0 / 3 - (c0 + 1) / 3, (c0 + 1) / 3);
}