Associative array/Merging: Difference between revisions

Add Icon and Unicon
(Add Icon and Unicon)
Line 305:
{{Out}}
<pre>Item {name = Just "Rocket Skates", price = Just 15.25, color = Just "red", year = Just 1974}</pre>
 
=={{header|Icon}} and {{header|Unicon}}==
<lang unicon>procedure main()
local base, update, master, f, k
 
base := table()
base["name"] := "Rocket Skates"
base["price"] := 12.75
base["color"] := "yellow"
 
update := table()
update["price"] := 15.25
update["color"] := "red"
update["year"] := 1974
 
master := table()
every k := key((f := base | update)) do {
master[k] := f[k]
}
 
every k := key(master) do {
write(k, " = ", master[k])
}
end</lang>
 
{{out}}
<pre>prompt$ unicon -s merge.icn -x
color = red
name = Rocket Skates
price = 15.25
year = 1974</pre>
 
=={{header|J}}==
Anonymous user