From 89567d9322925dd8f43eced3d7b987d60319c173 Mon Sep 17 00:00:00 2001
From: crc <crc@noemail.net>
Date: Tue, 24 Oct 2017 14:55:53 +0000
Subject: [PATCH] example/DictionaryStats now has average length w/o namespace

FossilOrigin-Name: 3b5195816ef3c8f7397ed07d2d16c3b2660494d5897068ac3c4a45b2417f2ddf
---
 example/DictionaryStats.forth | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/example/DictionaryStats.forth b/example/DictionaryStats.forth
index cc0ebdd..947d8b7 100644
--- a/example/DictionaryStats.forth
+++ b/example/DictionaryStats.forth
@@ -15,6 +15,13 @@ Determine the average length of a word name.
 / 'Average_name_length:_%n\n s:with-format puts
 ~~~
 
+And without the prefixes...
+
+~~~
+#0 #0 [ d:name dup $: s:index-of n:inc + s:length + [ n:inc ] dip ] d:for-each swap /
+'Average_name_without_namespace:_%n\n s:with-format puts
+~~~
+
 Longest name are...
 
 ~~~