comparison clojure/com/aurellem/gb/util.clj @ 303:5bcda2d6d135

item manipulation program works!
author Robert McIntyre <rlm@mit.edu>
date Sat, 31 Mar 2012 00:33:35 -0500
parents 1de6aada1cb7
children 073600cba28a
comparison
equal deleted inserted replaced
302:0b3e89103dc2 303:5bcda2d6d135
223 "the lower 8 bits of an integer interpreted as a signed 8 223 "the lower 8 bits of an integer interpreted as a signed 8
224 bit number" 224 bit number"
225 [n] 225 [n]
226 (let [lower-seven (bit-and n 127)] 226 (let [lower-seven (bit-and n 127)]
227 (if (bit-test n 7) 227 (if (bit-test n 7)
228 (- 128 lower-seven) 228 (- lower-seven 128)
229 lower-seven))) 229 lower-seven)))
230 230