David Tran’s blog

rectangle :: Side -> Side -> Shape
rectangle width height = Polygon [(0, 0), (width, 0), (width, height), (0, height)]

rtTriangle :: Side -> Side -> Shape
rtTriangle width height = Polygon [(0, 0), (width, 0), (0, height)]

This entry was posted on Monday, May 14th, 2007 at 5:36 pm and is filed under Haskell - SOE. You can follow any responses to this entry through the RSS 2.0 feed. You can leave a response, or trackback from your own site.