Anonymous user
Associative array/Merging: Difference between revisions
added Ol
(added Ol) |
|||
Line 637:
year = 1974;
}</pre>
=={{header|Ol}}==
<lang scheme>
(define a1 {
'name "Rocket Skates"
'price 12.75
'color "yellow"
})
(define a2 {
'price 15.25
'color "red"
'year 1974
})
(print "a1: " a1)
(print "a2: " a2)
(define (collide a b) b) ; will use new key value
(print "merged a1 a2: " (ff-union a1 a2 collide))
</lang>
{{Out}}
<pre>
a1: #ff((name . Rocket Skates) (price . 51/4) (color . yellow))
a2: #ff((price . 61/4) (color . red) (year . 1974))
merged a1 a2: #ff((name . Rocket Skates) (price . 61/4) (color . red) (year . 1974))
</pre>
=={{header|Perl}}==
| |||