[REBOL] Re: RFC: Cross-language benchmark proposal
From: jan:skibinski:sympatico:ca at: 7-Nov-2002 20:34
Hi Joel,
> Heavens to Murgatroyd, no! ;-) I'm just contributing my opinion
> and everyone else is free to do so as well!
That was a booby trap of mine :-)
I have no other comments about your last response.
I have to agree with most of it. BTW, you did
s good job with your proposal.
I am attaching the little gadget I mentioned
before.
All the best
Jan
> >
> > I was just fiddling with something else and it suddenly appeared
> > to me that I could reuse it in Ackerman. I'll post that little
> > gadget separately.
> >
>
> I'm eager to see it.
>
-----------------------------------------------------
It's really nothing, a little gadget, but quite covenient,
because it abstracts away and composes
many functions into one.
Something similar to operator (.) in Haskel, as in:
f = g . h . k
It also allows for making quick and dirty
temporary functions:
pipe: func [
{Make a pipeline from a block of functions}
fs [block!]
/local result [function!]
][
make function! [x] append copy fs 'x
]
filter pipe [6 < ] .. [1 20]
map pipe [10 * sine] ..[1 10]
g: pipe [10 * sine]
source g
==g: func [x][10 * sine x]
Do you recognize this?
g: pipe [boom2 boom2 boom2 boom2]
g 1
== 61
Well that's ack 3 3 from the example I previously posted.
How about putting a probe after each stage of the pipeline?