Data commit

Task/Stem-and-leaf-plot/Quackery/stem-and-leaf-plot.quackery

@@ -0,0 +1,26 @@
+  [ sort
+    -1 swap
+    witheach
+      [ 2dup < iff
+          [ cr dip
+            [ 10 + dup
+              10 / dup
+              10 < if sp
+              echo say " | " ] ]
+          again
+        [ over - 9 + echo sp ] ]
+    drop ]                       is leafplot ( [ --> )
+
+  ' [  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 ]
+
+  leafplot