Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search
 

[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.