1
2
3
4
5
6
7
8
| aSet sizeSet aCount |
aSet:= Set new.
aSet := #( 1 1 2 'hi' 3 ) asSet.
  sizeSet:= aSet size.
  aCount:= aSet occurrencesOf: 3.
Transcript show: 'Size -> ',sizeSet printString.
Transcript cr; show: 'Count -> ',aCount printString;cr.
aSet display 

1
2
3
4
5
6
7
8
| aSet sizeSet aCount |
aSet:= Set new.
aSet := #( 1 1 2 3 3 ) asSet.
  sizeSet:= aSet size.
  aCount:= aSet occurrencesOf: 3.
Transcript show: 'Size -> ',sizeSet printString.
Transcript cr; show: 'Count -> ',aCount printString;cr.
aSet display 

1
2
3
4
5
6
|anArray|
anArray:=Array new:5.
anArray:=#(1 2 'hi' '#5%' ) asArray.
"anArray at:1 put:'hi'."
"anArray at:2 put:5."
anArray display

1
2
3
4
5
6
|anArray|
anArray:=Array new:5.
anArray:=#(1 2 'hi' #5% ) asArray.
"anArray at:1 put:'hi'."
"anArray at:2 put:5."
anArray display

1
2
3
4
5
6
|anArray|
anArray:=Array new:5.
anArray:=#(1 2 'hi') asArray.
"anArray at:1 put:'hi'."
"anArray at:2 put:5."
anArray display

1
2
3
4
5
|anArray|
anArray:=Array new:5.
anArray at:1 put:'hi'.
anArray at:2 put:5.
anArray display

1
2
3
4
5
6
|anArray|
anArray:=Array new:5.
anArray at:1 put:'hi'.
anArray at:2 put:5.
anArray at:3 put:$a
anArray display

1
2
3
4
5
|anArray|
anArray:=Array new:3.
anArray at:1 put:'hi'.
anArray at:2 put:5.
anArray display

1
2
3
4
5
|anArray|
anArray:=Array new:3.
anArray at:1 put:'hi'.
anArray at:2 put:5.
anArray display

1
2
3
4
5
|anArray|
anArray:=Array new:3.
anArray at:1 put:'hi'.
anArray at:2 put:5.
anArray display

1
2
3
4
5
|anArray|
anArray:=Array new:3.
anArray at:1 put:'hi'.
anArray at:2 put:5
anArray display

1
2
3
4
|anArray|
anArray:=Array new:3.
anArray at:1 put:'hi'.
anArray display

1
2
3
4
5
6
7
8
|aSet aSize aCount |
aSet:=Set new.
aSet:=#(1 1 2 3 3 ) asSet.
aSize:=aSet size.
aCount:=aSet occurrencesOf: 3.
Transcript show:'size',aSize printString.
Transcript show:'coutn',aCount printString.
aSet display

1
2
3
4
5
6
7
8
|aSet aSize aCount |
aSet:=set new.
aSet:=#(1 1 2 3 3 ) asSet.
aSize:=aSet size.
aCount:=aSet occurrencesOf: 3.
Transcript show:'size',aSize printString.
Transcript show:'coutn',aCount printString.
aSet display

1
2
3
4
5
6
7
8
|aBag aSize |
aBag:= Bag new.
aBag:=#(1 2 2 3 3 3) asBag.
aSize:=aBag size.
"aCount:=aBag occurrencesOf:3."
Transcript cr; show:'size is',aSize printString.
"Transcript cr; show:'coutn is',aCount printString."
aBag display

1
2
3
4
5
6
7
8
|aBag aSize aCount|
aBag:= Bag new.
aBag:=#(1 2 2 3 3 3) asBag.
aSize:=aBag size.
aCount:=aBag occurrencesOf:3.
Transcript cr; show:'size is',aSize printString.
Transcript cr; show:'coutn is',aCount printString.
aBag display

1
2
3
4
5
6
7
8
|aBag aSize aCount|
aBag:= Bag new.
aBag:=#(1 2 2 3 3 3) asBag.
aSize:=aBag size.
aCount:=aBag occurrencesOf:3.
Transcript show:'size is',aSize.
Transcript show:'coutn is',aCount.
aBag display

1
2
3
4
5
6
7
8
|aBag aSize aCount|
aBag:= Bag new.
aBag:=#(1 2 2 3 3 3) asBag.
aSize:=aBag size.
aCount:=aBag occurrencesOf:3.
Transcript cr; show:'size is',aSize.
Transcript cr; show:'coutn is',aCount.
aBag display

1
2
3
4
5
6
7
8
|aBag aSize aCount|
aBag:= Bag new.
aBag:=#(1 2 2 3 3 3) asBag.
aSize:=aBag size.
aCount:=aBag occurrencesOf:3.
Transcript show:'size is',aSize printString.
Transcript show:'coutn is',aCount printString.
aBag display

1
2
3
4
5
6
7
8
|aBag aSize aCount|
aBag:= Bag new.
aBag:=#(1 2 2 3 3 3) asBag.
aSize:=aBag size.
aCount:=aBag occurrencesOf:3.
Transcript show:'size is',aSize.
Transcript show:'coutn is',aCount.
aBag display

1
2
3
4
5
6
7
8
|aBag aSize aCount|
aBag:= Bag new.
aBag:=#(1 2 2 3 3 3) asBag.
aSize:=aBag size.
aCount:=aBag occurrencesOf:3.
Transcript show:'size is',aSize.
Transcript show:'coutn is',aCount.
aBag display

1
2
3
4
5
6
|aBag aSize aCount|
aBag:= Bag new.
aBag:=#(1 2 2 3 3 3) asBag.
aSize:=aBag size.
aCount:=aBag occurencesOf:3.
aBag display

1
2
3
4
aBag := #( 1 2 3 3 3 3) asBag. 
  aBag size -> 6.
aBag occurrencesOf: 3.
aBag display

1
2
3
4
5
Time millisecondsToRun: [
   10 timesRepeat: [
      | s |
      s := 'x'.
      9 timesRepeat: [ s := s , 'x' ]. Transcript cr; show: 'hai'] ].

1
2
3
4
5
6
7
8
| aBag sizeBag aCount |
aBag:= Bag new.
aBag := #( 1 1 2 2 3 ) asBag.
  sizeBag:= aBag size.
  aCount:= aBag occurrencesOf: 2.
Transcript show: 'Size -> ',sizeBag printString.
Transcript cr; show: 'Count -> ',aCount printString.
aBag display 

1
2
3
4
5
Time millisecondsToRun: [
   10000 timesRepeat: [
      | s |
      s := 'x'.
      99 timesRepeat: [ s := s , 'x' ] ] ].

1
2
3
4
aBag := #( 1 2 3 3 3 3) asBag. 
  aBag size -> 6.
aBag occurrencesOf: 3  
aBag display

1
2
3
aBag := #( 1 2 3 3 3 3) asBag. 
  aBag size -> 6.
 Transcript show: aBag occurrencesOf: 3  

1
2
3
aBag := #( 1 2 3 3 3 3) asBag. 
  aBag size -> 6.
  aBag occurrencesOf: 3  

1
2
3
aBag := #( 1 2 3 3 3 3) asBag. 
  aBag size:=6.
  aBag occurrencesOf: 3