[REBOL] Re: Associative data store Re:(3)

[g . santilli]

Hello [EMAIL PROTECTED]!

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 <[EMAIL PROTECTED]> - Amigan - REBOL programmer
Amiga Group Italia sez. L'Aquila -- http://www.amyresource.it/AGI/