/[guile]/guile/guile-core/test-suite/tests/numbers.test
ViewVC logotype

Diff of /guile/guile-core/test-suite/tests/numbers.test

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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))))))

Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26