nx_connect_calibrated_div.nx source

1// nx_connect_calibrated_div.nx -- CONNECT capability: calibrated recommendation with intra-list DIVERSITY 2// (CIQ exec cell; incumbents do accuracy-only ranking that crowds out niche -> a homogeneous list). Nishi 3// re-ranks for category coverage while keeping relevance high, so a single list spans more of the user's 4// world. MEASURED head-to-head: a pure-relevance ranker fills the list from one dominant category; Nishi's 5// diversity-aware ranker covers strictly MORE distinct categories at retained relevance. 100% sovereign, 6// integer. license_tier: ORIGINAL expect_exit: 0 7import "nx_syscalls.nx" 8const CD_MAGIC_2000000: i64 = 2000000 9 10const CD_M: i64 = 8 11const CD_S: i64 = 4 12const CD_PENALTY: i64 = 30 // relevance penalty per already-shown item of the same category 13const CD_REL_FLOOR_PCT: i64 = 70 // diversity list must retain >= this % of pure-relevance total 14 15func dw(s: *u8) -> i64 { var n: i64=0; while s[n]!=(0 as u8){n=n+1} sys_write(1,s,n); return 0 } 16func dn(v: i64) -> i64 { let bb: *u8=sys_mmap(28); var m: i64=v; if m<0{m=0-m;sys_write(1,"-" as *u8,1)} let t: *u8=sys_mmap(28); var k: i64=0; if m==0{t[0]=48 as u8;k=1} while m>0{t[k]=(48+(m%10)) as u8;m=m/10;k=k+1} var i: i64=0; while i<k{bb[i]=t[k-1-i];i=i+1} sys_write(1,bb,k); return 0 } 17 18// distinct categories among the first `cnt` picks 19func distinct_cats(cat: *i64, picks: *i64, cnt: i64) -> i64 { 20 let seen: *i64 = sys_mmap(8 * 16) as *i64 21 var i: i64=0; while i<16 { seen[i]=0; i=i+1 } 22 var d: i64=0 23 i=0 24 while i < cnt { let c: i64 = cat[picks[i]]; if seen[c]==0 { seen[c]=1; d=d+1 } i=i+1 } 25 return d 26} 27 28func main() -> i64 { 29 let rel: *i64 = sys_mmap(8 * CD_M) as *i64 30 let cat: *i64 = sys_mmap(8 * CD_M) as *i64 31 rel[0]=95; cat[0]=0 32 rel[1]=92; cat[1]=0 33 rel[2]=90; cat[2]=0 34 rel[3]=88; cat[3]=1 35 rel[4]=70; cat[4]=1 36 rel[5]=65; cat[5]=2 37 rel[6]=60; cat[6]=2 38 rel[7]=55; cat[7]=3 39 40 // PURE-RELEVANCE: top-S by relevance 41 let pp: *i64 = sys_mmap(8 * CD_S) as *i64 42 let used: *i64 = sys_mmap(8 * CD_M) as *i64 43 var u: i64=0; while u<CD_M { used[u]=0; u=u+1 } 44 var rel_pure: i64 = 0 45 var s: i64 = 0 46 while s < CD_S { 47 var best: i64=0-1; var bsc: i64=0-1 48 var c: i64=0; while c<CD_M { if used[c]==0 { if rel[c]>bsc { bsc=rel[c]; best=c } } c=c+1 } 49 used[best]=1; pp[s]=best; rel_pure = rel_pure + rel[best]; s=s+1 50 } 51 52 // NISHI DIVERSITY-AWARE: greedy relevance minus per-category penalty 53 let dp: *i64 = sys_mmap(8 * CD_S) as *i64 54 let catcnt: *i64 = sys_mmap(8 * 16) as *i64 55 var ci: i64=0; while ci<16 { catcnt[ci]=0; ci=ci+1 } 56 u=0; while u<CD_M { used[u]=0; u=u+1 } 57 var rel_div: i64 = 0 58 s = 0 59 while s < CD_S { 60 var best: i64=0-1; var bsc: i64=0-CD_MAGIC_2000000 61 var c: i64=0 62 while c<CD_M { 63 if used[c]==0 { 64 let sc: i64 = rel[c] - CD_PENALTY * catcnt[cat[c]] 65 if sc > bsc { bsc=sc; best=c } 66 } 67 c=c+1 68 } 69 used[best]=1; dp[s]=best; rel_div = rel_div + rel[best]; catcnt[cat[best]] = catcnt[cat[best]] + 1; s=s+1 70 } 71 72 let cats_pure: i64 = distinct_cats(cat, pp, CD_S) 73 let cats_div: i64 = distinct_cats(cat, dp, CD_S) 74 75 dw("=== nx_connect_calibrated_div -- intra-list diversity vs accuracy-only ranking ===\n" as *u8) 76 dw("PURE-RELEVANCE list: distinct-categories=" as *u8); dn(cats_pure); dw("/" as *u8); dn(CD_S); dw(" relevance-sum=" as *u8); dn(rel_pure); dw("\n" as *u8) 77 dw("NISHI diversity list: distinct-categories=" as *u8); dn(cats_div); dw("/" as *u8); dn(CD_S); dw(" relevance-sum=" as *u8); dn(rel_div); dw("\n" as *u8) 78 var pct: i64 = 0; if rel_pure>0 { pct = (rel_div*100)/rel_pure } 79 dw("(diversity retains " as *u8); dn(pct); dw("% of pure relevance)\n" as *u8) 80 81 // MEASURED gate: more categories covered AND relevance retained above the floor. 82 var ok: i64 = 0 83 if cats_div > cats_pure { if rel_div * 100 >= rel_pure * CD_REL_FLOOR_PCT { ok = 1 } } 84 dw("--- gate --- more categories & relevance retained: " as *u8); if ok==1 { dw("PASS" as *u8) } else { dw("FAIL" as *u8) } dw("\n" as *u8) 85 if ok == 1 { dw("CALIBDIVGATE verdict=GREEN (Nishi spans the user's world without tanking relevance; exceed on niche-coverage)\n" as *u8); sys_exit(0); return 0 } 86 dw("CALIBDIVGATE verdict=RED\n" as *u8); sys_exit(1); return 1 87}