rubyco（るびこ）の日記 - 単語の頻度を調べる を Squeak の Smalltalk で。 Smalltalk には、毎度お馴染みの Bag があるので、これを使うと便利です。というか、Bag が他に役立つ場面を思いつかんとです。
| string | string := 'We wish you a Merry Christmas, We wish you a Merry Christmas, We wish you a Merry Christmas, and A Happy New Year!'. ^ string subStrings asBag sortedCounts asArray
=> {3->'We'.
3->'you'.
3->'a'.
3->'Christmas,'.
3->'wish'.
3->'Merry'.
1->'and'.
1->'A'.
1->'Happy'.
1->'Year!'.
1->'New'}
Bag を使わずに、rubyco さんの Ruby 版の意訳っぽい版も。ハッシュは Smalltalk では「辞書（a Dictionary）」になります。デフォルト値は指定できないので、#at:ifAbsent: を使用。
| string dict | string := 'We wish you a Merry Christmas, We wish you a Merry Christmas, We wish you a Merry Christmas, and A Happy New Year!'. dict := Dictionary new. string subStrings do: [:word | dict at: word put: (dict at: word ifAbsent: [0]) + 1]. ^ dict
=> a Dictionary( 'A'->1 'Christmas,'->3 'Happy'->1 'Merry'->3 'New'->1 'We'->3 'Year!'->1 'a'->3 'and'->1 'wish'->3 'you'->3)
