ocaml: phase 4 bitwise ops land/lor/lxor/lsl/lsr/asr + bits.ml baseline (+5 tests, 607 total)
Some checks failed
Test, Build, and Deploy / test-build-deploy (push) Failing after 24s
Some checks failed
Test, Build, and Deploy / test-build-deploy (push) Failing after 24s
The binop precedence table already had land/lor/lxor/lsl/lsr/asr (iter 0 setup) but eval-op fell through to 'unknown operator' for all of them. SX doesn't expose host bitwise primitives, so each is implemented in eval.sx via arithmetic on the host: land/lor/lxor: mask & shift loop, accumulating 1<<k digits lsl k: repeated * 2 k times lsr k: repeated floor (/ 2) k times asr: aliased to lsr (no sign extension at our bit width) bits.ml baseline: popcount via 'while m > 0 do if m land 1 = 1 then ... ; m := m lsr 1 done'. Sum of popcount(1023, 5, 1024, 0xff) = 10 + 2 + 1 + 8 = 21. 5 land 3 = 1 5 lor 3 = 7 5 lxor 3 = 6 1 lsl 8 = 256 256 lsr 4 = 16 41 baseline programs total.
This commit is contained in:
@@ -1504,6 +1504,18 @@ cat > "$TMPFILE" << 'EPOCHS'
|
||||
(epoch 5253)
|
||||
(eval "(ocaml-run \"let t = Hashtbl.create 4 in Hashtbl.add t \\\"a\\\" 1; let t2 = Hashtbl.copy t in Hashtbl.add t2 \\\"b\\\" 2; Hashtbl.length t + Hashtbl.length t2\")")
|
||||
|
||||
;; ── Bitwise ops land/lor/lxor/lsl/lsr ────────────────────────
|
||||
(epoch 5260)
|
||||
(eval "(ocaml-run \"5 land 3\")")
|
||||
(epoch 5261)
|
||||
(eval "(ocaml-run \"5 lor 3\")")
|
||||
(epoch 5262)
|
||||
(eval "(ocaml-run \"5 lxor 3\")")
|
||||
(epoch 5263)
|
||||
(eval "(ocaml-run \"1 lsl 8\")")
|
||||
(epoch 5264)
|
||||
(eval "(ocaml-run \"256 lsr 4\")")
|
||||
|
||||
EPOCHS
|
||||
|
||||
OUTPUT=$(timeout 360 "$SX_SERVER" < "$TMPFILE" 2>/dev/null)
|
||||
@@ -2392,6 +2404,13 @@ check 5251 "Either.fold Left 7+100" '107'
|
||||
check 5252 "Either.fold Right 7*10" '70'
|
||||
check 5253 "Hashtbl.copy independent" '3'
|
||||
|
||||
# ── Bitwise ops land/lor/lxor/lsl/lsr ───────────────────────────
|
||||
check 5260 "5 land 3 = 1" '1'
|
||||
check 5261 "5 lor 3 = 7" '7'
|
||||
check 5262 "5 lxor 3 = 6" '6'
|
||||
check 5263 "1 lsl 8 = 256" '256'
|
||||
check 5264 "256 lsr 4 = 16" '16'
|
||||
|
||||
TOTAL=$((PASS + FAIL))
|
||||
if [ $FAIL -eq 0 ]; then
|
||||
echo "ok $PASS/$TOTAL OCaml-on-SX tests passed"
|
||||
|
||||
Reference in New Issue
Block a user