Clojure Core

Namespaces

clojure
- core
  - protocols
- data
- inspector
- java
  - browse
  - browse-ui
  - io
  - javadoc
  - shell
- main
- pprint
- reflect
- repl
- set
- stacktrace
- string
- template
- test
  - junit
  - tap
- walk
- xml
- zip

doc source examples comments

1.3.0

bit-shift-right

clojure.core

(bit-shift-right x n)

Bitwise shift right

2 Examples top

link | changes
```
;; Convert number into bits:
user=> (defn bits [n s]
         (take s
               (map
                 (fn [i] (bit-and 0x01 i))
                 (iterate
                   (fn [i] (bit-shift-right i 1))
                   n))))
#'user/bits

user=> (map (fn [n] (bits n 3)) (range 8))
((0 0 0) (1 0 0) (0 1 0) (1 1 0) (0 0 1) (1 0 1) (0 1 1) (1 1 1))
```
;; Convert number into bits: user=> (defn bits [n s] (take s (map (fn [i] (bit-and 0x01 i)) (iterate (fn [i] (bit-shift-right i 1)) n)))) #'user/bits user=> (map (fn [n] (bits n 3)) (range 8)) ((0 0 0) (1 0 0) (0 1 0) (1 1 0) (0 0 1) (1 0 1) (0 1 1) (1 1 1))
link | changes
```
user=> (bit-shift-right 2r1101 0)
13
user=> (bit-shift-right 2r1101 1)
6
user=> (bit-shift-right 2r1101 2)
3
```
user=> (bit-shift-right 2r1101 0) 13 user=> (bit-shift-right 2r1101 1) 6 user=> (bit-shift-right 2r1101 2) 3

Source clojure/core.clj:1297 top

(defn bit-shift-right
  "Bitwise shift right"
  {:inline (fn [x n] `(. clojure.lang.Numbers (shiftRight ~x ~n)))
   :added "1.0"}
  [x n] (. clojure.lang.Numbers shiftRight x n))

Vars in clojure.core/bit-shift-right:

Used in 0 other vars

Comments top

1 comment(s) for bit-shift-right.

TimMc

link

From the IRC channel, a way to get zero-fill bit-shift-right:

06:08 < mikera> (defn >>> [v bits] (bit-shift-right (bit-and 0xFFFFFFFF v) bits))

There's also an open ticket for a built-in version.