[svn-inject] Tagging upstream source version of scowl

[deb_pkgs/scowl.git] / 6 / src / count

diff --git a/6/src/count b/6/src/count
new file mode 100755 (executable)
index 0000000..bd9f6df
--- /dev/null
+++ b/6/src/count
@@ -0,0 +1,10 @@
+#!/bin/sh
+
+c=0
+for f in 10 20 35 40 50 55 60 70 80 95
+do
+  n=`cat final/english-{words,abbreviations,contractions}.$f 2> /dev/null | wc -l `
+  p=`cat final/english-{proper-names,upper}.$f 2> /dev/null | wc -l`
+  c=`expr $c + $n + $p`
+  echo $f $n $p $c
+done