Never been to DZone Snippets before?

Snippets is a public source code repository. Easily build up your personal collection of code snippets, categorize them with tags / keywords, and share them with the world

median function (See related posts)

    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
        ]
    ]
to math REBOL median by gregg.irwin on Tue Jan 10 00:22:21 -0500 2006

You need to create an account or log in to post comments to this site.


Click here to browse all 5147 code snippets

Related Posts