16 lines
430 B
Plaintext
16 lines
430 B
Plaintext
base$[][] = [ [ "name" "Rocket Skates" ] [ "price" 12.75 ] [ "color" "yellow" ] ]
|
|
update$[][] = [ [ "price" 15.25 ] [ "color" "red" ] [ "year" 1974 ] ]
|
|
proc update &a$[][] &b$[][] .
|
|
for b to len b$[][]
|
|
for a to len a$[][]
|
|
if a$[a][1] = b$[b][1]
|
|
a$[a][2] = b$[b][2]
|
|
break 1
|
|
.
|
|
.
|
|
if a > len a$[][] : a$[][] &= b$[b][]
|
|
.
|
|
.
|
|
update base$[][] update$[][]
|
|
print base$[][]
|