1 files changed, 20 insertions, 0 deletions
diff --git a/contrib/awk/test/longwrds.awk b/contrib/awk/test/longwrds.awk
new file mode 100644
index 0000000..f6a7816
--- /dev/null
+++ b/contrib/awk/test/longwrds.awk
@@ -0,0 +1,20 @@
+# From Gawk Manual modified by bug fix and removal of punctuation
+# Record every word which is used at least once
+{
+	for (i = 1; i <= NF; i++) {
+		tmp = tolower($i)
+		if (0 != (pos = match(tmp, /([a-z]|-)+/)))
+			used[substr(tmp, pos, RLENGTH)] = 1
+	}
+}
+
+#Find a number of distinct words longer than 10 characters
+END {
+	num_long_words = 0
+	for (x in used) 
+		if (length(x) > 10) {
+			++num_long_words
+			print x
+		}
+	print num_long_words, "long words"
+}