14 lines
195 B
Text
14 lines
195 B
Text
+ a : ARRAY(INTEGER);
|
|
+ b : {INTEGER;};
|
|
|
|
a := ARRAY(INTEGER).create 1 to 3;
|
|
1.to 3 do { i : INTEGER;
|
|
a.put i to i;
|
|
};
|
|
|
|
b := { arg : INTEGER;
|
|
(arg * arg).print;
|
|
'\n'.print;
|
|
};
|
|
|
|
a.foreach b;
|