08.08.07

Exercise 9.1

Posted in Uncategorized at 10:25 pm by admin

(Polygon pts) `containsS` p 
    = let leftOfList = map isLeftOfp
                       (zip pts (tail pts ++ [head pts]))
          isLeftOfp = isLeftOf p
      in and leftOfList

Leave a Comment