[REBOL] Re: Useful Missing Series! Functions
From: robbo1mark::aol::com at: 4-Jul-2001 13:22
Thanks Jeff that is exactly the kind of "factoring"
I was looking for! I coded them up at lunch time at work
& didn't really have time to think too deeply about them.
It's really cool when people with greater knowledge show me a better / simpler / faster
way of doing things
and having a preference for minimalism / simplicity I really appreciate it!
Any improvements on the other two anybody?
Thanks Jeff, my REBOL friend 8-)
Mark Dickson
In a message dated Wed, 4 Jul 2001 1:10:20 PM Eastern Daylight Time, Jeff Kreis <[jeff--rebol--net]>
writes:
<<
> SWAP FUNCTION
>
> swap: func [
>
> series [series!] /local x y
>
> ] [
>
> x: first series y: second series
>
> remove/part series 2
>
> return back back insert series reduce [y x]
>
> ]
swap: func [series [series!]][ head reverse/part series 2 ]