Initial data commit

Task/Stem-and-leaf-plot/Action-/stem-and-leaf-plot.action

@@ -0,0 +1,33 @@
+INCLUDE "D2:SORT.ACT" ;from the Action! Tool Kit
+
+PROC Main()
+  DEFINE len="121"
+  BYTE ARRAY a(len)=[
+     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]
+  BYTE i,j,min,max,stem,leaf
+
+  Put(125) PutE() ;clear screen
+  SortB(a,len,0)
+  min=a(0)/10
+  max=a(len-1)/10
+  FOR i=min TO max
+  DO
+    IF i<10 THEN Put(' ) FI
+    PrintB(i) Print("* | ")
+    FOR j=0 TO len-1
+    DO
+      stem=a(j)/10
+      IF stem=i THEN
+        leaf=a(j) MOD 10
+        PrintB(leaf)
+      FI
+    OD
+    PutE()
+  OD
+RETURN