10 lines
268 B
Smalltalk
10 lines
268 B
Smalltalk
|
bagOfCalls := Bag new.
|
||
|
|
Smalltalk allClassesDo:[:cls |
|
||
|
|
cls instAndClassMethodsDo:[:mthd |
|
||
|
|
bagOfCalls addAll:mthd messagesSent
|
||
|
|
].
|
||
|
|
].
|
||
|
|
(bagOfCalls sortedCounts to:10) do:[:assoc |
|
||
|
|
Stdout printCR: e'method {assoc value} is called {assoc key} times.'
|
||
|
|
].
|