Data commit

Task/Tau-number/FreeBASIC/tau-number.basic

@@ -0,0 +1,22 @@
+function numdiv( n as uinteger ) as uinteger
+    dim as uinteger c = 2
+    for i as uinteger = 2 to (n+1)\2
+        if n mod i = 0 then c += 1
+    next i
+    return c
+end function
+
+function istau( n as uinteger ) as boolean
+    if n = 1 then return true
+    if n mod numdiv(n) = 0 then return true else return false
+end function
+
+dim as uinteger c = 0, i=1
+while c < 100
+    if istau(i) then
+        print i,
+        c += 1
+        if c mod 10 = 0 then print
+    end if
+    i += 1
+wend