DZone Snippets: SHR code http://snippets.dzone.com/posts Sat, 26 Jul 2008 10:42:06 GMT DZone Snippets: SHR code SHR (shift-right) function http://snippets.dzone.com/posts/show/1117 <code> <br /> SHR: func [ <br /> "Shift Right" <br /> s [series!] <br /> n [integer!] <br /> /with fill <br /> ][ <br /> append <br /> array/initial <br /> min n (length? s) ; we should really ASSERT n <= length? s <br /> either with [fill][none] <br /> copy/part s ((length? s) - n) <br /> ] <br /></code> Tue, 10 Jan 2006 06:07:33 GMT http://snippets.dzone.com/posts/show/1117 gregg.irwin (Gregg Irwin)