File: walters.c

package info (click to toggle)
isl 0.20-2
  • links: PTS
  • area: main
  • in suites: buster
  • size: 12,708 kB
  • sloc: ansic: 125,702; python: 5,770; sh: 4,291; cpp: 1,057; makefile: 497; lisp: 54; perl: 9
file content (16 lines) | stat: -rw-r--r-- 418 bytes parent folder | download | duplicates (9) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
{
  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 - 1) / 3 + 1, c0 - (c0 - 1) / 3 - c0 / 3 - 1);
  }
}