Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search
 

[REBOL] Re: Linguistic influences

From: joel:neely:fedex at: 11-May-2002 9:56

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 ]