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

[REBOL] Re: COLLECTing results

From: AJMartin:orcon at: 25-Jul-2003 4:27

Brett wrote:
> /init result "Initialise the result series."
I'd use this instead: /initial result [series!] "Initialise the result series." as it fits better with existing Rebol refinements. See 'array.
> But I have got rid compose completely now :^)
:) I'm still using 'compose/deep, but that's because I want 'collect to work as much like my 'map as I can get it. Collect: function [ {Collects the results of block evaluations.} Block [block!] "The block to 'do." /Only "Inserts the result as a series." /Full "Don't ignore none! values." /Initial Results [series!] ] [ Result ] [ Results: any [Results copy []] compose/deep [ if not any [ unset? set/any 'Result do [(Block)] (pick [[none? :Result] []] not Full) ] [ (pick [insert insert/only] not Only) tail Results :Result ] Results ] ]
>> foreach c "abcde" collect/Initial [to integer! c] ""
== "979899100101" Andrew J Martin ICQ: 26227169