example/DictionaryStats now has average length w/o namespace

FossilOrigin-Name: 3b5195816ef3c8f7397ed07d2d16c3b2660494d5897068ac3c4a45b2417f2ddf
This commit is contained in:
crc 2017-10-24 14:55:53 +00:00
parent 7c89a7ee2b
commit 89567d9322

View file

@ -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...
~~~