This commit is contained in:
@@ -0,0 +1,4 @@
|
||||
datatype shape
|
||||
= Circle of loc * real (* center and radius *)
|
||||
| Square of loc * real (* upper-left corner and side length; axis-aligned *)
|
||||
| Triangle of loc * loc * loc (* corners *)
|
||||
Reference in New Issue
Block a user