Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 05:39:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

fixing off-by-one error in first-set-bit

Browse source
This commit is contained in:
Alex Shinn 2017-05-19 23:04:06 +09:00
parent d3c2306220
commit e0fe160f46
2 changed files with 9 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lib/srfi/142/bitwise.scm
View file

@ -36,7 +36,7 @@
(define (first-set-bit i) (define (first-set-bit i)
(if (zero? i) (if (zero? i)
-1 -1
(integer-length (- i (bit-and i (- i 1)))))) (- (integer-length (- i (bit-and i (- i 1)))) 1)))
(define (mask len) (define (mask len)
(- (arithmetic-shift 1 len) 1)) (- (arithmetic-shift 1 len) 1))

8
lib/srfi/142/test.sld
View file

@ -132,6 +132,14 @@
(test #b1010111 (bits #t #t #t #f #t #f #t)) (test #b1010111 (bits #t #t #t #f #t #f #t))
(test #b1010111 (bits #t #t #t #f #t #f #t #f #f)) (test #b1010111 (bits #t #t #t #f #t #f #t #f #f))
(test 0 (first-set-bit 1))
(test 1 (first-set-bit 2))
(test -1 (first-set-bit 0))
(test 3 (first-set-bit 40))
(test 2 (first-set-bit -28))
(test 99 (first-set-bit (expt 2 99)))
(test 99 (first-set-bit (expt -2 99)))
(test '(#t #f #t #f #t #t #t) (bitwise-fold cons '() #b1010111)) (test '(#t #f #t #f #t #t #t) (bitwise-fold cons '() #b1010111))
(test 5 (test 5