Data update

This commit is contained in:
Ingy döt Net 2024-10-16 18:07:41 -07:00
parent 81fd053722
commit 52a6ef48dd
10248 changed files with 63654 additions and 6775 deletions

View file

@ -0,0 +1,17 @@
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$[][]