 |
markov - annna - Annna the nice friendly bot. |
 |
git clone git://bitreich.org/annna/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws6… |
 |
Log |
|
Files |
|
Refs |
|
Tags |
|
README |
|
--- |
|
markov (849B) |
|
--- |
|
1 #!/bin/sh |
|
2 |
|
3 BASE="$HOME/bin/modules/markov_tech" |
|
4 |
|
5 TECH="${BASE}/techs" |
|
6 ADJ="${BASE}/adjectives" |
|
7 COP="${BASE}/copulas" |
|
8 FREQ=2 |
|
9 |
|
10 ## function |
|
11 rand(){ |
|
12 max="$1" |
|
13 if [ -z "$max" ] || [ "$max" -lt 1 ]; then |
|
14 max=2; |
|
15 fi |
|
16 r=$(echo "$(od -An -N2 -i /dev/urandom) % $max" | bc) |
|
17 echo "$r" |
|
18 } |
|
19 |
|
20 |
|
21 tech1="$(shuf "${TECH}" | head -1)" |
|
22 tech2="$(shuf "${TECH}" | head -1)" |
|
23 while [ "$tech1" = "$tech2" ]; do |
|
24 tech2="$(shuf "${TECH}" | head -1)" |
|
25 done |
|
26 adj1="$(shuf "${ADJ}" | head -1)" |
|
27 adj2="$(shuf "${ADJ}" | head -1)" |
|
28 while [ "$adj1" = "$adj2" ]; do |
|
29 adj2="$(shuf "${ADJ}" | head -1)" |
|
30 done |
|
31 |
|
32 cop="$(shuf "${COP}" | head -1)" |
|
33 res="$adj1 $tech1 $cop $adj2 $tech2" |
|
34 |
|
35 a=$(rand $FREQ) |
|
36 while [ "$a" = 1 ]; do |
|
37 ntech="$(shuf "${TECH}" | head -1)" |
|
38 nadj="$(shuf "$ADJ" | head -1)" |
|
39 ncop="$(shuf "$COP" | head -1)" |
|
40 res="$res $ncop $nadj $ntech" |
|
41 a=$(rand $FREQ) |
|
42 done |
|
43 echo "$res" |
