Hello, Is there are word to find the longest item in a sequence? Here's what I'm using now.
: compare-length ( a b -- n ) >r length r> length <=> ; : longer ( a b -- a-or-b ) 2dup compare-length 0 > -rot ? ; : longest ( seq -- obj ) dup first swap [ longer ] each ; Ed ------------------------------------------------------------------------- Take Surveys. Earn Cash. Influence the Future of IT Join SourceForge.net's Techsay panel and you'll get the chance to share your opinions on IT & business topics through brief surveys - and earn cash http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV _______________________________________________ Factor-talk mailing list [email protected] https://lists.sourceforge.net/lists/listinfo/factor-talk
