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
| i sum |
sum := 0.
i := 1.
[i <= 10] while True: {
sum := sum + 1.
i := i + 1].
^sum

1
2
3
4
5
|array maxElement |
array:=Array new.
array:=#(1 6 2 9 3 7 5).
array asSortedCollection:[:a :b| a > b].
Transcript show: array printString

1
2
3
4
5
|array maxElement |
array:=Array new.
array:=#(1 6 2 9 3 7 5).
array asSortedCollection:[:a :b| a > b].
Transcript show: array printString

1
2
3
4
5
|number sum|
number:=10.
sum:=0.
1 to: number do: [:each | sum:=sum+each].
Transcript show: sum printString

1
2
3
4
5
|number sum|
number:=10.
sum:=0.
1 to: number do: [:each | sum:=sum+number].
Transcript show: sum printString

1
2
3
4
5
|number sum|
number:=10.
sum:=0.
1 to: number do: [:each | sum:=sum+number].
Transcript sjow: sum printString

1
1 to: 5 do:[:each |  Transcript cr; show:each printString]

1
1 to: 5 do:[:each |  each printString]

1
2
3
4
5
6
|c number|
number := 0.
[(c := stdin next) asciiValue ~= 10]
whileTrue:
        [number := (number * 10) + (c asciiValue) - 48.].
Transcript show: (number asString); cr.

