markov - annna - Annna the nice friendly bot. | |
git clone git://bitreich.org/annna/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws6… | |
Log | |
Files | |
Refs | |
Tags | |
README | |
--- | |
markov (800B) | |
--- | |
1 #!/bin/sh | |
2 | |
3 BASE="$HOME/bin/modules/markov_french" | |
4 | |
5 VERB="${BASE}/verbs" | |
6 NOUN="${BASE}/nouns" | |
7 ADJ="${BASE}/adjectives" | |
8 | |
9 ## function | |
10 rand(){ | |
11 max="$1" | |
12 if [ -z "$max" ] || [ "$max" -lt 1 ]; then | |
13 max=2; | |
14 fi | |
15 r=$(echo "$(od -An -N2 -i /dev/urandom) % $max" | bc) | |
16 echo "$r" | |
17 } | |
18 | |
19 verb1="$(shuf "${VERB}" | head -1)" | |
20 verb2="$(shuf "${VERB}" | head -1)" | |
21 while [ "$verb1" = "$verb2" ]; do | |
22 verb2="$(shuf "${VERB}" | head -1)" | |
23 done | |
24 | |
25 noun1="$(shuf "${NOUN}" | head -1)" | |
26 noun2="$(shuf "${NOUN}" | head -1)" | |
27 while [ "$noun1" = "$noun2" ]; do | |
28 noun2="$(shuf "${NOUN}" | head -1)" | |
29 done | |
30 | |
31 adj1="$(shuf "${ADJ}" | head -1)" | |
32 adj2="$(shuf "${ADJ}" | head -1)" | |
33 while [ "$adj1" = "$adj2" ]; do | |
34 adj2="$(shuf "${ADJ}" | head -1)" | |
35 done | |
36 | |
37 res="$verb1 $noun1 $adj1 et $verb2 $noun2 $adj2" | |
38 | |
39 echo "Pour votre sécurité, $res" | |
40 |