diff options
Diffstat (limited to 'test/match.resp')
-rw-r--r-- | test/match.resp | 14 |
1 files changed, 0 insertions, 14 deletions
diff --git a/test/match.resp b/test/match.resp deleted file mode 100644 index 0df0568..0000000 --- a/test/match.resp +++ /dev/null @@ -1,14 +0,0 @@ -; A Shape is either a Circle (w/ radius) or a Rectangle (w/ width/height) -(def-type (Shape) - (Circle Float) - (Rectangle Float Float)) - -; Return the area of s -(def (area s) - (match s - (Rectangle w h) (* w h) - (Circle r) (* 3.14159 r))) - -(def s (Rectangle 3.0 4.0)) - -(area s)
\ No newline at end of file |