1
2
3
4
5
6
7
8
9
| n c k count |
n:= 5.
c:= 1.
k:= 1.
count:= (n // 2).
m:= (n //2) + 1.
[k <= m]whileTrue: [ [c <= count]whileTrue:[ Transcript show:'#'. c:= c + 1.
].
count:= count + 1.
 ...

1
2
3
4
5
6
7
8
9
| n c k count |
n:= 5.
c:= 1.
k:= 1.
count:= (n // 2).
m:= (n //2) + 1.
[k <= m]whileTrue: [ [c <= count]whileTrue:[ Transcript show:'#'. c:= c + 1.
].
          [c <= (2 * k - 1 )]whileTrue: [ Transcript show: '*'. c:= c + 1].
 ...

1
2
3
4
5
6
7
8
9
| n c k count |
n:= 5.
c:= 1.
k:= 1.
count:= (n // 2).
m:= (n //2) + 1.
[k <= m]whileTrue: [ [c <= count]whileTrue:[ Transcript show:'#'. c:= c + 1.
].
count:= count + 1.
 ...

1
2
3
4
5
6
7
8
9
| n c k count |
n:= 5.
c:= 1.
k:= 1.
count:= (n // 2).
m:= (n //2) + 1.
[k <= m]whileTrue: [ [c <= count]whileTrue:[ Transcript show:'#'. c:= c + 1.count:= count + 1.
].
c:= 1.
 ...

1
2
3
4
5
6
7
8
9
| n c k count |
n:= 5.
c:= 1.
k:= 1.
count:= (n // 2).
m:= (n //2) + 1.
[k <= m]whileTrue: [ [c <= count]whileTrue:[ Transcript show:'#'. c:= c + 1].
c:= 1.
count:= count + 1.
 ...

1
2
3
4
5
6
7
8
9
| n c k count |
n:= 5.
c:= 1.
k:= 1.
count:= (n // 2).
m:= (n //2) + 1.
[k <= m]whileTrue: [ [c <= count]whileTrue:[ Transcript show:' '. c:= c + 1].
c:= 1.
count:= count + 1.
 ...

1
2
3
4
5
6
7
8
9
| n c k count |
n:= 5.
c:= 1.
k:= 1.
count:= (n // 2).
m:= (n //2) + 1.
[k <= m]whileTrue: [ [c <= count]whileTrue:[ Transcript show:' '. c:= c + 1].
c:= 1.
count:= count-1.
 ...

1
2
3
4
5
6
7
8
9
| n c k count |
n:= 5.
c:= 1.
k:= 1.
count:= (n // 2).
m:= (n //2) + 1.
[k <= m]whileTrue: [ [c <= count]whileTrue:[ Transcript show:' '. c:= c + 1].
c:= 1.
count:= count-1.
 ...

1
2
3
4
5
6
7
8
9
| n c k count |
n:= 5.
c:= 1.
k:= 1.
count:= (n // 2).
m:= (n //2) + 1.
[k <= m]whileTrue: [ [c <= count]whileTrue:[ Transcript show:' '. c:= c + 1].
c:= 1.
count:= count-1.
 ...

1
2
3
4
5
6
7
8
9
| n c k count |
n:= 5.
c:= 1.
k:= 1.
count:= (n // 2).
m:= (n //2) + 1.
[k <= m]whileTrue: [ [c <= count]whileTrue:[ Transcript show:' '. c:= c + 1].
c:= 1.
count:= count-1.
 ...

1
2
3
4
5
6
7
8
9
|i number  temp anArray  rArray  position|
i:=1.
number:=10.
anArray := Array new: 4.
rArray := Array new: 4.
[number>0]whileTrue:[
                temp:=number\\2.
                anArray at:i put: temp.
                number:=number//2.
 ...

1
2
3
4
5
6
7
8
9
|i number  temp anArray  rArray  position|
i:=1.
number:=10.
anArray := Array new: 4.
rArray := Array new: 4.
[number>0]whileTrue:[
                temp:=number\\2.
                anArray at:i put: temp.
                number:=number//2.
 ...

1
2
3
4
5
6
7
8
9
| c i j a k n|
i:= 0.
j:= 1.
k:= 0.
n:= 5.
c:= 1.
a:= 2 * (n - i).
i to: n do:[ :each | c:= 1.
        j to: a do: [ : fetch | Transcript show:' '].
 ...

1
2
3
4
5
6
7
8
9
| n c k count |
n:= 3.
c:= 1.
k:= 1.
count:= (n-1).
[k <= n]whileTrue: [ [c <= count]whileTrue:[ Transcript show:' '. c:= c + 1].
c:= 1.
count:= count.
          [c <= (2 * k - 1 )]whileTrue: [ Transcript show: '*'. c:= c + 1].
 ...

1
2
3
4
5
6
7
8
9
| n c k count |
n:= 3.
c:= 1.
k:= 1.
count:= (n-1).
[k <= n]whileTrue: [ [c <= count]whileTrue:[ Transcript tab. c:= c + 1].
c:= 1.
count:= count.
          [c <= (2 * k - 1 )]whileTrue: [ Transcript show: '*'. c:= c + 1].
 ...

1
2
3
4
5
6
7
8
9
| n c k count |
n:= 3.
c:= 1.
k:= 1.
count:= (n-1).
[k <= n]whileTrue: [ [c <= count]whileTrue:[ Transcript show:' '. c:= c + 1].
c:= 1.
count:= count.
          [c <= (2 * k - 1 )]whileTrue: [ Transcript show: '*'. c:= c + 1].
 ...

1
2
3
4
5
6
7
8
9
| n c k count |
n:= 5.
c:= 1.
k:= 1.
count:= (n-1).
[k <= n]whileTrue: [ [c <= count]whileTrue:[ Transcript show:' '. c:= c + 1].
c:= 1.
count:= count.
          [c <= (2 * k - 1 )]whileTrue: [ Transcript show: '*'. c:= c + 1].
 ...

1
2
3
4
5
6
7
8
9
| n c k count |
n:= 3.
c:= 1.
k:= 1.
count:= (n-1).
[k <= n]whileTrue: [ [c <= count]whileTrue:[ Transcript show:' '. c:= c + 1].
c:= 1.
count:= count.
          [c <= (2 * k - 1 )]whileTrue: [ Transcript show: '*'. c:= c + 1].
 ...

1
2
3
4
5
6
7
8
9
| n c k count |
n:= 3.
c:= 1.
k:= 1.
count:= (n-1).
[k <= n]whileTrue: [ [c <= count]whileTrue:[ Transcript show:'  '. c:= c + 1].
c:= 1.
count:= count.
          [c <= (2 * k - 1 )]whileTrue: [ Transcript show: '*'. c:= c + 1].
 ...

1
2
3
4
5
6
7
8
9
| n c k count |
n:= 3.
c:= 1.
k:= 1.
count:= (n-1).
[k <= n]whileTrue: [ [c <= count]whileTrue:[ Transcript show:'#'. c:= c + 1].
c:= 1.
count:= count.
          [c <= (2 * k - 1 )]whileTrue: [ Transcript show: '*'. c:= c + 1].
 ...