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

SHR (shift-right) function (See related posts)

    SHR: func [
        "Shift Right"
        s [series!]
        n [integer!]
        /with fill
    ][
        append
            array/initial
                min n (length? s)       ; we should really ASSERT n <= length? s
                either with [fill][none]
            copy/part s ((length? s) - n)
    ]
to REBOL series SHR shift-right shift by gregg.irwin on Tue Jan 10 01:07:33 -0500 2006

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


Click here to browse all 4860 code snippets

Related Posts