[REBOL] Re: [RWEBOL] HOF and system exploration
From: jan:skibinski:sympatico:ca at: 26-Oct-2002 8:50
Hi Ladislav,
A quick note related to this fragment of your last email..
> To show you the complications with DO, here is a simple task:
>
> Define a functional (let's call it SIMILAR) taking an ANY-FUNCTION! F, which
> can take one normally evaluated ANY-TYPE! argument. The result of SIMILAR
> should be a FUNCTION! value that yields equal results as the argument
> function F would yield. One possible solution is:
>
> similar: func [f [any-function!]] [func [arg [any-type!]] compose [(:f)
> get/any 'arg]]
>
> Now try to "correct" SIMILAR to work when it obtains DO as its argument :-)
>
I do not understand the task you posed. As far as I can see there is nothing
to "correct" in your 'similar. Works like a charm for me, even with 'do:
lado: similar :do
>> lado sine 90
== 1
>> lado [5 sine 90]
== 1
Jan