Greatest common divisor: Difference between revisions
Content added Content deleted
(adding maxima) |
|||
Line 1,128: | Line 1,128: | ||
<lang Matlab>function [gcdValue] = greatestcommondivisor(integer1, integer2) |
<lang Matlab>function [gcdValue] = greatestcommondivisor(integer1, integer2) |
||
gcdValue = gcd(integer1, integer2);</lang> |
gcdValue = gcd(integer1, integer2);</lang> |
||
=={{header|Maxima}}== |
|||
<lang maxima>/* There is a function gcd(a, b) in Maxima, but one can rewrite it */ |
|||
gcd2(a, b) := block([a: abs(a), b: abs(b)], while b # 0 do [a, b]: [b, mod(a, b)], a)$ |
|||
/* both will return 2^97 * 3^48 */ |
|||
gcd(100!, 6^100), factor; |
|||
gcd2(100!, 6^100), factor;</lang> |
|||
=={{header|MAXScript}}== |
=={{header|MAXScript}}== |