Clean up solution to problem 9.

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))