[REBOL] Re: Coffee break problem anyone?
From: rotenca:telvia:it at: 4-Nov-2003 16:42
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