[REBOL] Re: Associative data store Re:(3)
From: g:santilli:tiscalinet:it at: 16-Sep-2000 19:09
Hello [Al--Bri--xtra--co--nz]!
On 16-Set-00, you wrote:
A> And here's a version that's shorter and nicer to use. Can any
A> one think of a shorter version?
Yup. ;^)
associate: func [block [block!] key value] [
head change/only any [
find/tail block key
insert tail block key
] reduce [val]
]
associate?: func [block [block!] key] [
all [key: select block key first key]
]
Regards,
Gabriele.
--
Gabriele Santilli <[giesse--writeme--com]> - Amigan - REBOL programmer
Amiga Group Italia sez. L'Aquila -- http://www.amyresource.it/AGI/