Add simple xor shifter.

README.md

@@ -34,3 +34,6 @@ let (v, _) = feed.next();
 // Iter
 let iter = LFSR.toIter(feed);
 ```
+## XorShift
+
+Reference: [prng](https://vigna.di.unimi.it/ftp/papers/xorshift.pdf).

src/LFSR.mo

@@ -1,14 +1,13 @@
 import Array "mo:base/Array";
 import Int "mo:base/Int";
+import IO "mo:io/IO";
 import Iter "mo:base/Iter";
 import Nat8 "mo:base/Nat8";
 import Nat16 "mo:base/Nat16";
 import Nat32 "mo:base/Nat32";
 import Nat64 "mo:base/Nat64";
 import Time "mo:base/Time";
 
-import IO "mo:io/IO";
-
 module {
     public type LFSR<T> = {
         next() : (T, Bool);
@@ -17,7 +16,7 @@ module {
     // An 8-bit linear feedback shift register.
     public class LFSR8(
         s : ?Nat8, // Seed.
-    ) {
+    ) : LFSR<Nat8> {
         private let seed : Nat8 = switch (s) {
             case (null) { nat8(Int.abs(Time.now())); };
             case (? s)  { s;                         };
@@ -39,7 +38,7 @@ module {
     // An 16-bit linear feedback shift register.
     public class LFSR16(
         s : ?Nat16, // Seed.
-    ) {
+    ) : LFSR<Nat16> {
         private let seed : Nat16 = switch (s) {
             case (null) { nat16(Int.abs(Time.now())); };
             case (? s)  { s;                          };
@@ -61,7 +60,7 @@ module {
     // An 32-bit linear feedback shift register.
     public class LFSR32(
         s : ?Nat32, // Seed.
-    ) {
+    ) : LFSR<Nat32> {
         private let seed : Nat32 = switch (s) {
             case (null) { nat32(Int.abs(Time.now())); };
             case (? s)  { s;                          };

src/XorShift.mo

@@ -0,0 +1,27 @@
+import Int "mo:base/Int";
+import IO "mo:io/IO";
+import Nat64 "mo:base/Nat64";
+import Time "mo:base/Time";
+
+module {
+    public type XorShift = {
+        next() : Nat64;
+    };
+
+    public class XorShift64(
+        s : ?Nat64,
+    ) : XorShift {
+        private let seed : Nat64 = switch (s) {
+            case (null) Nat64.fromNat(Int.abs(Time.now()));
+            case (? s)  s;
+        };
+        var state = seed;
+
+        public func next() : Nat64 {
+            state ^= (state >> 12);
+            state ^= (state << 25);
+            state ^= (state >> 27);
+            state * 2685821657736338717;
+        };
+    };
+};