Greatest common divisor: Difference between revisions
Content added Content deleted
No edit summary |
m (moved to Common Lisp) |
||
Line 772: | Line 772: | ||
until (zerop y) |
until (zerop y) |
||
finally (return x)))</lang> |
finally (return x)))</lang> |
||
===Alternate solution=== |
|||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
=={{header|Component Pascal}}== |
=={{header|Component Pascal}}== |
||
Line 1,896: | Line 1,918: | ||
} |
} |
||
</lang> |
</lang> |
||
=={{header|Lisp}}== |
|||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
=={{header|LiveCode}}== |
=={{header|LiveCode}}== |