Greatest common divisor: Difference between revisions
Content added Content deleted
(→{{header|Common Lisp}}: tell the name actually used) |
No edit summary |
||
| Line 1,955: | Line 1,955: | ||
else gcd(a, b % a) |
else gcd(a, b % a) |
||
)</lang> |
)</lang> |
||
=={{header|M2000 Interpreter}}== |
|||
<lang M2000 Interpreter> |
|||
gcd=lambda (u as long, v as long) -> { |
|||
=if(v=0&->abs(u), lambda(v, u mod v)) |
|||
} |
|||
Module CheckGCD (f){ |
|||
Print f(49865, 69811)=9973 |
|||
Def ExpType$(x)=Type$(x) |
|||
Print ExpType$(f(49865, 69811))="Long" |
|||
} |
|||
CheckGCD gcd |
|||
</lang> |
|||
=={{header|Maple}}== |
=={{header|Maple}}== |
||