Add: program: words version 1

src/libc/crypto.c

@@ -0,0 +1,24 @@
+#include "crypto.h"
+
+int lcg(int seed)
+{
+	int x = seed;
+
+	// Constants (ZX81 LCG)
+	int a = 75;
+	int c = 74;
+	long m = 65537;
+
+	for (int i=0; i<10; i++)
+	{
+		x = (a*x + c) % m;
+	}
+
+	return x;
+}
+
+int randint(int seed)
+{
+	int x = lcg(seed);
+	return x;
+}

src/libc/crypto.h

@@ -0,0 +1,9 @@
+#ifndef CRYPTO_H
+#define CRYPTO_H
+
+#define RAND_MAX 1024
+
+int lcg(int seed);
+int randint(int seed);
+
+#endif