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

1
2
3
4
5
6
7
8
9
SPPAPPAPAAASPSASSSASSSAPSPASPPAPPASPAPSASAPASPAAAPPPAPPASPA
 SPPASSSPPPAAASPAAAPSASPSPAPPPPASAPPSASPASPPAPPPSAPPAPAPSPASSP
 PAPPASSPAAASSPAPSPAPSASPPAAASPPAPSPAPAPPASSPPAPAPPPPASPAAASP
 SASSSASSASSAPSAAAPSASPSPAPPPPASAPPPPAPPSASPASPPAPAPSPASAPPPSA
 PPAPAPSPASSPPAPAPPPPASPAAASSAPPASPAPPSASAPASPAAAPAAAPPPAPASP
 SPAPPPPASSPPAPAPPPPASPAAASSPAPSPAPSASPPAAAPPSPAPPSAPASPAPPSPA
 PPSASPASPPASSPPAPSSAPSASPASSPPAPPASSPAAASPSASSSASSASSAPSAAAPP
 PSAPPAPAPSPAPPPPAPPSASPASPPAPAPSPASAPAPSPPAPPSPAAASSAPPASPAPP
 SASAPASP

1
2
3
4
5
6
7
8
9
|c number|
[
   number:=0.
   [ (c := stdin next) asciiValue ~= 10 ]
   whileTrue:
   [number := (number * 10) + (c asciiValue) - 48.].
   number ~= 42
]
whileTrue:
 ...

1
2
3
4
5
6
7
8
9
|c number|
[
   number:=0.
   [ (c := stdin next) asciiValue ~= 10 ]
   whileTrue:
   [number := (number * 10) + (c asciiValue) - 48.].
   number ~= 42
]
whileTrue:
 ...

1
3 + 4

1
2
3
4
5
6
 | x y z |
      x := 3.
      y := 5.
      z := 7.
      (x > 0) & (y > 0) & (x > y ) | ( y < z ) ifTrue: [Transcript show:'x and y are positive'].
      (x > 0) & (y > 0) & ( x > y ) | ( y < z )ifFalse: [Transcript show:'x and y are negative'].

1
2
3
4
5
6
 | x y z |
      x := 3.
      y := 5.
      z := 7.
      (x > 0) & (y > 0) & (x > y ) ifTrue: [Transcript show:'x and y are positive'].
      (x > 0) & (y > 0) & ( x > y )ifFalse: [Transcript show:'x and y are negative'].

1
2
3
4
5
6
 | x y z |
      x := 3.
      y := 5.
      z := 7.
      (x > 0) & (y > 0) | (x > y ) ifTrue: [Transcript show:'x and y are positive'].
      (x > 0) & (y > 0) | ( x > y )ifFalse: [Transcript show:'x and y are negative'].

1
2
3
4
5
6
 | x y z |
      x := 3.
      y := 5.
      z := 7.
      (x > 0) & (y > 0) ifTrue: [Transcript show:'x and y are positive'].
      (x > 0) & (y > 0) ifFalse: [Transcript show:'x and y are negative'].

1
2
3
4
5
| i j |
             i := 3.
             j := 7.
             (i ~= j) ifTrue: [Transcript show:'both r equal'].
              ( i ~=j )ifFalse: [Transcript show:'both r not equal']

1
2
3
4
5
| i j |
             i := 3.
             j := 7.
             (i == j) ifTrue: [Transcript show:'both r equal'].
              ( i==j )ifFalse: [Transcript show:'both r not equal']

1
2
3
4
5
| i j |
             i := 3.
             j := 7.
             (i == j) ifTrue: [Transcript show:'both r equal'].
              ( i==j )ifFalse: [Transcript show:'not equal']

1
2
3
4
5
6
| aNumber aPower c |
aPower:=4.
aPower:=2.
c:=aNumber raisedTo: aPower
(aPower<0)ifTrue: [Transcript show: 'NIL'].
(aPower<0)ifFalse:[Transcript show: c printString ]

1
2
3
4
5
| aNumber aPower |
aPower:=4.
aPower:=2.
(aPower<0)ifTrue: [Transcript show: 'NIL'].
(aPower<0)ifFalse:[Transcript show: aNumber raisedTo: aPower]

1
2
3
4
5
| aNumber aPower |
aPower:=4.
aPower:=2.
(aPower<0)ifTrue: [Transcript show:'NIL'].
(aPower<0)ifFalse:[Transcript show:aNumber raisedTo: aPower]

1
2
3
| aNumber aPower |
(aPower<0)ifTrue: [Transcript show:'NIL'].
(aPower<0)ifFalse:[Transcript show:aNumber raisedTo: aPower]

1
2
3
4
| aNumber aPower |
raise: aNumber toPower: aPower.
(aPower<0)ifTrue: [Transcript show:'NIL'].
(aPower<0)ifFalse:[Transcript show:aNumber raisedTo: aPower]

1
2
3
4
| aNumber aPower |
raise: aNumber toPower: aPower
(aPower<0)ifTrue: [Transcript show:'NIL'].
(aPower<0)ifFalse:[Transcript show:aNumber raisedTo: aPower]

