1
2
3
4
5
6
7
8
9
|a c aSize anArray position |
a:= aSize - 1.
anArray:= Array new:10.
 
anArray at:1 put:1.
anArray at:2 put:2.
anArray at:3 put:3.
anArray at:4 put:4.
anArray at:5 put:5.
 ...

1
2
3
4
5
6
7
8
9
| c n aSize anArray position |
anArray:= Array new:10.
anArray at:1 put:1.
anArray at:2 put:2.
anArray at:3 put:3.
anArray at:4 put:4.
anArray at:5 put:5.
anArray at:6 put:7.
anArray at:7 put:8.
 ...

1
2
3
4
5
6
7
8
| c n aSize anArray position |
anArray:= Array new.
anArray:= #(1 2 3 4 5 7 8 ).
aSize:= anArray size.
position:= 6.
 
position to: aSize do:[ :each | anArray at: (position + 1):= anArray at:(position)].
anArray at:position put:each
 ...

1
2
3
4
5
6
7
8
| c n aSize anArray position |
anArray:= Array new.
anArray:= #(1 2 3 4 5 7 8 ).
aSize:= anArray size.
position:= 6.
 
position to: aSize do:[ :each | anArray at: (position + 1):= anArray at:(position)].
anArray at:position put:each
 ...

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
2
3
4
5
6
7
8
9
|n temp rem b i|
n:=10.
i:=1.
b:=ByteArray new.
temp:=n.
[temp~=0] whileTrue:[
rem:=temp\\2.
temp:=temp//2.
b add: rem.
 ...

1
2
3
4
5
6
7
8
9
|n temp rem b i|
n:=10.
i:=1.
b:=ByteArray new.
temp:=n.
[temp~=0] whileTrue:[
rem:=temp\\2.
temp:=temp//2.
b at:i put: rem.
 ...

1
2
3
4
5
6
7
8
9
|n temp rem b i|
n:=10.
i:=1.
b:=ByteArray new.
temp:=n.
[temp~=0] whileTrue:[
rem:=temp\\2.
temp:=temp//2.
b at:i put: rem.
 ...

1
2
3
4
5
6
7
8
9
|n temp rem b i|
n:=10.
i:=1.
b:=ByteArray new.
temp:=n.
[temp~=0] whileTrue:[
rem:=temp\\2.
temp:=temp//2.
b at:i put: rem.
 ...

1
2
3
4
5
6
7
8
9
|n temp rem b i|
n:=10.
i:=1.
b:=ByteArray new.
temp:=n.
[temp~=0] whileTrue:[
rem:=temp\\2.
temp:=temp//2.
b at:i put: rem.
 ...

1
2
3
4
5
6
7
8
9
|n temp rem|
n:=10.
temp:=n.
[temp~=0] whileTrue:[
rem:=temp\\2.
temp:=temp//2.
Transcript show: rem printString
].
].

1
2
3
4
5
import java.io.*
public Static void main(String args[]) 
{
System.out.println("hello world");
}

1
2
3
4
5
6
7
8
|n h|
n:=5.
h:=0.
[n>0] whileTrue:[
h:=h+(1/n) asFloat.
n:=n-1.
].
Transcript cr; show: h printString

1
2
3
4
5
6
7
8
|n h|
n:=5.
h:=1.
[n>0] whileTrue:[
h:=h+(1/n) asFloat.
n:=n-1.
].
Transcript cr; show: h printString

1
2
3
4
5
6
7
8
|n h|
n:=5.
h:=1.
[n>0] whileTrue:[
h:=h+(1//n).
n:=n-1.
].
Transcript cr; show: h printString

1
2
3
4
5
6
7
8
9
|i j a n b|
i:=j:=1.
n:=5.
a:='#'.
b:='$'.
[i<=n] whileTrue:[
[j<=n] whileTrue:[
(i\\2=0) ifTrue:[
Transcript tab; show: b printString
 ...

1
2
3
4
5
6
7
8
9
|i j a n|
i:=j:=1.
n:=5.
[i<=n] whileTrue:[
[j<=n] whileTrue:[
(i\\2=0) ifTrue:[
Transcript tab; show: '$' printString
].
(i\\2=0) ifFalse:[
 ...

1
2
3
4
5
6
7
8
9
|i j a n|
i:=j:=1.
n:=5.
a:=1.
[i<=n] whileTrue:[
[j<=i] whileTrue:[
Transcript tab; show: i printString.
j:=j+1
].
 ...

1
2
3
4
5
6
7
8
9
|i j a n|
i:=j:=1.
n:=10.
a:=1.
[i<=n] whileTrue:[
[j<=i] whileTrue:[
Transcript tab; show: i printString.
j:=j+1
].
 ...

1
2
3
4
5
6
7
8
9
|i j a n|
i:=j:=1.
n:=10.
a:=1.
[i<=n] whileTrue:[
[j<=i] whileTrue:[
Transcript tab; show: i printString.
j:=j+1
].
 ...

1
2
3
4
5
6
7
8
9
|i j a n|
i:=j:=1.
n:=10.
a:=1.
[i<=n] whileTrue:[
[j<=i] whileTrue:[
Transcript tab; show: a printString.
a:=a+1.
j:=j+1
 ...

1
2
3
4
5
6
7
8
9
|i j a n|
i:=j:=1.
n:=10.
a:=1.
[i<=n] whileTrue:[
[j<=i] whileTrue:[
Transcript tab; show: a printString.
a:=a+1.
j:=j+1
 ...

1
2
3
4
5
6
7
8
9
|i j a n|
i:=j:=1.
n:=10.
a:=1.
[i<=n] whileTrue:[
[j<=i] whileTrue:[
Transcript tab; show: a printString.
a:=a+1.
j:=j+1
 ...

1
2
3
4
5
6
7
8
9
|i j a n|
i:=j:=1.
n:=10.
a:=1.
[i<=n] whileTrue:[
[j<=i] whileTrue:[
Transcript tab; show: a printString.
a:=a+1.
j:=j+1
 ...

1
2
3
4
5
6
7
8
9
|i j a n|
i:=j:=1.
n:=10.
a:=1.
[i<=n] whileTrue:[
[j<=i] whileTrue:[
(a=n) ifTrue:[
i:=n.
].
 ...

1
2
3
4
5
6
7
8
9
|i j a|
i:=j:=1.
a:=1.
[i<=4] whileTrue:[
[j<=i] whileTrue:[
Transcript tab; show: a printString.
a:=a+1.
j:=j+1
].
 ...

1
2
3
4
5
6
7
8
9
|i j n a|
i:=j:=1.
n:=10.
a:=1.
[i<=5] whileTrue:[
[j<=i] whileTrue:[
Transcript tab; show: a printString.
a:=a+1.
j:=j+1
 ...

1
2
3
4
5
6
7
8
9
|i j n a|
i:=j:=1.
n:=10.
a:=1.
[i<=n//2] whileTrue:[
[j<=i] whileTrue:[
Transcript tab; show: a printString.
a:=a+1.
j:=j+1
 ...

1
2
3
4
5
6
7
8
9
|i j n a|
i:=j:=1.
n:=10.
a:=1.
[i<=a] whileTrue:[
[j<=i] whileTrue:[
Transcript tab; show: a printString.
a:=a+1.
j:=j+1
 ...