sj_probe_a1.nx source
↩ module page · 61 lines · 1977 B
1// GENERATED by nx_symjudge -- sweep harness, do not edit
2import "nx_syscalls.nx"
3func absdiff(a: i64, b: i64) -> i64 { if a < b { return b - a } return a - b }
4func sjh_w(s: *u8) -> i64 { var n: i64 = 0; while s[n] != (0 as u8) { n = n + 1 } sys_write(1, s, n); return 0 }
5func sjh_nl() -> i64 { let b: *u8 = sys_mmap(8); b[0] = 10 as u8; sys_write(1, b, 1); return 0 }
6func sjh_n(v: i64) -> i64 {
7 var m: i64 = v
8 if m < 0 { let nb: *u8 = sys_mmap(8); nb[0] = 45 as u8; sys_write(1, nb, 1); m = 0 - m }
9 let t: *u8 = sys_mmap(24)
10 var k: i64 = 0
11 if m == 0 { t[0] = 48 as u8; k = 1 }
12 while m > 0 { t[k] = (48 + (m % 10)) as u8; m = m / 10; k = k + 1 }
13 let ob: *u8 = sys_mmap(24)
14 var i: i64 = 0
15 while i < k { ob[i] = t[k - 1 - i]; i = i + 1 }
16 sys_write(1, ob, k)
17 return 0
18}
19func main() -> i64 {
20 var viol: i64 = 0
21 var checked: i64 = 0
22 var vrep: i64 = 0
23 var x: i64 = (0 - 30)
24 while x <= 30 {
25 var y: i64 = (0 - 30)
26 while y <= 30 {
27 let r: i64 = absdiff(x, y)
28 let rc0: i64 = absdiff(y, x)
29 if rc0 != r { viol = viol + 1
30 if vrep == 0 { vrep = 1
31 sjh_w("SYMJVIOL comm x=" as *u8)
32 sjh_n(x)
33 sjh_w(" y=" as *u8)
34 sjh_n(y)
35 sjh_w(" r=" as *u8)
36 sjh_n(r)
37 sjh_nl() } }
38 var bad1: i64 = 0
39 if r < 0 { bad1 = 1 }
40 if r > 60 { bad1 = 1 }
41 if bad1 == 1 { viol = viol + 1
42 if vrep == 0 { vrep = 1
43 sjh_w("SYMJVIOL range x=" as *u8)
44 sjh_n(x)
45 sjh_w(" y=" as *u8)
46 sjh_n(y)
47 sjh_w(" r=" as *u8)
48 sjh_n(r)
49 sjh_nl() } }
50 checked = checked + 1
51 y = y + 1
52 }
53 x = x + 1
54 }
55 sjh_w("SYMJ absdiff checked=" as *u8)
56 sjh_n(checked)
57 sjh_w(" viol=" as *u8)
58 sjh_n(viol)
59 sjh_nl()
60 return 0
61}