September 2017 Update

Task/Stem-and-leaf-plot/Jq/stem-and-leaf-plot-1.jq

@@ -0,0 +1,18 @@
+def stem_and_leaf:
+
+  # align-right:
+  def right: tostring | (4-length) * " " + .;
+
+  sort
+  | .[0] as $min
+  | .[length-1] as $max
+  | "\($min/10|floor|right) | " as $stem
+  | reduce .[] as $d
+      # state: [ stem, string ]
+      ( [ 0, $stem ];
+        .[0] as $stem
+        | if ($d/10) | floor == $stem
+          then [ $stem,     (.[1] +                      "\($d % 10)" )]
+          else [ $stem + 1, (.[1] + "\n\($stem+1|right) | \($d % 10)" )]
+          end )
+  | .[1] ;

Task/Stem-and-leaf-plot/Jq/stem-and-leaf-plot-2.jq

@@ -0,0 +1,11 @@
+def data:
+ [ 12,127,28,42,39,113, 42,18,44,118,44,37,113,124,37,48,127,36,29,31,
+   125,139,131,115,105,132,104,123,35,113,122,42,117,119,58,109,23,105,
+   63,27,44,105,99,41,128,121,116,125,32,61,37,127,29,113,121,58,114,126,
+   53,114,96,25,109,7,31,141,46,13,27,43,117,116,27,7,68,40,31,115,124,42,
+   128,52,71,118,117,38,27,106,33,117,116,111,40,119,47,105,57,122,109,
+   124,115,43,120,43,27,27,18,28,48,125,107,114,34,133,45,120, 30,127,
+   31,116,146
+ ];
+
+data | stem_and_leaf

Task/Stem-and-leaf-plot/Jq/stem-and-leaf-plot-3.jq

@@ -0,0 +1,16 @@
+ $ jq -n -r -f stem-and-leaf_plot.jq
+   0 | 77
+   1 | 2388
+   2 | 357777778899
+   3 | 011112345677789
+   4 | 001222233344456788
+   5 | 23788
+   6 | 138
+   7 | 1
+   8 | 6
+   9 | 9
+  10 | 4555567999
+  11 | 13333444555666677778899
+  12 | 00112234445556777788
+  13 | 1239
+  14 | 16