16 lines
454 B
Text
16 lines
454 B
Text
* # Fill arrays
|
|
keys = array(5); vals = array(5)
|
|
ks = 'ABCDE'; vs = '12345'
|
|
kloop i = i + 1; ks len(1) . keys<i> = :s(kloop)
|
|
vloop j = j + 1; vs len(1) . vals<j> = :s(vloop)
|
|
|
|
* # Create hash
|
|
hash = table(5)
|
|
hloop k = k + 1; hash<keys<k>> = vals<k> :s(hloop)
|
|
|
|
* # Test and display
|
|
ts = 'ABCDE'
|
|
tloop ts len(1) . ch = :f(out)
|
|
str = str ch ':' hash<ch> ' ' :(tloop)
|
|
out output = str
|
|
end
|