8 lines
193 B
Text
8 lines
193 B
Text
MODE FOO = STRUCT(CHAR u,l);
|
|
INT n := 26;
|
|
[n]FOO f;
|
|
|
|
# Additionally each item can be initialised #
|
|
FOR i TO UPB f DO f[i] := (REPR(ABS("A")-1+i), REPR(ABS("a")-1+i)) OD;
|
|
|
|
print((f, new line))
|