Rosetta Code

Sparkline in unicode: Difference between revisions

Page Discussion

Sparkline in unicode (view source)

Revision as of 15:11, 10 July 2013

232 bytes removed ,  10 years ago
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)
 
parseWithSeps :: Read a => String -> String -> [a]
parseWithSeps _ [] = []
parseWithSeps sep xs =
if null yes
then parseWithSeps sep (tail rest)
else read yes : parseWithSeps sep rest
where
yes = takeWhile (`notElem` sep) xs
(_, rest) = splitAt (length yes) xs
 
toSparkLine :: [Double] -> [Char]
Line 155 ⟶ 146:
 
makeSparkLine :: String -> (String, Stats)
makeSparkLine xs = (sptoSparkLine parsed, stats pparsed)
where parsed = map read $ filter (not . null) $ splitOneOf " ," xs
where sp = toSparkLine p
p = parseWithSeps " ," xs
data Stats = Stats { minValue, maxValue, rangeOfValues :: Double,
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/232603"