#!/bin/bash
# process standard input
while read -a line; do
for word in ${line[@]} ; do
len =${#word}
lengths[ len] =$( ( ${lengths[len]} +1 ) )
for ( ( j =0 ; j< ${#word} ;++j) ) ; do
letters+=${word:j:1}
done
done
done
echo "character statistics:"
echo $letters | fold -w 1 | sort | uniq -c | sort -rn
echo "word length statistics:"
for i in ${!lengths[*]} ; do
echo "Found ${lengths[i]} words of length $i "
done
IyEvYmluL2Jhc2gKCiMgcHJvY2VzcyBzdGFuZGFyZCBpbnB1dAp3aGlsZSByZWFkIC1hIGxpbmU7IGRvCiAgICBmb3Igd29yZCBpbiAke2xpbmVbQF19OyBkbwogICAgICAgIGxlbj0keyN3b3JkfQogICAgICAgIGxlbmd0aHNbbGVuXT0kKCgke2xlbmd0aHNbbGVuXX0rMSkpCgogICAgICAgIGZvcigoaj0wOyBqPCR7I3dvcmR9OysraikpOyBkbwogICAgICAgICAgICBsZXR0ZXJzKz0ke3dvcmQ6ajoxfQogICAgICAgIGRvbmUKICAgIGRvbmUKZG9uZQoKZWNobyAiY2hhcmFjdGVyIHN0YXRpc3RpY3M6IgplY2hvICRsZXR0ZXJzIHwgZm9sZCAtdyAxIHwgc29ydCB8IHVuaXEgLWMgfCBzb3J0IC1ybgoKZWNobyAid29yZCBsZW5ndGggc3RhdGlzdGljczoiCmZvciBpIGluICR7IWxlbmd0aHNbKl19OyBkbwogICAgZWNobyAiRm91bmQgJHtsZW5ndGhzW2ldfSB3b3JkcyBvZiBsZW5ndGggJGkiCmRvbmUK
stdin
YQljCWUJbglvCXAKYQljCWUJCW8JcAphCWMJZQkJbwkKCWMJZQoJYwllCgkJZQoKc2F0ICAgICAgIHNvICAgICAgIGRpdmUKc2l0ICAgICAgIGRvICAgICAgIHNlZWsKZGlnICAgICAgICAgICAgICAgIHBvbGUKcGlnICAgICAgICAgICAgICAgIGxvdmUKbG9nCmJvbw==
a c e n o p
a c e o p
a c e o
c e
c e
e
sat so dive
sit do seek
dig pole
pig love
log
boo