1
0><|=02|), )-(4|_||°7574|)7 |)32 3|\|61!5()-(3|\| 624|=5()-(4|=7 0><|=02|)5)-(!23 I33)-(32I33267 3!|\|!63 31!73|_||\|!\/325!7°A°73|\|. |_||\||) |)|_| 63)-(°O°257 4|_|()-( z|_| 3!|\|32 31!73 - |)3|\||\| |)|_| |<4|\||\|57 |)!353|\| 73><7 1353|\| |)32 !|\| 13375|°34|< 635()-(2!3I33|\| !57. \/\/45 ? |)|_| )-(457 \/02)-(32 |\|0()-( |\|!3 \/\/45 |)4\/0|\| 63)-(°O°27 ? 72°O°573 |)!()-( 35 63)-(7 \/!313|\| 50. 3|\|7\/\/3|)32 I3!57 |)|_| °U°I332 |)3|\| )-(!|\|7 )-(!32 )-(32 63|<0/\/\/\/\3|\| 0|)32 |)|_| \/\/4257 5()-(0|\| !/\/\/\/\32 3!|\| \/\/!553|\||)32. 3!|\|3213!, _|37z7 63)-(7 35 4I3 !|\| |)!3 |\|47|_|2. |)3|\| (4()-(3 5|_|()-(3|\|. |_||\||) |)3|\| |=!|\||)357 |)|_| )-(!32: |\|02|) \/!32 4()-(7 624|) |\||_|11 4()-(7 |°|_||\||<7 \/!32 5!3I33|\| |=°U°|\||= 057 |\||_|11 3!|\|5 53()-(5 624|) 3!|\|5 |=°U°|\||= |°|_||\||<7 |\||_|11 |\|3|_||\| |=°U°|\||= \/!31 5|°4ß |_||\||) 32|=016. 

1
2
3
4
5
| x |
x:=3.
3 timesRepeat: [Transcript show:'timesrepeat ex program'].
5 timesRepeat: [x:=x+1].
Transcript show: x printString

1
2
3
4
| x |
x:=3.
5 timesRepeat: [x:=x+1].
Transcript show: x printString

1
2
3
4
5
6
7
8
9
Transcript show: 'welcome to smalltalk programming'.
Transcript cr; show: 5 sin printString.
Transcript cr; show: 4 factorial printString.
Transcript cr; show: Date today printString.
Transcript cr; show: (5 > 1)not printString.
Transcript cr; show: (5 < 1)not printString.
|a b c|
a:=2.
b:=1.
 ...

1
2
3
4
5
6
7
8
9
Transcript show: 'welcome to smalltalk programming'.
Transcript cr; show: 5 sin printString.
Transcript cr; show: 4 factorial printString.
Transcript cr; show: Date today printString.
Transcript cr; show: (5 > 1)not printString.
|a b c|
a:=2.
b:=1.
c:=3.
 ...

1
2
3
4
5
6
7
8
9
Transcript show: 'welcome to smalltalk programming'.
Transcript cr; show: 5 sin printString.
Transcript cr; show: 4 factorial printString.
Transcript cr; show: Date today printString.
|a b c|
a:=2.
b:=1.
c:=3.
(a>b)ifTrue:[
 ...

1
2
3
4
5
6
7
8
9
Transcript show: 'welcome to smalltalk programming'.
Transcript cr; show: 5 sin printString.
Transcript cr; show: 4 factorial printString.
Transcript cr; show: Date today printString.
|a b c|
a:=2.
b:=3.
c:=1.
(a>b)ifTrue:[
 ...

1
2
3
4
5
6
7
8
9
Transcript show: 'welcome to smalltalk programming'.
Transcript cr; show: 5 sin printString.
Transcript cr; show: 4 factorial printString.
Transcript cr; show: Date today printString.
|a b c|
a:=2.
b:=3.
c:=1.
(a>b)ifTrue:[
 ...

1
2
3
4
5
6
7
8
9
Transcript show: 'welcome to smalltalk programming'.
Transcript cr; show: 5 sin printString.
Transcript cr; show: 4 factorial printString.
Transcript cr; show: Date today printString.
|a b|
a:=2.
b:=3.
(a>b)ifTrue:[Transcript cr; show:'a is greater than b'].
(a>b)ifFalse:[Transcript cr; show:'b is greater than a']

1
2
3
4
5
6
7
8
9
Transcript show: 'welcome to smalltalk programming'.
Transcript cr; show: 5 sin printString.
Transcript cr; show: 4 factorial printString.
Transcript cr; show: Date today printString.
|a b|
a:=2.
b:=3.
(a>b)ifTrue:[Transcript show:'a is greater than b'].
(a>b)ifFalse:[Transcript show:'b is greater than a']

1
2
3
4
5
Transcript show: 'welcome to smalltalk programming'.
Transcript cr; show: 5 sin printString.
Transcript cr; show: 4 factorial printString.
Transcript cr; show: Date today printString.
Transcript show: Date tomorrow printString

1
2
3
4
5
Transcript show: 'welcome to smalltalk programming'.
Transcript cr; show: 5 sin printString.
Transcript cr; show: 4 factorial printString.
Transcript cr; show: Date today printString.
Transcript show: date tomorrow printString