Anonymous user
Sparkline in unicode: Difference between revisions
m
some code cleanup
m (added type signature for parseWithSeps) |
m (some code cleanup) |
||
Line 135:
<lang haskell>
import Data.Char (chr)
import Data.List.Split (splitOneOf)
toSparkLine :: [Double] -> [Char]
Line 155 ⟶ 146:
makeSparkLine :: String -> (String, Stats)
makeSparkLine xs = (
where parsed = map read $ filter (not . null) $ splitOneOf " ," xs
data Stats = Stats { minValue, maxValue, rangeOfValues :: Double,
|