blob: b4faed65df081c8b82a0931d17f104dcd672891c (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
|
#!/usr/bin/env bash
# Esoteric random number generator
# <http://dilbert.com/strip/2001-10-25>
self=rndn
# Define usage function
usage() {
printf 'USAGE: %s [-h | -s SEED]\n' "$self"
}
# Parse options
while getopts 'hs:' opt ; do
case $opt in
# -h for help
h)
usage
exit 0
;;
# -s to set seed manually
s)
seed=$OPTARG
;;
# Unknown option, print usage and fail
\?)
usage >&2
exit 2
;;
esac
done
shift "$((OPTIND-1))"
# If no seed given, get one from Bash's $RANDOM
: "${seed:=$((RANDOM ** 2))}"
# Truncate the seed
seed=${seed:0:32}
# Check seed meets algorithm conditions
if [[ $seed == *[^0-9]* ]] || ((seed < 0)) ; then
printf >&2 '%s: error: seed must be non-negative integer\n' "$self"
exit 2
fi
# Apply algorithm
for ((seed += 10, 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
# Print result
printf '%u\n' "$red"
|