Data commit

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

@@ -0,0 +1,20 @@
+function mobius( n as uinteger ) as integer
+    if n = 1 then return 1
+    for d as uinteger = 2 to int(sqr(n))
+        if n mod d = 0 then
+            if n mod (d*d) = 0 then return 0
+            return -mobius(n/d)
+        end if
+    next d
+    return -1
+end function
+
+dim as string outstr = " .     "
+for i as uinteger = 1 to 200
+    if mobius(i)>=0 then outstr += " "
+    outstr += str(mobius(i))+"     "
+    if i mod 10 = 9 then
+        print outstr
+        outstr = ""
+    end if
+next i