Anonymous user
Greatest common divisor: Difference between revisions
→{{header|Common Lisp}}: tell the name actually used
(→Alternate solution: remove alternative that brings nothing new but only errors) |
(→{{header|Common Lisp}}: tell the name actually used) |
||
Line 752:
7</lang>
Here is an implementation using the do macro. We call the function <code>
<lang lisp>(defun gcd* (a b)
Line 772:
until (zerop y)
finally (return x)))</lang>
=={{header|Component Pascal}}==
BlackBox Component Builder
| |||