Stem-and-leaf plot: Difference between revisions
m
→{{header|Haskell}}
Line 1,039:
import Data.Ord (comparing)
import Data.Function (on)
import Control.Arrow ((&&&))
-- Strings derived from integers,
Line 1,044 ⟶ 1,045:
xs :: [(String, Char)]
xs =
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
]
-- Re-reading the initial strings as Ints
Line 1,078 ⟶ 1,080:
bars :: [(Int, String)]
bars =
-- and obtaining a complete series, with empty bar strings
| |||