Least common multiple: Difference between revisions
Content deleted Content added
→{{header|PARI/GP}}: added PHP |
→{{header|Prolog}}: Added PureBasic |
||
Line 386: | Line 386: | ||
Z = 36. |
Z = 36. |
||
</pre> |
</pre> |
||
=={{header|PureBasic}}== |
|||
<lang PureBasic>Procedure GCDiv(a, b); Euclidean algorithm |
|||
Protected r |
|||
While b |
|||
r = b |
|||
b = a%b |
|||
a = r |
|||
Wend |
|||
ProcedureReturn a |
|||
EndProcedure |
|||
Procedure LCM(m,n) |
|||
Protected t |
|||
If m And n |
|||
t=m*n/GCDiv(m,n) |
|||
EndIf |
|||
ProcedureReturn t*Sign(t) |
|||
EndProcedure</lang> |
|||
=={{header|Python}}== |
=={{header|Python}}== |