code wiki / _hdl_build / evoC_p_abs.nx
evoC_p_abs.nx source
↩ module page · 24 lines · 751 B
1// DISCOVERED BY nx_evo_cf (evolved control-flow program from examples) -- f(x) w/ a real if-branch, at a HELD-OUT x. license_tier: ORIGINAL
2import "nx_syscalls.nx"
3func main() -> i64 {
4 let x: i64 = -5
5 var acc: i64 = x
6 acc = acc
7 if acc < 0 {
8 acc = 0 - acc
9 }
10 acc = acc - x
11 acc = acc + x
12 if acc < 0 {
13 }
14 sys_write(1, "RESULT=" as *u8, 7)
15 var mm: i64 = acc
16 if mm < 0 { sys_write(1, "-" as *u8, 1); mm = 0 - mm }
17 let t: *u8 = sys_mmap(28)
18 var k: i64 = 0
19 if mm == 0 { t[0] = 48 as u8; k = 1 }
20 while mm > 0 { t[k] = (48 + (mm % 10)) as u8; mm = mm / 10; k = k + 1 }
21 while k > 0 { k = k - 1; sys_write(1, (((t as i64)+k) as *u8), 1) }
22 sys_write(1, "\n" as *u8, 1)
23 return 0
24}