Initial data commit

Task/Least-common-multiple/Applesoft-BASIC/least-common-multiple.basic

@@ -0,0 +1,22 @@
+10 DEF FN MOD(A) = INT((A / B - INT(A / B)) * B + .05) * SGN(A / B)
+20 INPUT"M=";M%
+30 INPUT"N=";N%
+40 GOSUB 100
+50 PRINT R
+60 END
+
+100 REM LEAST COMMON MULTIPLE M% N%
+110 R = 0
+120 IF M% = 0 OR N% = 0 THEN RETURN
+130 A% = M% : B% = N% : GOSUB 200"GCD
+140 R = ABS(M%*N%)/R
+150 RETURN
+
+200 REM GCD ITERATIVE EUCLID A% B%
+210 FOR B = B% TO 0 STEP 0
+220     C% = A%
+230     A% = B
+240     B = FN MOD(C%)
+250 NEXT B
+260 R = ABS(A%)
+270 RETURN