LDPC codes with belief propagation decoding
Upgrade to ocamlformat 0.29.0; fix csvt/sexpt streaming; reformat
- Update .ocamlformat to 0.29.0 across all 591 files
- csvt: reuse single Buffer.t for field reads (no alloc per field)
- sexpt: Obj members decoded from stream into Dict, typed Variant GADT
- Reformat all source files for 0.29.0
+4
-4
+3
-3
lib/ldpc.ml
+3
-3
lib/ldpc.ml
···
634
634
For punctured bits, use LLR = 0 (maximum uncertainty / erasure). *)
635
635
let channel_llr =
636
636
Array.init code.n_full (fun i ->
637
-
if i < code.n then begin
637
+
if i < code.n then
638
638
(* Transmitted bit: read from codeword *)
639
-
if get_bit codeword i = 0 then hard_decision_llr
639
+
begin if get_bit codeword i = 0 then hard_decision_llr
640
640
else Float.neg hard_decision_llr
641
-
end
641
+
end
642
642
else
643
643
(* Punctured bit: no channel information *)
644
644
0.0)