[REBOL] Re: Coffee break problem anyone?
From: g:santilli:tiscalinet:it at: 4-Nov-2003 14:05
Hi Sunanda,
On Tuesday, November 4, 2003, 1:02:28 PM, you wrote:
Sac> As I needed the answer yesterday, I hacked together some code. But there has
Sac> got to be a more elegant way, surely. Maybe using parse on a block?
With PARSE, a solution could be:
block: [
12 13 14 15 16 17
7 8
20 21 22 23 24 25 26
19
59 58 57 56 55 54 53 52
20 21 22 23
101 102 103 104 105 106 107
]
results: []
parse block [
some [
start:
set value integer!
any [
(value: value + 1)
1 1 value
]
finish:
(insert/only results reduce [negate offset? start finish index? start copy/part start
finish])
]
]
foreach result sort results [
print ["Sequence:" result/3 "(len" negate result/1 "pos" result/2 ")"]
]
This is less efficient because it is using SORT to find the best
result, however has the advantage of giving the other results too.
The sort can be avoided, anyway.
Regards,
Gabriele.
--
Gabriele Santilli <[g--santilli--tiscalinet--it]> -- REBOL Programmer
Amiga Group Italia sez. L'Aquila --- SOON: http://www.rebol.it/
