Linear Feedback Shift Registers for OCaml
mass replace Printf.sprintf/printf with Fmt.str/pr (merlint E200)
112 files across the monorepo. Printf.sprintf → Fmt.str,
Printf.printf → Fmt.pr for consistent formatting library usage.
+6
-6
+1
-1
lib/lfsr.ml
+1
-1
lib/lfsr.ml
···
18
18
19
19
let v ~taps ~seed ~width =
20
20
if width < 1 || width > 62 then
21
-
invalid_arg (Printf.sprintf "Lfsr.v: width %d not in [1, 62]" width);
21
+
invalid_arg (Fmt.str "Lfsr.v: width %d not in [1, 62]" width);
22
22
let mask = if width = 62 then max_int else (1 lsl width) - 1 in
23
23
{ taps; width; mask; state = seed land mask }
24
24
+5
-5
test/test_lfsr.ml
+5
-5
test/test_lfsr.ml
···
8
8
Bytes.iteri
9
9
(fun i c ->
10
10
if i > 0 then Buffer.add_char buf ' ';
11
-
Buffer.add_string buf (Printf.sprintf "%02X" (Char.code c)))
11
+
Buffer.add_string buf (Fmt.str "%02X" (Char.code c)))
12
12
b;
13
13
Buffer.contents buf
14
14
···
93
93
for _ = 1 to 1000 do
94
94
let bit = Lfsr.step t in
95
95
if bit <> 0 && bit <> 1 then
96
-
Alcotest.fail (Printf.sprintf "step returned %d, expected 0 or 1" bit)
96
+
Alcotest.fail (Fmt.str "step returned %d, expected 0 or 1" bit)
97
97
done
98
98
99
99
(* next_byte returns 0-255 *)
···
102
102
for _ = 1 to 1000 do
103
103
let b = Lfsr.next_byte t in
104
104
if b < 0 || b > 255 then
105
-
Alcotest.fail (Printf.sprintf "next_byte returned %d" b)
105
+
Alcotest.fail (Fmt.str "next_byte returned %d" b)
106
106
done
107
107
108
108
(* 32-bit LFSR with maximal polynomial has period 2^32-1. Verify state
···
112
112
for i = 1 to 100_000 do
113
113
ignore (Lfsr.step t);
114
114
if Lfsr.state t = 0 then
115
-
Alcotest.fail (Printf.sprintf "state became zero at step %d" i)
115
+
Alcotest.fail (Fmt.str "state became zero at step %d" i)
116
116
done
117
117
118
118
(* {1 CCSDS TM frame randomizer test vectors}
···
161
161
let s = Lfsr.state t in
162
162
if Hashtbl.mem seen s then begin
163
163
all_unique := false;
164
-
Printf.printf "duplicate state %d at step %d\n" s i
164
+
Fmt.pr "duplicate state %d at step %d\n" s i
165
165
end;
166
166
Hashtbl.replace seen s true
167
167
done;