September 2017 Update

Task/Sorting-algorithms-Bead-sort/Jq/sorting-algorithms-bead-sort-1.jq

@@ -0,0 +1,7 @@
+# ncols is the number of columns (i.e. vertical poles)
+def column_sums(ncols):
+  . as $abacus
+  | reduce range(0; ncols) as $col
+    ([];
+     . + [reduce $abacus[] as $row
+           (0; if $row > $col then .+1 else . end)]) ;

Task/Sorting-algorithms-Bead-sort/Jq/sorting-algorithms-bead-sort-2.jq

@@ -0,0 +1,8 @@
+# Generic function to count the number of items in a stream:
+def count(stream): reduce stream as $i (0; .+1);
+
+def readout:
+  . as $sums
+  | .[0] as $n
+  | reduce range(0;$n) as $i
+      ([]; . + [count( $sums[] | select( . > $i) )]);

Task/Sorting-algorithms-Bead-sort/Jq/sorting-algorithms-bead-sort-3.jq

@@ -0,0 +1 @@
+def bead_sort: column_sums(max) | readout;

Task/Sorting-algorithms-Bead-sort/Jq/sorting-algorithms-bead-sort-4.jq

@@ -0,0 +1 @@
+[734,3,1,24,324,324,32,432,42,3,4,1,1] | bead_sort

Task/Sorting-algorithms-Bead-sort/Jq/sorting-algorithms-bead-sort-5.jq

@@ -0,0 +1,2 @@
+$ jq -n -c -f bead_sort.jq
+[734,432,324,324,42,32,24,4,3,3,1,1,1]