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

[REBOL] Re: A "supercharged" Map function.

From: andrew:martin:colenso:school at: 24-Jul-2003 13:45

Brett wrote:
> args: head clear any [ > find first :mapfunc refinement! tail first :mapfunc] > func [series [series!] /local _nfv_ _nfr_] compose/deep [ > _nfr_: make type? series length? series > foreach [(args)] series [ > if filterfunc set/any '_nfv_ (:mapfunc) (args) [ > (pick [insert/only insert] found? only) > tail _nfr_ get/any '_nfv_ > ] > ] > _nfr_ > ]
Just been thinking about this, and I thought, what if the 'mapfun copied across the function's refinements and refinement arguments? For example: MyParse: mapfun :parse MyParse/all MyBlockOfStringsAndParseRules MyParse MyBlockOfBlocksAndParseRules Andrew J Martin Attendance Officer & Information Systems Trouble Shooter Colenso High School Arnold Street, Napier. Tel: 64-6-8310180 ext 826 Fax: 64-6-8336759 DISCLAIMER: Colenso High School and its Board of Trustees is not responsible (or legally liable) for materials distributed to or acquired from user e-mail accounts. You can report any misuse of an e-mail account to our ICT Manager and the complaint will be investigated. (Misuse can come in many forms, but can be viewed as any material sent/received that indicate or suggest pornography, unethical or illegal solicitation, racism, sexism, inappropriate language and/or other issues described in our Acceptable Use Policy.) All outgoing messages are certified virus-free by McAfee GroupShield Exchange Phone: +64 6 843 5095 or Fax: +64 6 833 6759 or E-mail: [postmaster--colenso--school--nz]