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

example showing use of d:for-each to calculate dictionary stats

Browse source 
FossilOrigin-Name: 34cc637d020e1ddff2929ad9131e51e4319b61adf4a2efd59ef5e9e6484e5d04
This commit is contained in:
crc 2017-10-22 03:12:14 +00:00
parent 3731319e07
commit b1681857c8
1 changed files with 23 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
example/DictionaryStats.forth Normal file
View file

@ -0,0 +1,23 @@
It's sometimes interesting to take some measurements of dictionary names.
Determine the number of words in the dictionary.
~~~
#0 [ drop n:inc ] d:for-each
'%n_names_defined\n s:with-format puts
~~~
Determine the average length of a word name.
~~~
#0 [ d:name s:length + ] d:for-each
#0 [ drop n:inc ] d:for-each
/ 'Average_name_length:_%n\n s:with-format puts
~~~
Longest name are...
~~~
#0 [ d:name s:length n:max ] d:for-each
'Longest_names_are_%n_characters\n s:with-format puts
~~~