diff options
| author | Marcin Chrzanowski <marcin.j.chrzanowski@gmail.com> | 2018-05-13 21:12:57 +0200 |
|---|---|---|
| committer | Marcin Chrzanowski <marcin.j.chrzanowski@gmail.com> | 2018-05-13 21:17:15 +0200 |
| commit | 76478dd79705313860c00008cee75c48db814ecc (patch) | |
| tree | 2d08f2577674e9c96c96fe1653073732f5616fdc /good/concat.mim | |
| parent | 3939b1fa57007fabb350dc91eb13b66f9480c244 (diff) | |
Add examples
Diffstat (limited to 'good/concat.mim')
| -rw-r--r-- | good/concat.mim | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/good/concat.mim b/good/concat.mim new file mode 100644 index 0000000..192da56 --- /dev/null +++ b/good/concat.mim @@ -0,0 +1,7 @@ +(letrec (concatN : [Int] -> [Int] -> [Int] l1 : [Int] l2 : [Int]) + (if (isnil l1) + l2 + (let (h) (head l1) + (let (t) (tail l1) + (cons h (concatN t l2))))) + (concatN (cons 2 nil : [Int]) (cons 1 nil : [Int]))) |