[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.

1 · 2 · [3] · 4 · 5 · 6 · See whole thread