Data update

Task/Tau-function/EasyLang/tau-function.easy

@@ -1,16 +1,17 @@
-func cntdiv n .
-   i = 1
-   while i <= sqrt n
-      if n mod i = 0
+func divcnt n .
+   tot = 1
+   p = 2
+   while p <= sqrt n
+      cnt = 1
+      while n mod p = 0
          cnt += 1
-         if i <> n div i
-            cnt += 1
-         .
+         n /= p
       .
-      i += 1
+      tot *= cnt
+      p += 1
    .
-   return cnt
-.
-for i to 100
-   write cntdiv i & " "
+   if n > 1 : tot *= 2
+   return tot
 .
+for i to 100 : write divcnt i & " "
+print ""