From 7992ad768824a861a8622b6bc71689a42fb562e7 Mon Sep 17 00:00:00 2001
From: Tom Ryder <tom@sanctum.geek.nz>
Date: Fri, 1 Jul 2016 21:20:32 +1200
Subject: Add rndn(6)

---
 games/rndn | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100755 games/rndn

(limited to 'games')

diff --git a/games/rndn b/games/rndn
new file mode 100755
index 00000000..fd7f3813
--- /dev/null
+++ b/games/rndn
@@ -0,0 +1,12 @@
+#!/usr/bin/env bash
+# Esoteric random number generator
+# <http://dilbert.com/strip/2001-10-25>
+for ((seed = RANDOM ** 2, i = 0; i < ${#seed}; i++)) ; do
+    ((sum += ${seed:i:1}))
+done
+for ((red = seed-sum; ${#red} > 1; red=redn)) ; do
+    for ((j = 0, redn=0; j < ${#red}; j++)) ; do
+        ((redn += ${red:j:1}))
+    done
+done
+printf '%u\n' "$red"
-- 
cgit v1.2.3