epfl-archive/cs420-acc/l3-warmup/tests/prim-shift-right.l3
2022-04-07 18:33:05 +02:00

10 lines
304 B
Scheme

;; In Emacs, open this file in -*- Scheme -*- mode
;; Test the @shift-right primitive
(@byte-write 67)
(@byte-write (@shift-right 65 0)) ;A
(@byte-write (@shift-right 132 1)) ;B
(@byte-write (if (@= (@shift-right #x40000000 1) #x60000000) 67 63)) ;C