median: func [block [any-block!] /local len mid] [
if empty? block [return none]
block: sort copy block
len: length? block
mid: to integer! len / 2
either odd? len [
pick block add 1 mid
][
(block/:mid) + (pick block add 1 mid) / 2
]
]
You need to create an account or log in to post comments to this site.