Data update
This commit is contained in:
parent
81fd053722
commit
52a6ef48dd
10248 changed files with 63654 additions and 6775 deletions
|
|
@ -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$[][]
|
||||
Loading…
Add table
Add a link
Reference in a new issue