all tasks

Task/Stem-and-leaf-plot/Icon/stem-and-leaf-plot.icon

@@ -0,0 +1,12 @@
+procedure main(A)
+    prune := integer(\A[1]) | 10   # Boundary between leaf and stem
+    every put(data := [], integer(!&input))
+    writes(right(oldStem := 0,5)," |")
+    every item := !sort(data) do {
+        leaf := item % prune
+        stem := item / prune
+        while (oldStem < stem) do writes("\n",right(oldStem +:= 1, 5)," |")
+        writes(" ",right(leaf,*prune-1,"0"))
+        }
+    write()
+end