Data update

Task/Tau-function/ALGOL-60/tau-function.alg

@@ -0,0 +1,37 @@
+begin
+
+comment - return n mod m;
+integer procedure mod(n, m);
+  value n, m; integer n, m;
+begin
+  mod := n - entier(n/m) * m;
+end;
+
+comment - return number of divisors of n;
+integer procedure tau(n);
+  value n; integer n;
+begin
+  integer i, t, limit;
+  if n < 3 then
+     t := n
+  else
+     begin
+       t := 2;
+       limit := (n + 1) / 2;
+       for i := 2 step 1 until limit do
+          begin
+             if mod(n, i) = 0 then t := t + 1;
+          end;
+     end;
+  tau := t;
+end;
+
+integer i;
+outstring(1,"Number of divisors of first 100 numbers\n");
+for i := 1 step 1 until 100 do
+  begin
+    outinteger(1,tau(i));
+    if mod(i,10) = 0 then outstring(1,"\n");
+  end;
+
+end