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

[REBOL] Re: Monday Puzzle

From: arolls:bigpond:au at: 24-Jul-2001 20:15

Here's my first way: p: y: copy [0] loop 9 [ append/only p reduce [(p/1 + 1)] ; append a block p: p/2 ; advance position ] append/only p y ; loop back to beginning I am sure it can be smaller somehow.