Data commit

Task/Sylvesters-sequence/Jq/sylvesters-sequence-1.jq

@@ -0,0 +1,6 @@
+# Generate the sylvester integers:
+def sylvester:
+  foreach range(0; infinite) as $i ({prev: 1, product: 1};
+    .product *= .prev
+    | .prev = .product + 1;
+    .prev);

Task/Sylvesters-sequence/Jq/sylvesters-sequence-2.jq

@@ -0,0 +1,3 @@
+def lpad($len; $fill): tostring | ($len - length) as $l | ($fill * $l)[:$l] + .;
+def lpad($len): lpad($len; " ");
+def lpad: lpad(4);

Task/Sylvesters-sequence/Jq/sylvesters-sequence-3.jq

@@ -0,0 +1,5 @@
+[limit(10; sylvester)]
+| "First 10 Sylvester numbers:",
+  (range(0;10) as $i | "\($i+1|lpad) => \(.[$i])"),
+  "",
+  "Sum of reciprocals of first 10 is approximately: \(map( 1/ .) | add)"