diff options
| author | Mark Engelberg <mark.engelberg@gmail.com> | 2009-03-29 18:14:55 +0000 |
|---|---|---|
| committer | Mark Engelberg <mark.engelberg@gmail.com> | 2009-03-29 18:14:55 +0000 |
| commit | e1eab3a8509976c1c83851803348e29ca239abcf (patch) | |
| tree | 6c052110c8db23a2752780d6b557c802b95bd4d0 /src/clojure/contrib/math.clj | |
| parent | d29c7fea73dfffc2b653325226adeef9363d0f8c (diff) | |
Patched exact-integer-sqrt to work with Longs.
Diffstat (limited to 'src/clojure/contrib/math.clj')
| -rw-r--r-- | src/clojure/contrib/math.clj | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/clojure/contrib/math.clj b/src/clojure/contrib/math.clj index f7176a59..d7937745 100644 --- a/src/clojure/contrib/math.clj +++ b/src/clojure/contrib/math.clj @@ -136,7 +136,7 @@ round always returns an integer. Rounds up for values exactly in between two in (defmethod integer-length java.lang.Integer [n]
(count (Integer/toBinaryString n)))
(defmethod integer-length java.lang.Long [n]
- (count (Integer/toBinaryString n)))
+ (count (Long/toBinaryString n)))
(defmethod integer-length java.math.BigInteger [n]
(count (. n toString 2)))
|