nx_anti_slop_gate.nx source
↩ module page · 48 lines · 2901 B
1// nx_anti_slop_gate.nx -- proves the anti-slop filter: real human content KEPT, slop DOWN-RANKED (never deleted).
2// license_tier: ORIGINAL
3import "nx_anti_slop.nx"
4import "nx_gate.nx"
5
6func asg_slen(s: *u8) -> i64 { var n: i64=0; while s[n]!=(0 as u8){n=n+1} return n }
7
8func main() -> i64 {
9 gw("=== nx_anti_slop_gate: surface real content, down-rank slop (never delete) ===\n" as *u8)
10 var pass: i64=0; var tot: i64=0
11
12 let real: *u8 = "the quick brown fox jumps over the lazy dog while the sun sets behind distant mountains and rivers" as *u8
13 let spam: *u8 = "casino casino casino casino casino casino casino casino casino bonus" as *u8
14 let thin: *u8 = "hello world" as *u8
15
16 let qr: i64 = as_quality(real, asg_slen(real))
17 let qs: i64 = as_quality(spam, asg_slen(spam))
18 let qt: i64 = as_quality(thin, asg_slen(thin))
19
20 tot=tot+1; if as_keep(qr)==1 { pass=pass+1; gw(" [PASS] " as *u8) } else { gw(" [FAIL] " as *u8) }
21 gw("T1 real human content KEPT (quality=" as *u8); gn(qr); gw(" >= 500)\n" as *u8)
22
23 tot=tot+1; if as_keep(qs)==0 { pass=pass+1; gw(" [PASS] " as *u8) } else { gw(" [FAIL] " as *u8) }
24 gw("T2 keyword-stuffed spam DOWN-RANKED (quality=" as *u8); gn(qs); gw(" < 500)\n" as *u8)
25
26 tot=tot+1; if as_keep(qt)==0 { pass=pass+1; gw(" [PASS] " as *u8) } else { gw(" [FAIL] " as *u8) }
27 gw("T3 thin content DOWN-RANKED (quality=" as *u8); gn(qt); gw(" < 500)\n" as *u8)
28
29 // NEUTRALITY: down-rank never deletes -- even the worst slop keeps a positive score (still appears, just lower).
30 let applied_spam: i64 = as_apply(100, qs)
31 tot=tot+1; if applied_spam > 0 { pass=pass+1; gw(" [PASS] " as *u8) } else { gw(" [FAIL] " as *u8) }
32 gw("T4 NEUTRALITY: slop is down-ranked, NOT removed (base 100 -> " as *u8); gn(applied_spam); gw(" > 0; no dead-internet wall)\n" as *u8)
33
34 // real ranks ABOVE slop at equal base relevance.
35 let ar: i64 = as_apply(1000, qr); let asp: i64 = as_apply(1000, qs)
36 tot=tot+1; if ar > asp { pass=pass+1; gw(" [PASS] " as *u8) } else { gw(" [FAIL] " as *u8) }
37 gw("T5 real outranks slop at equal base (real " as *u8); gn(ar); gw(" > slop " as *u8); gn(asp); gw(")\n" as *u8)
38
39 gw("\n=== nx_anti_slop_gate " as *u8); gn(pass); gw("/" as *u8); gn(tot); gw(" ===\n" as *u8)
40 let lfd: i64=sys_openat_append("knowledge/status/anti_slop_gate.log" as *u8, 420)
41 if pass==tot {
42 if lfd>=0 { sys_write(lfd, "ANTI-SLOP-GATE verdict=GREEN real-kept slop-downranked-not-deleted\n" as *u8, 65); sys_close(lfd) }
43 gw("ANTI-SLOP GREEN -- surfaces real human content, down-ranks AI-slop/stuffing/thin WITHOUT deleting (composes the neutrality charter); the 2026 relevance edge\n" as *u8)
44 sys_exit(0); return 0
45 }
46 if lfd>=0 { sys_write(lfd, "ANTI-SLOP-GATE verdict=RED\n" as *u8, 26); sys_close(lfd) }
47 gw("ANTI-SLOP RED\n" as *u8); sys_exit(1); return 1
48}