24 lines
524 B
Plaintext
24 lines
524 B
Plaintext
load "stdlib.ring"
|
|
|
|
list1 = [:name = "Rocket Skates", :price = 12.75, :color = "yellow"]
|
|
list2 = [:price = 15.25, :color = "red", :year = 1974]
|
|
|
|
for n = 1 to len(list2)
|
|
flag = 0
|
|
for m = 1 to len(list1)
|
|
if list2[n][1] = list1[m][1]
|
|
flag = 1
|
|
del(list1,m)
|
|
add(list1,[list2[n][1],list2[n][2]])
|
|
exit
|
|
ok
|
|
next
|
|
if flag = 0
|
|
add(list1,[list2[n][1],list2[n][2]])
|
|
ok
|
|
next
|
|
|
|
for n = 1 to len(list1)
|
|
see list1[n][1] + " = " + list1[n][2] + nl
|
|
next
|