Sparkline in unicode: Difference between revisions
→{{header|Haskell}}: Tidied, pruned out one import.
MaiconSoft (talk | contribs) No edit summary |
(→{{header|Haskell}}: Tidied, pruned out one import.) |
||
Line 1,076:
import Data.List (findIndex)
import Data.Maybe (maybe)
sparkLine :: [Float] -> String
sparkLine xs =
where
w = (mx - mn) / 8▼
(mn,
▲ in fmap (maybe '█' ("▁▂▃▄▅▆▇" !!) . flip findIndex lbounds . flip (>)) xs
lbounds = (mn +) . (w *) <$> [1 .. 7]
parseFloats :: String -> [Float]
Line 1,090:
main :: IO ()
main =
mapM_ putStrLn $
[ "0, 1, 19, 20"
▲ ((sparkLine . parseFloats) <$>
, "1 2
▲ ])</lang>
{{Out}}
<pre>▁▁██
| |||