Stem-and-leaf plot: Difference between revisions

Content added Content deleted
Line 1,039: Line 1,039:
import Data.Ord (comparing)
import Data.Ord (comparing)
import Data.Function (on)
import Data.Function (on)
import Control.Arrow ((&&&))


-- Strings derived from integers,
-- Strings derived from integers,
Line 1,044: Line 1,045:


xs :: [(String, Char)]
xs :: [(String, Char)]
xs = (\x -> (init x, last x)) <$> (show <$> [
xs = (init &&& last) . show <$> [
12, 127, 28, 42, 39, 113, 42, 18, 44, 118, 44, 37, 113, 124, 37, 48, 127,
12, 127, 28, 42, 39, 113, 42, 18, 44, 118, 44, 37, 113, 124, 37, 48,
36, 29, 31, 125, 139, 131, 115, 105, 132, 104, 123, 35, 113, 122, 42, 117,
127, 36, 29, 31, 125, 139, 131, 115, 105, 132, 104, 123, 35, 113, 122,
119, 58, 109, 23, 105, 63, 27, 44, 105, 99, 41, 128, 121, 116, 125, 32,
42, 117, 119, 58, 109, 23, 105, 63, 27, 44, 105, 99, 41, 128, 121, 116,
61, 37, 127, 29, 113, 121, 58, 114, 126, 53, 114, 96, 25, 109, 7, 31,
125, 32, 61, 37, 127, 29, 113, 121, 58, 114, 126, 53, 114, 96, 25, 109,
141, 46, 13, 27, 43, 117, 116, 27, 7, 68, 40, 31, 115, 124, 42, 128,
7, 31, 141, 46, 13, 27, 43, 117, 116, 27, 7, 68, 40, 31, 115, 124, 42,
52, 71, 118, 117, 38, 27, 106, 33, 117, 116, 111, 40, 119, 47, 105,
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,
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])
114, 34, 133, 45, 120, 30, 127, 31, 116, 146
]


-- Re-reading the initial strings as Ints
-- Re-reading the initial strings as Ints
Line 1,078: Line 1,080:


bars :: [(Int, String)]
bars :: [(Int, String)]
bars = (\grp -> (((fst . head) grp), snd <$> grp)) <$> bins
bars = (fst . head &&& fmap snd) <$> bins


-- and obtaining a complete series, with empty bar strings
-- and obtaining a complete series, with empty bar strings
Retrieved from "https://rosettacode.org/wiki/Stem-and-leaf_plot"