1
2
3
4
5
6

car := [:x |x at: 1.].
cdr := [:x |x copyFrom: 2 to: x size.].
cons:= [:x :y|Array with: x with: y].
car value: #(1 2 3 ).
cdr value: #(1 2 3 ).
cons value: #(1 2 3 ) value: 1.

1
2

y := {[:x |x at:1.] . 1 . 2 . 3}.
(car value: y) value: (cdr value: y). "1"

1
2
3

"receiver perform: message."
y := {'factorial' asSymbol . 5 . 6 . 7}.
(car value: (cdr value: y)) perform: (car value: y). "120 (5x4x3x2x1)"

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14

x := #(4 3 2 1). 

"Array 长度固定"
x := Array with: 5 with: 4 with: 3 with: 2.                 "create array with up to 4 elements"

x := Array new: 4.                                          "allocate an array with specified size"
x                                                           "set array elements"
   at: 1 put: 5;
   at: 2 put: 4;
   at: 3 put: 3;
   at: 4 put: 2.

a := 'hi'
x := {a . 1 . 2} "a 将被解析。 #(a 1 2)->a是symbol"

1
2
3
4
5

x isEmpty.
x size.
x includes: 3.
x select: [:a | a > 2].
x do: [:a | Transcript show: a printString; cr].            "iterate over the array"

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14

x := Dictionary new.
x at: #e put: 3.
x at: 'key1' put: 3.
x includesKey: #a.
x keys.
x values.
x do: [:a | Transcript show: a printString; cr]        "iterate over the values collection"
x keysDo: [:a | Transcript show: a printString; cr].   "iterate over the keys collection"
x keysAndValuesDo: [:aKey :aValue | Transcript         "iterate over keys and values"
   show: aKey printString; space;
   show: aValue printString; cr].
x select: [:a | a > 2].       "return collection(dict) of elements that(value) pass test"

Smalltalk globals keys

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30

"unary message"
receiver := 5.
message := 'factorial' asSymbol.
result := receiver perform: message.
result := Compiler evaluate: ((receiver storeString), ' ', message).
result := (Message new setSelector: message arguments: #()) sentTo: receiver.

"binary message"
receiver := 1.
message := '+' asSymbol.
argument := 2.
result := receiver perform: message withArguments: (Array with: argument).
result := Compiler evaluate: ((receiver storeString), ' ', message, ' ', (argument storeString)).
result := (Message new setSelector: message arguments: (Array with: argument)) sentTo: receiver.

"keyword messages"
receiver := 12.
keyword1 := 'between:' asSymbol.
keyword2 := 'and:' asSymbol.
argument1 := 10.
argument2 := 20.
result := receiver
   perform: (keyword1, keyword2) asSymbol
   withArguments: (Array with: argument1 with: argument2).
result := Compiler evaluate:
   ((receiver storeString), ' ', keyword1, (argument1 storeString) , ' ', keyword2, (argument2 storeString)).
result := (Message new
      setSelector: (keyword1, keyword2) asSymbol
      arguments: (Array with: argument1 with: argument2))
   sentTo: receiver.

1
2
3
4
5

(OSCMessage for: {'/eim/osc' . 1}) sendTo: #[127 0 0 1] port: 12361. 

(OSCMessage for: {'/eim/osc' . 0}) sendTo: #[127 0 0 1] port: 12361.

(OSCMessage for: {'/eim/osc' . -1}) sendTo: #[127 0 0 1] port: 12361.