blob: 5b5e4dec3f7f5c8d91da0b8ce4fd8c37edaf4bdb (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
#
# D I F F E R E N T W O R D S
#
# This program lists all the different words in the input text.
# The definition of a "word" is naive.
procedure main()
words := set()
while text := read() do
text ? while tab(upto(&letters)) do
insert(words,tab(many(&letters)))
every write(!sort(words))
end
|