Data commit

Task/Summarize-primes/Jq/summarize-primes.jq

@@ -0,0 +1,25 @@
+def is_prime:
+  . as $n
+  | if ($n < 2)         then false
+    elif ($n % 2 == 0)  then $n == 2
+    elif ($n % 3 == 0)  then $n == 3
+    elif ($n % 5 == 0)  then $n == 5
+    elif ($n % 7 == 0)  then $n == 7
+    elif ($n % 11 == 0) then $n == 11
+    elif ($n % 13 == 0) then $n == 13
+    elif ($n % 17 == 0) then $n == 17
+    elif ($n % 19 == 0) then $n == 19
+    else {i:23}
+         | until( (.i * .i) > $n or ($n % .i == 0); .i += 2)
+	 | .i * .i > $n
+    end;
+
+# primes up to but excluding $n
+def primes($n): [range(2;$n) | select(is_prime)];
+
+"Prime sums of primes less than 1000",
+(primes(1000)
+ | range(1; length) as $n
+ | (.[: $n] | add) as $sum
+ | select($sum | is_prime)
+ | "The sum of the \($n) primes from 2 to \(.[$n-1]) is \($sum)." )