4 lines
158 B
Smalltalk
4 lines
158 B
Smalltalk
bagOfChars := 'someFile' asFilename contentsAsString asBag.
|
|
bag sortedCounts
|
|
select:[:assoc | assoc value isLetter ]
|
|
thenDo:[:assoc | assoc printCR].
|