DZone Snippets: cmp-length code http://snippets.dzone.com/posts Sat, 11 Oct 2008 16:28:04 GMT DZone Snippets: cmp-length code cmp-length - compare the length of two series and return -1, 0, or 1, to support stable sorts by length http://snippets.dzone.com/posts/show/2769 <code> <br /> ; Support func for stable sort comparator <br /> cmp-length: func [a [series!] b [series!] /local len-a len-b] [ <br /> len-a: length? a <br /> len-b: length? b <br /> case [ <br /> len-a < len-b [-1] <br /> len-a > len-b [1] <br /> len-a = len-b [0] <br /> ] <br /> ] <br /></code> Mon, 02 Oct 2006 23:19:39 GMT http://snippets.dzone.com/posts/show/2769 gregg.irwin (Gregg Irwin)