From 77e3814f0c0e3dea4d0032e25666f77e6f83bfff Mon Sep 17 00:00:00 2001
From: cgd <cgd@NetBSD.org>
Date: Sun, 21 Mar 1993 09:45:37 +0000
Subject: initial import of 386bsd-0.1 sources

---
 hack/rnd.c | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)
 create mode 100644 hack/rnd.c

(limited to 'hack/rnd.c')

diff --git a/hack/rnd.c b/hack/rnd.c
new file mode 100644
index 00000000..8547cef2
--- /dev/null
+++ b/hack/rnd.c
@@ -0,0 +1,30 @@
+/* rnd.c - version 1.0.2 */
+
+#define RND(x)	((random()>>3) % x)
+
+rn1(x,y)
+register x,y;
+{
+	return(RND(x)+y);
+}
+
+rn2(x)
+register x;
+{
+	return(RND(x));
+}
+
+rnd(x)
+register x;
+{
+	return(RND(x)+1);
+}
+
+d(n,x)
+register n,x;
+{
+	register tmp = n;
+
+	while(n--) tmp += RND(x);
+	return(tmp);
+}
-- 
cgit v1.2.3