diff options
| author | tomsmeding <tom.smeding@gmail.com> | 2019-11-18 18:36:57 +0100 |
|---|---|---|
| committer | tomsmeding <tom.smeding@gmail.com> | 2019-11-18 18:36:57 +0100 |
| commit | 481884fb892f949478dad8d801ced704baea986c (patch) | |
| tree | 8c5bcf1d306c8ad3d39d449da8def74cb24dca2d /match.lisp | |
| parent | 4746aa52f85f4dc3ce8e195f0a5fd8afe2d54378 (diff) | |
Automatic testing of examples
Diffstat (limited to 'match.lisp')
| -rw-r--r-- | match.lisp | 15 |
1 files changed, 0 insertions, 15 deletions
diff --git a/match.lisp b/match.lisp deleted file mode 100644 index 84503e0..0000000 --- a/match.lisp +++ /dev/null @@ -1,15 +0,0 @@ -(define f (x) - (match x - ((1 2 3) "1-2-3") - ((1) "just 1") - ((1 ...) "1 something") - ((n ...) "number something") - ('v "something quoted") - "dunno")) - -(print (f '(1 2 3))) -(print (f '(1))) -(print (f '(1 2 3 4 5))) -(print (f '(2 3 4 5))) -(print (f ''"kaas")) -(print (f "kaas")) |