Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
branch: master
Fetching contributors…

Cannot retrieve contributors at this time

10 lines (10 sloc) 0.259 kb
(defun pro9 ()
(do ((a 1 (1+ a)))
((= a 1000))
(do ((b (1+ a) (1+ b)))
((= b 1000))
(do ((c (1+ b) (1+ c)))
((= c 1000))
(if (and (= (+ (* a a) (* b b)) (* c c))
(= (+ a b c) 1000))
(return-from pro9 (list a b c (* a b c))))))))
Jump to Line
Something went wrong with that request. Please try again.