http://snippets.dzone.com/posts Sat, 17 May 2008 17:29:03 GMT DZone Snippets: multi-level-sort code http://snippets.dzone.com/posts/show/1129 <code> <br /> multi-level-sort: func [ <br /> "Returns a copy of the block, sorted on the given items (all ascending)" <br /> block [any-block!] <br /> offsets [any-block!] <br /> /local idx result <br /> ][ <br /> idx: make block length? block <br /> repeat i length? block [ <br /> append idx append/only reduce [i] excerpt block/:i offsets <br /> ] <br /> sort/skip/compare idx 2 2 <br /> result: make block length? block <br /> foreach [index data] idx [ <br /> append/only result block/:index <br /> ] <br /> result <br /> ] <br /></code> Tue, 10 Jan 2006 06:24:18 GMT http://snippets.dzone.com/posts/show/1129 gregg.irwin (Gregg Irwin)