Data commit

Task/Tau-function/Gambas/tau-function.gambas

@@ -0,0 +1,20 @@
+Public Sub Main()
+
+  Print "The tau functions for the first 100 positive integers are:\n"
+  For i As Integer = 1 To 100
+    Print Format$(numdiv(i), "####");
+    If i Mod 10 = 0 Then Print
+  Next
+
+End
+
+Public Function numdiv(n As Integer) As Integer
+
+  Dim c As Integer = 1
+  For i As Integer = 1 To (n + 1) \ 2
+    If n Mod i = 0 Then c += 1
+  Next
+  If n = 1 Then c -= 1
+  Return c
+
+End Function