This is my try with parse:
find-longest-run: func [data-array [block!] /local x next-x start res len val
h test][
start: data-array
res: reduce [0 data-array]
test: [
res/1 < len: offset? start h
insert/only insert clear res len start
]
parse start [
set x number! (next-x: x + 1)
any [
h: [
set x 1 1 next-x |
set x number! (all test start: h)
]
(next-x: x + 1)
]
(all test)
]
res
]
---
Ciao
Romano
--
To unsubscribe from this list, just send an email to
[EMAIL PROTECTED] with unsubscribe as the subject.
