Initial data commit

Task/M-bius-function/Applesoft-BASIC/m-bius-function.basic

@@ -0,0 +1,23 @@
+10 HOME
+20 FOR t = 0 TO 9
+30 FOR u = 1 TO 10
+40   n = 10*t+u
+50   GOSUB 130
+60   IF STR$(m) = "0" THEN PRINT "  0";
+70   IF STR$(m) = "1" THEN PRINT "  1";
+80   IF STR$(m) = "-1" THEN PRINT " -1";
+90 NEXT u
+100 PRINT
+110 NEXT t
+120 END
+130 IF n = 1 THEN m = 1 : RETURN
+140 m = 1 : f = 2
+150 IF (n-INT(n/(f*f))*(f*f)) = 0 THEN m = 0 : RETURN
+160 IF (n-INT(n/(f))*(f)) = 0 THEN GOSUB 200
+170 f = f+1
+180 IF f <= n THEN GOTO 150
+190 RETURN
+200 m = -m
+210 n = n/f
+220 RETURN
+230 END