Sparkline in unicode: Difference between revisions

m
→‎{{header|Haskell}}: Minor linting of earlier Haskell version
m (→‎{{header|Python}}: (Simplified main to single print of assembled string))
m (→‎{{header|Haskell}}: Minor linting of earlier Haskell version)
Line 920:
 
=={{header|Haskell}}==
<lang haskell>import Data.CharList.Split (chrsplitOneOf)
import Data.List.SplitChar (splitOneOfchr)
 
 
toSparkLine :: [Double] -> [Char]String
toSparkLine xs = map cl xs
where
Line 929 ⟶ 930:
bot = minimum xs
range = top - bot
cl x = chr $ 0x2581 + floor (min 7 ((x - bot) / range * 8))
 
makeSparkLine :: String -> (String, Stats)
9,655

edits