Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search
 

[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/