Category : Miscellaneous Language Source Code
Archive   : SNOBOL4A.ZIP
Filename : WORDSIZE.SNO

 
Output of file : WORDSIZE.SNO contained in archive : SNOBOL4A.ZIP
* WORDSIZE.SNO
*
* Program to read a file and display the number of words of
* various word lengths. To make the program more interesting,
* we shall only consider word lengths between 3 and 9. This allows
* us to demonstrate the use of an array with subscripts offset from
* 1, as well as array failure.
*
* The file being scanned is read from standard input. For example,
* to scan the file TEXT.IN, type:
*
* SNOBOL4 WORDSIZE *
* Trim trailing blanks from input
*
&TRIM = 1

* Define pattern for words. A word consists of upper- and lower-case
* letters, apostrosphe and hyphen.
*
WORDPAT = BREAK(&LCASE &UCASE) SPAN(&LCASE &UCASE "'-") . WORD

* Define the array to hold the word counts. Valid subscripts must be
* in the range 3 through 9; all others will cause the array reference
* to fail. Array elements are initialized to zero instead of the normal
* default, which is the null string. This causes a zero to be produced
* in the printed output if a particular array entry is never incremented.
*
COUNT = ARRAY('3:9',0)

* Read a line from the input file. Fail if end-of-file.
*
READ LINE = INPUT :F(DONE)

* Find the next word in LINE, and remove it to WORD. Fail when
* no more words remain in the line.
*
NEXTW LINE WORDPAT = :F(READ)

* Increment the appropriate array element for words of this
* size. The statement quietly fails if the size is outside
* the range 3 through 9.
*
COUNT = COUNT + 1 :(NEXTW)

* Upon end of file, print the values in the array. Print heading first.
*
DONE OUTPUT = "WORD LENGTH NUMBER OF OCCURRENCES"
I = 2

* Index through array starting at element 3. When we reach element
* 10, the array reference fails, and we fall through to END.
*
PRINT I = I + 1
OUTPUT = LPAD(I,5) LPAD(COUNT,20) :S(PRINT)

END


  3 Responses to “Category : Miscellaneous Language Source Code
Archive   : SNOBOL4A.ZIP
Filename : WORDSIZE.SNO
”

  1. Daniel says:
    January 27, 2013 at 3:59 pm

    Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. Joshie says:
    March 18, 2014 at 4:57 pm

    This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. DiskingRound says:
    January 14, 2015 at 10:57 pm

    But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/