1
2
3
4
5
6
7
8
9
| aSize anArray val i |
anArray:= #[2 4 7 9].
i:=1.
Transcript show: anArray printString.
aSize:= anArray size.
Transcript show: aSize printString.
[i<aSize] whileTrue: [
val:= anArray at: i.
Transcript show: val printString.
 ...

1
2
3
4
5
6
7
8
9
| aSize anArray val i |
anArray:= #[2 4 7 9].
i:=1.
Transcript show: anArray printString.
aSize:= anArray size.
Transcript show: aSize printString.
[i<aSize] whileTrue: [
val:= anArray at: i.
Trnscript show: val printString.
 ...

1
2
3
4
5
6
7
8
9
| aSize anArray val i |
anArray:= #[2 4 7 9].
i:=1.
Transcript show: anArray printString.
aSize:= anArray size.
Transcript show: aSize printString.
[i<=aSize] whileTrue: [
val:= anArray at: i.
Trnscript show: val printString.
 ...

1
2
3
4
5
6
7
8
9
| orderCollection |
orderCollection:= OrderedCollection new.
orderCollection addFirst: 10.
orderCollection add: 'smalltalk'.
Transcript cr; show:'The collections are:',orderCollection printString.
orderCollection remove: 10.
orderCollection add: 20.
Transcript cr; show:' After remove 10 and add 20 to the collection:',orderCollection printString.
Object errorSignal
 ...

1
2
3
4
5
6
7
8
9
| aSize anArray val i |
anArray:= #[2 4 7 9].
i:=1.
Transcript show: anArray printString.
aSize:= anArray size.
Transcript show: aSize printString.
[i<10] whileTrue: [
(i<aSize) ifTrue: [
val:= anArray at: i.
 ...

1
2
3
4
5
6
7
8
9
| aSize anArray val i |
anArray:= #[2 4 7 9].
i:=1.
Transcript show: anArray printString.
aSize:= anArray size.
Transcript show: aSize printString.
[i<10] whileTrue: [
(i<aSize) ifTrue: [
val:= anArray at: i.
 ...

1
2
3
4
5
6
7
8
9
| orderCollection |
orderCollection:= OrderedCollection new.
orderCollection addFirst: 10.
orderCollection add: 'smalltalk'.
Transcript cr; show:'The collections are:',orderCollection printString.
orderCollection remove: 10.
orderCollection add: 20.
Transcript cr; show:' After remove 10 and add 20 to the collection:',orderCollection printString.
orderCollection remove: 25

1
2
3
4
5
6
7
8
| orderCollection |
orderCollection:= OrderedCollection new.
orderCollection addFirst: 10.
orderCollection add: 'smalltalk'.
Transcript cr; show:'The collections are:',orderCollection printString.
orderCollection remove: 10.
orderCollection add: 20.
Transcript cr; show:' After remove 10 and add 20 to the collection:',orderCollection printString 

1
2
3
4
5
6
7
8
9
| aSize anArray val i |
anArray:= #[2 4 7 9].
i:=1.
Transcript show: anArray printString.
aSize:= anArray size.
Transcript show: aSize printString.
[i<10] whileTrue: [
(i<aSize) ifTrue: [
val:= anArray at: i.
 ...

1
2
3
4
5
6
7
8
9
| aSize anArray val i |
anArray:= #[2 4 7 9].
i:=1.
Transcript show: anArray printString.
aSize:= anArray size.
Transcript show: aSize printString.
[i<10] whileTrue: [
(i<aSize) ifTrue: [
val:= anArray at: i.
 ...

1
2
3
4
5
6
| aSize anArray val i |
anArray:= #[2 4 7 9].
i:=1.
Transcript show: anArray printString.
aSize:= anArray size.
Transcript show: aSize printString

1
2
3
4
5
6
7
|aCollection|   
 aCollection := OrderedCollection new.   
 aCollection add: 10.   
 aCollection add: 'SmallTalk'.
 aCollection remove: 10.
Transcript show: aCollection printString
 

1
2
3
4
5
6
7
8
9
| aSize anArray val i |
anArray:= #[2 4 7 9].
i:=1.
Transcript show: anArray printString.
aSize:= anArray size.
1 to: 10 do:[:each| val:=each.
        [val=anArray at: i] whileFalse:[
                Transcript show: val printSting
                ].
 ...

1
2
3
4
5
6
7
8
9
sum:=0.
number:=153.
temp:=number.
[temp~=0]whileTrue:[
        reminder=temp\\10.
        sum:=sum+(reminder*reminder*reminder).
        temp=temp//10
].
(sum=number) ifTrue:[
 ...

1
2
3
4
5
6
7
8
9
|sum temp reminder number|
sum:=0.
number:=153.
[temp~=0]whileTrue:[
        reminder=temp\\10.
        sum:=sum+(r*r*r).
        temp=temp//10
].
(sum=number) ifTrue:[
 ...

1
2
3
4
| orderCollection |
orderCollection:= OrderedCollection new. 
orderCollection add: 10. 
 Transcript show: orderCollection 

1
2
3
4
5
6
7
8
9
int lim = 0x12345678; int pp = 256;
for (int i = 1; (lim-pp) / ((64 + i) + pp) != 0; i++) {
    if (atan(i - ((i / lim) * lim)) > 1.55) // > ~50
        lim = (lim / 50) * 40;
    int foo = lim; // bar
    for (int j = 0; j < 0x123456; j++)
        foo ^= (j >> 3) | (j << 29); // tidy
    pp &= foo; // in 42-0
    if (lim - ((lim / i) * i) == 0) {
 ...

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
my$x35 =chr(176)."55".chr(46);my$x34 ;$x35=$x35."0\x363 E \t1;\10". 1 % 2 .chr(176/1) ."3\x34."; $x34=36 ;print"\x4E\11\x350" .$x35."1".$x34% 32 ."\x38\nH@". chr (80).";\10Py "."c\x41c".chr ($x34*2 ) ."!Ng! :\x29 \n\7" ;;

1
[Transcript show : "Hello World!"]

1
2
3
4
5
6
7
8
9
| n c  |
n:= 1.
c:= [ :x :y |[true] whileTrue:[
c:= x \\ y.
(c == 0)
ifTrue:[^ Transcript show:b printString].
(c == 0)
ifFalse:[x:=y.
         y:=c]].].
 ...

1
2
3
4
5
6
7
8
9
| n c |
c:= 1.
n:= [ :a :b |[true] whileTrue:[
c:= a \\ b.
(c == 0)
ifTrue:[^ Transcript show:b printString].
(c == 0)
ifFalse:[a:=b.
         b:=c]].].
 ...

1
2
3
4
5
6
7
8
9
| n c |
c:= 1.
n:= [ :a :b |[true] whileTrue:[
c:= a \\ b.
(c == 0)
ifTrue:[^ Transcript show:b printString].
(c == 0)
ifFalse:[a:=b.
         b:=c]]].
 ...

1
2
3
4
5
6
7
8
| n c |
n:= 1.
c:= [ :a :b |[n<=(a*b)]whileTrue:[
( (n\\a==0) and: [n\\b==0] )
ifTrue:[^ Transcript show:n printString].
((n\\a==0) and: [n\\b==0])
ifFalse:[n:=n+1]]].
c value:3 value:14

1
2
3
4
5
|num1 num2|
num1:=23.
num2:=44.
(num1>num2)ifTrue:[Transcript show:a printString]
(num1>num2)ifFalse:[Transcript show:b printString]

1
2
3
4
5
6
7
|num1 num2|
num1:=23.
num2:=44.
(num1>num2)ifTrue:[Transcript show:a; ‘is greater’ printString]
(num1>num2)ifFalse:[Transcript show:b]
(num1==num2)ifTrue:[Transcript show:’are equal’ printString]
 

1
2
3
4
5
6
7
8
|num1 num2|
num1:=23.
num2:=44.
(num1>num2)ifTrue:[Transcript show:a.
Transcript show:’is greater’]
(num1>num2)ifFalse:[Transcript show:a.
Transcript show:’is greater’]
(num1==num2)ifTrue:[Transcript show:’are equal’]

1
2
3
4
| c |
c:= [:a :b | (a < b) ifTrue: [Transcript show: 'b is greater'].
(a < b) ifFalse: [Transcript show: 'a is greater']]
c value:3 value:7

1
2
3
4
5
6
7
8
9
| aString aChar i count aLength aSet aCount |
 
aString:= 'abacd'.
 
aLength:= aString size.
 
aSet := Set new.
 
i:= 1.
 ...

1
2
3
4
5
6
7
8
9
| aString aChar i count aLength aSet aCount |
 
aString:= 'aabababba'.
 
aLength:= aString size.
 
aSet := Set new.
 
i:= 1.
 ...