diff options
Diffstat (limited to 'src/Main.hs')
-rw-r--r-- | src/Main.hs | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/src/Main.hs b/src/Main.hs index 65ae4a0..505d3f4 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -1,4 +1,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!" |