18 lines
368 B
Text
18 lines
368 B
Text
proc indexAssoc index . array[][] item .
|
|
for i = 1 to len array[][]
|
|
if array[i][1] = index
|
|
item = array[i][2]
|
|
break 2
|
|
.
|
|
.
|
|
item = number "nan"
|
|
.
|
|
proc indexStrAssoc index$ . array$[][] item$ .
|
|
for i = 1 to len array$[][]
|
|
if array$[i][1] = index$
|
|
item$ = array$[i][2]
|
|
break 2
|
|
.
|
|
.
|
|
item$ = ""
|
|
.
|