diff options
| author | rsiddharth <s@ricketyspace.net> | 2017-07-08 17:47:55 +0000 |
|---|---|---|
| committer | rsiddharth <s@ricketyspace.net> | 2017-07-08 17:47:55 +0000 |
| commit | 87e1c288bb7de9f4ed2c8f02d9854e0397a2a9a5 (patch) | |
| tree | adf3e031382ce11b17cdf69d129f99e72f1bbab4 | |
| parent | d022481e3c3e9337e22b9d92bf805065bd64d05f (diff) | |
net: Add three-primes-gt-1000
* net/ricketyspace/sicp/one/twentytwo.scm
(three-primes-gt-1000): New function.
| -rw-r--r-- | net/ricketyspace/sicp/one/twentytwo.scm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/net/ricketyspace/sicp/one/twentytwo.scm b/net/ricketyspace/sicp/one/twentytwo.scm index 7eab420..aefab51 100644 --- a/net/ricketyspace/sicp/one/twentytwo.scm +++ b/net/ricketyspace/sicp/one/twentytwo.scm @@ -57,3 +57,6 @@ (else (three-primes-gt-iter n (+ e 10) (search-for-primes n e))))) + +(define (three-primes-gt-1000) + (three-primes-gt 1000)) |