diff options
| author | polwex <polwex@sortug.com> | 2025-10-05 22:57:55 +0700 |
|---|---|---|
| committer | polwex <polwex@sortug.com> | 2025-10-05 22:57:55 +0700 |
| commit | c4b71435d9afdb67450f320f54fb7aa99dcae85e (patch) | |
| tree | a08c4c2f7965a95fcfe6dda09629d3f103d25a0b /ocaml/tmp/get_jam_vectors.ml | |
| parent | fcedfddf00b3f994e4f4e40332ac7fc192c63244 (diff) | |
fixed jamcue
Diffstat (limited to 'ocaml/tmp/get_jam_vectors.ml')
| -rw-r--r-- | ocaml/tmp/get_jam_vectors.ml | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/ocaml/tmp/get_jam_vectors.ml b/ocaml/tmp/get_jam_vectors.ml new file mode 100644 index 0000000..1266f21 --- /dev/null +++ b/ocaml/tmp/get_jam_vectors.ml @@ -0,0 +1,10 @@ +(* Quick test to see what our jam produces for small numbers *) +open Nock_lib.Noun +open Nock_lib.Serial + +let () = + for i = 0 to 10 do + let n = atom i in + let jammed = jam n in + Printf.printf "%d: %s\n" i (bytes_to_hex jammed) + done |