Rosetta Code

Bitwise operations: Difference between revisions

Page Discussion

Bitwise operations (view source)

Revision as of 12:37, 23 January 2016

No change in size ,  8 years ago
m
→‎{{header|Common Lisp}}
Line 682:
 
(defun shr (x width bits)
"Compute bitwise rigthright shift of x by 'bits' bits, represented on 'width' bits"
(logand (ash x (- bits))
(1- (ash 1 width))))
Line 698:
 
(defun rotr (x width bits)
"Compute bitwise rigthright rotation of x by 'bits' bits, represented on 'width' bits"
(logior (logand (ash x (- (mod bits width)))
(1- (ash 1 width)))
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/44659"