[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
http://colenso.net/scripts/Wiki.r?AJM
http://www.colenso.school.nz/
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 5.10.285.0
Phone: +64 6 843 5095 or Fax: +64 6 833 6759 or E-mail: [postmaster--colenso--school--nz]