Yo TerseMan,

If you ever compile a list of TerseMan tersities please post it
to the list. Looking at examples like this really helps me
understand the subtle differences between oo programing and
procedural programming using an oo language.

I am sure than a oo epiphany awaits me somewhere down the
road, but until then I need all the help I can get.

Thanks,

John-Reed Maffeo




Dan Ingalls wrote:
> 
> >data := Dictionary new.
> >
> >Object withAllSubclasses do: [:each | data at: each subclasses size put:
> >(data at: each subclasses size ifAbsent: [0]) + 1]
> >
> >data inspect
> 
> TerseMan says, just print...
> 
> (Object withAllSubclasses asArray collect: [:each | each subclasses size])
>         asBag sortedElements