crc/retroforth
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

example/DictionaryStats now has average length w/o namespace

Browse source 
FossilOrigin-Name: 3b5195816ef3c8f7397ed07d2d16c3b2660494d5897068ac3c4a45b2417f2ddf
This commit is contained in:
crc 2017-10-24 14:55:53 +00:00
parent 7c89a7ee2b
commit 89567d9322
1 changed files with 7 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
example/DictionaryStats.forth
View file

@ -15,6 +15,13 @@ Determine the average length of a word name.
/ 'Average_name_length:_%n\n s:with-format puts / '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... Longest name are...
~~~ ~~~