Parent Directory | Revision Log | Patch
revision 1.18 by kryde, Mon May 5 22:59:03 2003 UTC | revision 1.19 by kryde, Mon May 5 23:04:02 2003 UTC | |
---|---|---|
# | Line 1745 | Line 1745 |
1745 | ;;; | ;;; |
1746 | ;;; inexact->exact | ;;; inexact->exact |
1747 | ;;; | ;;; |
1748 | ||
1749 | ;;; | |
1750 | ;;; logcount | |
1751 | ;;; | |
1752 | ||
1753 | (with-test-prefix "logcount" | |
1754 | ||
1755 | (with-test-prefix "-2^i, meaning ...11100..00" | |
1756 | (do ((n -1 (ash n 1)) | |
1757 | (i 0 (1+ i))) | |
1758 | ((> i 256)) | |
1759 | (pass-if n | |
1760 | (= i (logcount n)))))) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |