aboutsummaryrefslogtreecommitdiff
path: root/games/rndn
blob: fd7f3813f63ff8a4f30e385fc763ce779955dfed (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
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"