From 87e1c288bb7de9f4ed2c8f02d9854e0397a2a9a5 Mon Sep 17 00:00:00 2001 From: rsiddharth Date: Sat, 8 Jul 2017 17:47:55 +0000 Subject: net: Add three-primes-gt-1000 * net/ricketyspace/sicp/one/twentytwo.scm (three-primes-gt-1000): New function. --- net/ricketyspace/sicp/one/twentytwo.scm | 3 +++ 1 file changed, 3 insertions(+) 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)) -- cgit v1.2.3