[REBOL] Re: Newbie Q: Cropping text
From: joel:neely:fedex at: 8-Jul-2002 12:41
Note to self:
Proffredd befour hittyng sind!
Joel Neely wrote:
>
> b: make block! NN: (length? a) - 2
> c: a
> loop NN [append b (first c) + (second c) + (third c) / 3.0]
>
Should have read
b: make block! NN: (length? a) - 2
c: a
loop NN [
append b (first c) + (second c) + (third c) / 3.0
c: next c
]
--
; 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 ]