blob: 505d3f4249372beebf506acf2994345985a8e49f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
module Main where
newtype Ribbon = Ribbon [Bool] Int
newtype RawData = RawData [Ribbon]
newtype Limits = Limits { limitsLow :: Int, limitsHigh :: Int }
drawSegment :: Limits -> Bool -> Bool -> Int -> String
drawSegment (Limits _ h) True True i =
show (i,h) <> " -- " <> show ((fromInteger i + 1.0) / 2.0, h) <> " -- " show (i+1,h)
drawRibbon :: Ribbon -> String
drawRibbon (Ribbon b i) =
main :: IO ()
main = putStrLn "Hello, Haskell!"
|