23 lines
514 B
Plaintext
23 lines
514 B
Plaintext
# use array of array for this
|
|
func$ hget &arr$[][] ind$ .
|
|
for i to len arr$[][]
|
|
if arr$[i][1] = ind$ : return arr$[i][2]
|
|
.
|
|
return ""
|
|
.
|
|
proc hset &arr$[][] ind$ val$ .
|
|
for i to len arr$[][]
|
|
if arr$[i][1] = ind$
|
|
arr$[i][2] = val$
|
|
return
|
|
.
|
|
.
|
|
arr$[][] &= [ ind$ val$ ]
|
|
.
|
|
clothing$[][] = [ [ "type" "t-shirt" ] [ "color" "red" ] ]
|
|
clothing$[][] &= [ "size" "xl" ]
|
|
#
|
|
print hget clothing$[][] "color"
|
|
hset clothing$[][] "color" "green"
|
|
print hget clothing$[][] "color"
|