Exercise 5.1

Recall the definitions from Exercise 2.3.

area' :: Shape -> Float
area' (Polygon (v1:vs)) = let arealist = map (\(v2, v3) -> triArea v1 v2 v3)
                                         (zip vs (tail vs))
                          in foldl (+) 0 arealist

(zip vs (tail vs)) turns out to be a handy idiom.

This entry was posted on Thursday, July 26th, 2007 at 9:52 pm and is filed under Uncategorized. 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.

One Response to “Exercise 5.1”

  1. Wiesław Poszewiecki says:
    2 November 2010 at 9:05 am

    With foldr
    area” (Polygon (v1:vs)) = foldr (\(v2,v3) ->(+) ( triArea v1 v2 v3)) 0.0 (zip vs (tail vs))

Leave a Reply