http://snippets.dzone.com/posts Fri, 05 Sep 2008 05:48:22 GMT DZone Snippets: median code http://snippets.dzone.com/posts/show/1089 <code> <br /> median: func [block [any-block!] /local len mid] [ <br /> if empty? block [return none] <br /> block: sort copy block <br /> len: length? block <br /> mid: to integer! len / 2 <br /> either odd? len [ <br /> pick block add 1 mid <br /> ][ <br /> (block/:mid) + (pick block add 1 mid) / 2 <br /> ] <br /> ] <br /> <br /></code> Tue, 10 Jan 2006 05:22:21 GMT http://snippets.dzone.com/posts/show/1089 gregg.irwin (Gregg Irwin)