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

[REBOL] Re: next exercise ;-)

From: lmecir:mbox:vol:cz at: 24-Oct-2001 15:33

Can't you ask easier questions? A modification of APPLY might be of some use... apply-with-path: transp-func [ f [any-function!] refinements [block!] arguments [block!] ] [ use [self path call args] copy/deep [ self: :f args: arguments path: make path! 1 + length? refinements insert :path 'self insert tail :path refinements call: make block! 2 + 2 * length? args insert call reduce ['local-return :path] loop length? args [ insert tail call reduce [:first copy/part args 1] args: next args ] call ] ] ...