[REBOL] Re: Coffee break problem anyone?
From: lmecir:mbox:vol:cz at: 4-Nov-2003 16:58
Hi Sunanda,
here is my tea break result:
find-longest-run: function [
[catch]
data-array [block!]
] [
longest-run-size
longest-run-start
size
position
number
] [
if empty? data-array [throw make error! "a non-empty array expected"]
longest-run-start: position: back tail data-array
longest-run-size: size: 1
while [not head? position] [
if not number? first position [throw make error! "an integer array expected"]
number: first position
position: back position
either (first position) = (number - 1) [
size: size + 1
if size >= longest-run-size [
longest-run-size: size
longest-run-start: position
]
] [size: 1]
]
reduce [longest-run-size longest-run-start]
]
-L
----- Original Message ----- >
Here's a little problem I needed an answer to yesterday.