summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--problem-9.scm10
1 files changed, 5 insertions, 5 deletions
diff --git a/problem-9.scm b/problem-9.scm
index cc0b862..152a6aa 100644
--- a/problem-9.scm
+++ b/problem-9.scm
@@ -5,21 +5,21 @@
(* x x))
;; Euclid's formula.
-(define (generate-triple n m)
+(define (make-triple n m)
(list (- (square n) (square m))
(* 2 n m)
(+ (square n) (square m))))
-(define (generate-triples max-n max-m)
+(define (generate-triples max-n)
(concatenate
(list-ec (:range n 2 max-n)
(list-ec (:range m 1 (1- n))
- (generate-triple n m)))))
+ (make-triple n m)))))
(define (find-triple-sum goal)
(find (lambda (triple)
(= (apply + triple) goal))
- ;; Assumed that this range would be enough. :)
- (generate-triples 100 99)))
+ ;; Assumed that a range of 50 would be enough.
+ (generate-triples 50)))
(apply * (find-triple-sum 1000))