retroforth/example/dictionary-stats.retro

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:format s:put
~~~

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:format s:put
~~~

And without the namespaces...

~~~
#0 #0 [ d:name dup $: s:index/char n:inc + s:length + [ n:inc ] dip ] d:for-each swap /
'Average_name_without_namespace:_%n\n s:format s:put
~~~

Longest name are...

~~~
#0 [ d:name s:length n:max ] d:for-each
'Longest_names_are_%n_characters\n s:format s:put
~~~
example showing use of `d:for-each` to calculate dictionary stats FossilOrigin-Name: 34cc637d020e1ddff2929ad9131e51e4319b61adf4a2efd59ef5e9e6484e5d04 2017-10-22 05:12:14 +02:00			`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`
complete renaming of words in the examples FossilOrigin-Name: c9ea59275146e3ccddbcfc3c8e2aa12e0c1f51f6d54c9674cf7d9a3b0500bf7c 2018-05-07 18:36:37 +02:00			`'%n_names_defined\n s:format s:put`
example showing use of `d:for-each` to calculate dictionary stats FossilOrigin-Name: 34cc637d020e1ddff2929ad9131e51e4319b61adf4a2efd59ef5e9e6484e5d04 2017-10-22 05:12:14 +02:00			`~~~`

			`Determine the average length of a word name.`

			`~~~`
			`#0 [ d:name s:length + ] d:for-each`
			`#0 [ drop n:inc ] d:for-each`
complete renaming of words in the examples FossilOrigin-Name: c9ea59275146e3ccddbcfc3c8e2aa12e0c1f51f6d54c9674cf7d9a3b0500bf7c 2018-05-07 18:36:37 +02:00			`/ 'Average_name_length:_%n\n s:format s:put`
example showing use of `d:for-each` to calculate dictionary stats FossilOrigin-Name: 34cc637d020e1ddff2929ad9131e51e4319b61adf4a2efd59ef5e9e6484e5d04 2017-10-22 05:12:14 +02:00			`~~~`

prefix: namespace is now sigil:, rename words, update examples, update docs FossilOrigin-Name: 25cf19660ab7728d7bfee2722ea826a8a438faf92b2504b28d922d2958906aed 2021-03-30 13:58:25 +02:00			`And without the namespaces...`
example/DictionaryStats now has average length w/o namespace FossilOrigin-Name: 3b5195816ef3c8f7397ed07d2d16c3b2660494d5897068ac3c4a45b2417f2ddf 2017-10-24 16:55:53 +02:00
			`~~~`
image: rename s:index-of, s:index-of-string, a:index-of, a:index-of-string FossilOrigin-Name: 88416f7a177a6171739a75db5ad4d399735ecd29836424897629ca1787d776d2 2021-06-04 20:34:59 +02:00			`#0 #0 [ d:name dup $: s:index/char n:inc + s:length + [ n:inc ] dip ] d:for-each swap /`
complete renaming of words in the examples FossilOrigin-Name: c9ea59275146e3ccddbcfc3c8e2aa12e0c1f51f6d54c9674cf7d9a3b0500bf7c 2018-05-07 18:36:37 +02:00			`'Average_name_without_namespace:_%n\n s:format s:put`
example/DictionaryStats now has average length w/o namespace FossilOrigin-Name: 3b5195816ef3c8f7397ed07d2d16c3b2660494d5897068ac3c4a45b2417f2ddf 2017-10-24 16:55:53 +02:00			`~~~`

example showing use of `d:for-each` to calculate dictionary stats FossilOrigin-Name: 34cc637d020e1ddff2929ad9131e51e4319b61adf4a2efd59ef5e9e6484e5d04 2017-10-22 05:12:14 +02:00			`Longest name are...`

			`~~~`
			`#0 [ d:name s:length n:max ] d:for-each`
complete renaming of words in the examples FossilOrigin-Name: c9ea59275146e3ccddbcfc3c8e2aa12e0c1f51f6d54c9674cf7d9a3b0500bf7c 2018-05-07 18:36:37 +02:00			`'Longest_names_are_%n_characters\n s:format s:put`
example showing use of `d:for-each` to calculate dictionary stats FossilOrigin-Name: 34cc637d020e1ddff2929ad9131e51e4319b61adf4a2efd59ef5e9e6484e5d04 2017-10-22 05:12:14 +02:00			`~~~`