

See also

 Related task: Comments
 Related task: Here_document


 
    # Determine The Average Word Name Length
 
    To determine the average length of a word name two values
    are needed. First, the total length of all names in the
    Dictionary:
 
    ~~~
    #0 [ d:name s:length + ] d:for-each
    ~~~
 
    And then the number of words in the Dictionary:
 
    ~~~
    #0 [ drop n:inc ] d:for-each
    ~~~
 
    With these, a simple division is all that's left.
 
    ~~~
    /
    ~~~
 
    Finally, display the results:
 
 
    ~~~
    'Average_name_length:_%n\n s:format s:put
    ~~~
 