Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (ns dimensional)
- (defprotocol Dimensional
- (size [this]))
- (deftype Triangle [base height]
- Dimensional
- (size [_] (/ (* base height) 2)))
- (deftype Circle [r]
- Dimensional
- (size [_] (* r r Math/PI)))
- (deftype Rectangle [width height]
- Dimensional
- (size [_] (* width height)))
Add Comment
Please, Sign In to add comment