blob: 4c1ad73f7bc30662e0d6f85bcda7fd7c4d7e3e17 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
(assert (= 16 (logand 31 16)))
(assert (= 24 (logand 31 25 24)))
(assert (= 25 (logior 24 16 1)))
(assert (= 25 (logior 8 16 1)))
(assert (= 678 (logxor 123 456 789)))
(assert (= -124 (lognot 123)))
(assert (= 246 (lsh 123 1)))
(assert (= 30 (ash 123 2)))
(assert (= -31 (ash -123 2)))
(assert (= 30 (ash 123 2)))
(assert (= -31 (ash -123 2)))
|
