This preview shows page 1. Sign up to view the full content.
Unformatted text preview: eqShape :: Shape -> Shape -> Bool eqShape (Circle r1) (Circle r2) = r1 == (-r2) eqShape _ _ = False-- rectangles with negative sides are not equated, because they would-- have a different "position in space" (mirrored at a side or corner)-- (which is not the case with circles)...
View Full Document
- Spring '10
- Functional Programming