diff options
| author | scgilardi <scgilardi@gmail.com> | 2008-06-28 20:07:53 +0000 |
|---|---|---|
| committer | scgilardi <scgilardi@gmail.com> | 2008-06-28 20:07:53 +0000 |
| commit | 3426dbd4f3fa25b2fd26a5fe10a6e05ccb7820ba (patch) | |
| tree | 669fa446d7460fa513d3ced1d1c2f3dbd5089dfe | |
| parent | cef84addca7796ec9387d2e87c40447e9fc541bd (diff) | |
remove isqrt
| -rw-r--r-- | lazy-seqs.clj | 10 |
1 files changed, 0 insertions, 10 deletions
diff --git a/lazy-seqs.clj b/lazy-seqs.clj index 9a8aa714..34cfc84c 100644 --- a/lazy-seqs.clj +++ b/lazy-seqs.clj @@ -31,16 +31,6 @@ (lib/use def) -(defn isqrt - "Returns the integer square root of n" - [n] - (loop [xn 1] - (prn xn) - (let [xn1 (quot (+ xn (quot n xn)) 2)] - (if (= xn1 xn) - xn1 - (recur xn1))))) - (defvar primes (lazy-cat [2 3 5 7] (let [primes-from |