From 5f33a44be1546eb8381376fa5a4100e2e4f3d70e Mon Sep 17 00:00:00 2001
From: gp0811 <gauravvithu@gmail.com>
Date: Wed, 30 Oct 2019 11:29:27 +0530
Subject: [PATCH] random number program in lisp added as random.lisp

---
 random.lisp | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100644 random.lisp

diff --git a/random.lisp b/random.lisp
new file mode 100644
index 0000000..08d28f3
--- /dev/null
+++ b/random.lisp
@@ -0,0 +1,12 @@
+(defun rnd (/ modulus multiplier increment random)
+(if (not seed)
+(setq seed (getvar "DATE"))
+)
+(setq modulus 65536
+multiplier 25173
+increment 13849
+seed (rem (+ (* multiplier seed) increment) modulus)
+random (/ seed modulus)
+)
+random
+)
\ No newline at end of file