使用以下代码片段： data Circle = Circle { center :: Point , radius :: Double } data Point = Point (Doub...