LesBoloss-es · Kerl13 · Apr 26, 2020 · Apr 26, 2020 · Apr 26, 2020 · Apr 27, 2020
diff --git a/c/.gitignore b/c/.gitignore
diff --git a/c/Makefile b/c/Makefile
diff --git a/c/ocamlrandom.c b/c/ocamlrandom.c
diff --git a/c/ocamlrandom.h b/c/ocamlrandom.h
diff --git a/c/splitmix64.c b/c/splitmix64.c
diff --git a/c/splitmix64.h b/c/splitmix64.h
diff --git a/c/testocamlrandom.c b/c/testocamlrandom.c
diff --git a/c/testsplitmix.c b/c/testsplitmix.c
diff --git a/c/testxoshiro.c b/c/testxoshiro.c
diff --git a/c/xoshiro256pp.c b/c/xoshiro256pp.c
diff --git a/compare.sh b/compare.sh
diff --git a/ocaml/Makefile b/ocaml/Makefile
diff --git a/ocaml/splitmix/dune b/ocaml/splitmix/dune
diff --git a/ocaml/tests/dune b/ocaml/tests/dune
diff --git a/ocaml/tests/ocamlrandom.ml b/ocaml/tests/ocamlrandom.ml
diff --git a/ocaml/tests/splitmix.ml b/ocaml/tests/splitmix.ml
diff --git a/ocaml/tests/xoshiro.ml b/ocaml/tests/xoshiro.ml
diff --git a/ocaml/xoshiro/dune b/ocaml/xoshiro/dune
diff --git a/ocaml/xoshiro/x256pp_c/x256pp.c b/ocaml/xoshiro/x256pp_c/x256pp.c
diff --git a/ocaml/xoshiro/x256pp_c/x256pp.h b/ocaml/xoshiro/x256pp_c/x256pp.h
diff --git a/ocaml/dune-project → prng/dune-project b/ocaml/dune-project → prng/dune-project
diff --git a/ocaml/.gitignore → prng/src/.gitignore b/ocaml/.gitignore → prng/src/.gitignore
diff --git a/ocaml/bench.ml → prng/src/bench.ml b/ocaml/bench.ml → prng/src/bench.ml
diff --git a/ocaml/dune → prng/src/dune b/ocaml/dune → prng/src/dune
diff --git a/ocaml/make-random/bench.ml → prng/src/make-random/bench.ml b/ocaml/make-random/bench.ml → prng/src/make-random/bench.ml
diff --git a/ocaml/make-random/dune → prng/src/make-random/dune b/ocaml/make-random/dune → prng/src/make-random/dune
diff --git a/ocaml/make-random/makeRandom.ml → prng/src/make-random/makeRandom.ml b/ocaml/make-random/makeRandom.ml → prng/src/make-random/makeRandom.ml
diff --git a/ocaml/make-random/test.ml → prng/src/make-random/test.ml b/ocaml/make-random/test.ml → prng/src/make-random/test.ml
diff --git a/prng/src/splitmix/dune b/prng/src/splitmix/dune
@@ -0,0 +1,16 @@
+(library
+ (name splitmix)
+ (foreign_archives splitmix)
+ (foreign_stubs (language c) (names stubs))
+ (libraries makeRandom)
+ (modules :standard \ Tests))
+
+(foreign_library
+ (archive_name splitmix)
+ (language c)
+ (names reference))
+
+(test
+ (name tests)
+ (modules Tests)
+ (libraries splitmix))
diff --git a/prng/src/splitmix/reference.c b/prng/src/splitmix/reference.c
@@ -0,0 +1,21 @@
+// Reference: http://prng.di.unimi.it/splitmix64.c
+
+#include <stdint.h>
+
+uint64_t sm64_next_stateless(uint64_t* s) {
+	uint64_t z = (*s += 0x9e3779b97f4a7c15);
+	z = (z ^ (z >> 30)) * 0xbf58476d1ce4e5b9;
+	z = (z ^ (z >> 27)) * 0x94d049bb133111eb;
+	return z ^ (z >> 31);
+}
+
+static uint64_t state; /* The state can be seeded with any value. */
+
+void sm64_seed(uint64_t seed) {
+  state = seed;
+}
+
+uint64_t sm64_next() {
+  return sm64_next_stateless(&state);
+}
+
diff --git a/prng/src/splitmix/reference.h b/prng/src/splitmix/reference.h
@@ -0,0 +1,12 @@
+#ifndef SPLITMIX64_H
+#define SPLITMIX64_H
+
+#include <stdint.h>
+
+uint64_t sm64_next_stateless(uint64_t*);
+
+void sm64_seed(uint64_t);
+uint64_t sm64_next();
+
+#endif
+
diff --git a/prng/src/splitmix/reference.ml b/prng/src/splitmix/reference.ml
@@ -0,0 +1,2 @@
+external seed: int64 -> unit = "caml_sm64_seed"
+external next: unit -> int64 = "caml_sm64_next"
diff --git a/ocaml/splitmix/sm64.ml → prng/src/splitmix/sm64.ml b/ocaml/splitmix/sm64.ml → prng/src/splitmix/sm64.ml