Import sources from 2011-03-30 iso image

1 files changed, 24 insertions, 0 deletions

diff --git a/sys/src/ape/lib/v/nrand.c b/sys/src/ape/lib/v/nrand.c
new file mode 100755
index 000000000..29e5aee0f
--- /dev/null
+++ b/sys/src/ape/lib/v/nrand.c
@@ -0,0 +1,24 @@
+#include <stdlib.h>
+
+#define	MASK	0x7FFFFFFFL
+#define	FRACT	(1.0 / (MASK + 1.0))
+
+extern long lrand(void);
+
+double
+frand(void)
+{
+
+	return lrand() * FRACT;
+}
+
+nrand(int n)
+{
+	long slop, v;
+
+	slop = MASK % n;
+	do
+		v = lrand();
+	while(v <= slop);
+	return v % n;
+}