1998-01-16 12:13:05 +00:00
|
|
|
# word occurrence listing
|
|
|
|
# usege: ruby freq.rb file..
|
1999-01-20 04:59:39 +00:00
|
|
|
freq = Hash.new(0)
|
1999-11-29 06:33:02 +00:00
|
|
|
while line = gets()
|
|
|
|
line.scan(/\w+/) do |word|
|
1999-01-20 04:59:39 +00:00
|
|
|
freq[word] += 1
|
1998-01-16 12:13:05 +00:00
|
|
|
end
|
|
|
|
end
|
|
|
|
|
1999-01-20 04:59:39 +00:00
|
|
|
for word in freq.keys.sort!
|
|
|
|
print word, " -- ", freq[word], "\n"
|
1998-01-16 12:13:05 +00:00
|
|
|
end
|