Ooops. Typos. Sorry. Corrections below.
Joel Neely wrote:
>
> flattenins: func [b [block!] /local result front] [
> either empty? b [
> result: copy []
> ][
> front: first b
> result: insflatten next b
result: flattenins next b
> either block? front [
> insert result insflatten front
insert result flattenins front
> ][
> insert result front
> ]
> ]
> result
> ]
>
Doesn't change the real point. (I'm American? ;-)
-jn-
--
; Joel Neely joeldotneelyatfedexdotcom
REBOL [] do [ do func [s] [ foreach [a b] s [prin b] ] sort/skip
do function [s] [t] [ t: "" foreach [a b] s [repend t [b a]] t ] {
| e s m!zauafBpcvekexEohthjJakwLrngohOqrlryRnsctdtiub} 2 ]
--
To unsubscribe from this list, please send an email to
[EMAIL PROTECTED] with "unsubscribe" in the
subject, without the quotes.
