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

« Newer Snippets
Older Snippets »
Showing 1-1 of 1 total  RSS 

SHR (shift-right) function

    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 Jan 10, 2006
« Newer Snippets
Older Snippets »
Showing 1-1 of 1 total  RSS