Associative array/Merging: Difference between revisions
Content added Content deleted
(Add Icon and Unicon) |
|||
Line 305: | Line 305: | ||
{{Out}} |
{{Out}} |
||
<pre>Item {name = Just "Rocket Skates", price = Just 15.25, color = Just "red", year = Just 1974}</pre> |
<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}}== |
=={{header|J}}== |