diff options
| author | Carlos Sosa <gnusosa@gnusosa.net> | 2020-03-21 18:41:35 -0700 |
|---|---|---|
| committer | Carlos Sosa <gnusosa@gnusosa.net> | 2020-03-21 18:41:35 -0700 |
| commit | d235a180b642f62b19acc582166255f015d38438 (patch) | |
| tree | bb022c82c393ff475b3e726e8ff4b0a4b79a2683 /src/ch2/Main.hs | |
| parent | f3e001044829f4864360df87a69695cb962e5d36 (diff) | |
Move to stack src directory
Diffstat (limited to 'src/ch2/Main.hs')
| -rw-r--r-- | src/ch2/Main.hs | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/src/ch2/Main.hs b/src/ch2/Main.hs new file mode 100644 index 0000000..74d0054 --- /dev/null +++ b/src/ch2/Main.hs @@ -0,0 +1,28 @@ +import Shape + +main :: IO () +main = do + putStrLn "Convex Polygon:" + putStrLn + $ show + $ area + (polygon + [ (550, 450) + , (455, 519) + , (491, 631) + , (609, 631) + , (645, 519) + ] + ) + putStrLn "Concave Polygon:" + putStrLn + $ show + $ area + (polygon + [ (550, 580) + , (455, 519) + , (491, 631) + , (609, 631) + , (645, 519) + ] + ) |