GCD of two numbers in LISP

How to write a program in LISP to find the GCD of two numbers.
Who is Participating?
ozoConnect With a Mentor Commented:
(defun gcd (a b)
    (label ((_gcd (lambda (a b)
        (cond ((zerop b) a)
            ((lessp a b) (_gcd a (remainder b a)))
            (t (_gcd b (remainder a b)))))))
    (_gcd (natural (abs a)) (natural (abs b)))))
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.