[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
]
]
...