home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Between Heaven & Hell 2
/
BetweenHeavenHell.cdr
/
100
/
88
/
wordcnt.icn
< prev
Wrap
Text File
|
1985-12-04
|
563b
|
24 lines
#
# W O R D C O U N T I N G
#
# This program tabulates the words in standard input and writes the
# results with the words in a column 20 characters wide. The definition
# of a "word" is naive.
procedure main()
wordcount(20)
end
procedure wordcount(n)
local t, line, x, y
static letters
initial letters := &lcase ++ &ucase
t := table(0)
while line := read() do
line ? while tab(upto(letters)) do
t[tab(many(letters))] +:= 1
x := sort(t)
every y := !x do write(left(y[1],n),y[2])
end