Time for an 2014 update…

2014-01-17 05:32:22 +00:00 · 2014-01-17 05:32:22 +00:00 · 09687c4926
commit 09687c4926
parent 372c577f83
2520 changed files with 34227 additions and 7318 deletions
--- a/Task/Least-common-multiple/BASIC/least-common-multiple-2.basic
+++ b/Task/Least-common-multiple/BASIC/least-common-multiple-2.basic
@ -0,0 +1,11 @@
+      DEF FN_LCM(M%,N%)
+      IF M%=0 OR N%=0 THEN =0 ELSE =ABS(M%*N%)/FN_GCD_Iterative_Euclid(M%, N%)
+
+      DEF FN_GCD_Iterative_Euclid(A%, B%)
+      LOCAL C%
+      WHILE B%
+        C% = A%
+        A% = B%
+        B% = C% MOD B%
+      ENDWHILE
+      = ABS(A%)