Initial data commit

Task/M-bius-function/Yabasic/m-bius-function.basic

@@ -0,0 +1,21 @@
+outstr$ = " .  "
+for i = 1 to 200
+    if mobius(i) >= 0 then outstr$ = outstr$ + " " : fi
+    outstr$ = outstr$ + str$(mobius(i)) + "  "
+    if mod(i, 10) = 9 then
+        print outstr$
+        outstr$ = ""
+    end if
+next i
+end
+
+sub mobius(n)
+    if n = 1 then return 1 : fi
+    for d = 2 to int(sqr(n))
+        if mod(n, d) = 0 then
+            if mod(n, (d*d)) = 0 then return 0 : fi
+            return -mobius(n/d)
+        end if
+    next d
+    return -1
+end sub