vdk bitstring testing

2023-05-09 16:16:30 -06:00
parent e99981b73e
commit d6a8fa87dd
8 changed files with 32 additions and 21 deletions
@@ -0,0 +1,23 @@
+-module(bits).
+
+-compile([export_all, nowarn_export_all]).
+
+
+empty() ->
+    <<>>.
+
+rand_bit() ->
+    case rand:uniform(2) of
+        1 -> <<0:1>>;
+        2 -> <<1:1>>
+    end.
+
+rand_bits(N) when N =< 8 ->
+    <<Foo:N, _/bits>> = rand:bytes(1),
+    <<Foo:N>>.
+rand_bits(N) when N > 8 ->
+    Num_Bytes         = N div 8,
+    Num_Trailing_Bits = N rem 8,
+    <<( rand_bits(Num_Trailing_Bits) )/bits,
+      ( rand:bytes(Num_Bytes)        )/binary>>.
+