21 lines
398 B
Plaintext
21 lines
398 B
Plaintext
#define system.
|
|
#define system'collections.
|
|
#define system'routines.
|
|
#define extensions.
|
|
|
|
// --- Program ---
|
|
|
|
#symbol program =
|
|
[
|
|
// 1. Create
|
|
#var aMap := Dictionary new.
|
|
aMap@"key" := "foox".
|
|
aMap@"key2":= "foo2".
|
|
aMap@"key3":= "foo3".
|
|
aMap@"key4":= "foo4".
|
|
|
|
// Enumerate
|
|
aMap run &each: aKeyValue
|
|
[ console writeLine:(aKeyValue key):" : ":aKeyValue ].
|
|
].
|