Stem-and-leaf plot: Difference between revisions
Content added Content deleted
m (→{{header|Phix}}: added syntax colouring the hard way) |
|||
Line 2,217: | Line 2,217: | ||
14 | 1 6</pre> |
14 | 1 6</pre> |
||
=={{header|Mathematica}}== |
=={{header|Mathematica}}/{{header|Wolfram Language}}== |
||
<lang Mathematica>len[n_] := RealDigits[n][[2]]; padding = len[Max@ Quotient[inputdata, 10]]; |
<lang Mathematica>len[n_] := RealDigits[n][[2]]; padding = len[Max@ Quotient[inputdata, 10]]; |
||
For[i = Min@ Quotient[inputdata, 10],i <= Max@ Quotient[inputdata, 10], i++, |
For[i = Min@ Quotient[inputdata, 10],i <= Max@ Quotient[inputdata, 10], i++, |
||
(Print[i, If[(padding - len[i]) > 0, (padding - len[i])*" " <> " |", " |"] , |
(Print[i, If[(padding - len[i]) > 0, (padding - len[i])*" " <> " |", " |"] , |
||
StringJoin[(" " <> #) & /@ Map[ToString, #]]])&@ |
StringJoin[(" " <> #) & /@ Map[ToString, #]]])&@ |
||
Select[{Quotient[#, 10], Mod[#, 10]} & /@ Sort[inputdata],Part[#, 1] == i &][[;; , 2]]]</lang> |
Select[{Quotient[#, 10], Mod[#, 10]} & /@ Sort[inputdata],Part[#, 1] == i &][[;; , 2]]]</lang> |
||
{{out}} |
|||
<pre>0 | 7 7 |
<pre>0 | 7 7 |
||
1 | 2 3 8 8 |
1 | 2 3 8 8 |