Stem-and-leaf plot: Difference between revisions
Content added Content deleted
(Added solution for Action!) |
|||
Line 102: | Line 102: | ||
0 |
0 |
||
nil))))</lang> |
nil))))</lang> |
||
=={{header|Action!}}== |
|||
{{libheader|Action! Tool Kit}} |
|||
<lang Action!>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</lang> |
|||
{{out}} |
|||
[https://gitlab.com/amarok8bit/action-rosetta-code/-/raw/master/images/Stem-and-leaf_plot.png Screenshot from Atari 8-bit computer] |
|||
<pre> |
|||
0* | 77 |
|||
1* | 2388 |
|||
2* | 357777778899 |
|||
3* | 011112345677789 |
|||
4* | 001222233344456788 |
|||
5* | 23788 |
|||
6* | 138 |
|||
7* | 1 |
|||
8* | |
|||
9* | 69 |
|||
10* | 4555567999 |
|||
11* | 13333444555666677778899 |
|||
12* | 00112234445556777788 |
|||
13* | 1239 |
|||
14* | 16 |
|||
</pre> |
|||
=={{header|Ada}}== |
=={{header|Ada}}== |