Data commit

Task/Tau-function/Jq/tau-function-1.jq

@@ -0,0 +1,8 @@
+def count(s): reduce s as $x (0; .+1);
+
+# For pretty-printing
+def nwise($n):
+  def n: if length <= $n then . else .[0:$n] , (.[$n:] | n) end;
+  n;
+
+def lpad($len): tostring | ($len - length) as $l | (" " * $l)[:$l] + .;

Task/Tau-function/Jq/tau-function-2.jq

@@ -0,0 +1,2 @@
+[range(1;101) | count(divisors)]
+| nwise(10) | map(lpad(4)) | join("")