# W14/F8 differential probe corpus — one expression per line.
# Same expression evaluated on the native server (epoch protocol) and the
# shipped WASM kernel (K.eval); scripts/test-differential.sh diffs results.
# Classes drawn from review findings F-1 (integer arithmetic), F-3 (apply,
# dict key order), F-8 itemization, S-4 (float printing), K18/K53.
# integers & display (F-1)
(+ 1 2)
(- 10 3)
(* 6 7)
(/ 4 2)
(/ 1 2)
(/ 10 4)
(quotient 13 4)
(mod 10 3)
# float printing (S-4)
(+ 0.1 0.2)
(* 3 0.1)
(/ 1 3)
(str 0.3)
(str 1.5)
(str 2.0)
# overflow / expt (K18)
(expt 2 10)
(expt 2 62)
(expt 2 100)
(+ 9223372036854775807 1)
# apply (F-3)
(apply + (list 1 2 3))
(apply max (list 1 5 2))
(apply str (list "a" "b"))
# dict key order (F-3)
(keys {:b 2 :a 1 :c 3})
(str {:b 2 :a 1})
(vals {:b 2 :a 1})
# strings
(split "a,b,c" ",")
(split "a--b" "--")
(len "héllo")
(upcase "abc")
(str (char-code "A"))
(substring "hello" 1 3)
(join "-" (list "x" "y"))
# equality & comparison
(= 1 1.0)
(= (list 1 2) (list 1 2))
(equal? (list 1) (list 1))
(< 1 2 3)
# collections
(sort (list 3 1 2))
(range 3)
(reverse (list 1 2 3))
(nth (list 10 20 30) 1)
(contains? {:a 1} :a)
(get {:a 1} :zz 99)
# quasiquote / quote
(quasiquote (1 (unquote (+ 1 1)) 3))
(str (quote sym))
# conditionals & special forms
(if true 1 2)
(and 1 2 3)
(or nil false 7)
(do ((fn (x) x) 5) 99)
# error normalization (both sides should error)
(undefined-symbol-xyz)
(/ 1 0)