Mercurial > docs > bib-ref2

annotate stuff/letfreq @ 58:b424a623d2be

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
hgignore: minor cleanups
author markus schnalke <meillo@marmaro.de>
date Mon, 20 Oct 2014 07:20:18 +0200
parents eb0815f21f04
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
57
eb0815f21f04 added some auxiliary files: e.g. statistics
markus schnalke <meillo@marmaro.de>
parents:
diff changeset
1 #!/bin/sh
eb0815f21f04 added some auxiliary files: e.g. statistics
markus schnalke <meillo@marmaro.de>
parents:
diff changeset
2 #
eb0815f21f04 added some auxiliary files: e.g. statistics
markus schnalke <meillo@marmaro.de>
parents:
diff changeset
3 # print letter frequency
eb0815f21f04 added some auxiliary files: e.g. statistics
markus schnalke <meillo@marmaro.de>
parents:
diff changeset
4
eb0815f21f04 added some auxiliary files: e.g. statistics
markus schnalke <meillo@marmaro.de>
parents:
diff changeset
5 cat "$@" | tbl | pic | nroff -ms -Tlocale 2>/dev/null |
eb0815f21f04 added some auxiliary files: e.g. statistics
markus schnalke <meillo@marmaro.de>
parents:
diff changeset
6 tr -cd 'A-Za-zÄÖÜäöüß'|tr A-ZÄÖÜ a-zäöü |
eb0815f21f04 added some auxiliary files: e.g. statistics
markus schnalke <meillo@marmaro.de>
parents:
diff changeset
7 sed 's,.,&\n,g'| sort |uniq -c | awk '
eb0815f21f04 added some auxiliary files: e.g. statistics
markus schnalke <meillo@marmaro.de>
parents:
diff changeset
8 {sum+=$1; a[$2]=$1;}
eb0815f21f04 added some auxiliary files: e.g. statistics
markus schnalke <meillo@marmaro.de>
parents:
diff changeset
9 END {for (x in a) {printf("%s\t%.2f\t%4d\n", x, a[x]/sum, a[x])} }
eb0815f21f04 added some auxiliary files: e.g. statistics
markus schnalke <meillo@marmaro.de>
parents:
diff changeset
10 '| sort -nr -k 3
eb0815f21f04 added some auxiliary files: e.g. statistics
markus schnalke <meillo@marmaro.de>
parents:
diff changeset
11