[REBOL] Re: Looking for advice
From: patrick:philipot:laposte at: 19-Jan-2003 20:18
Hi,
DocKimbel said:
>Here's a possible solution using 'parse :
>
>validate: func [blk /local out div int op][
> out: make block! length? blk
> div: to-lit-word "/"
> parse blk [
> to integer! set int integer! (insert out int)
> some [
> set op ['+ | '- | div | '*]
> to integer! set int integer! (repend out [op int])
> | skip
> ]
> ]
> out
>]
>
>HTH,
>-DocKimbel
Sure, it helps! For one thing it s a better solution than the one I had
finally came up with, and more for what I learned from it: I didn't know
that 'skip could be a rule in itself.
Thanks too to Gabriele and Renaud!
Regards
Patrick
