A categorical programming language
修訂 | 50431ae28415aa3be88bed333b8245341c4d1ce2 (tree) |
---|---|
時間 | 2023-02-21 03:33:29 |
作者 | Corbin <cds@corb...> |
Commiter | Corbin |
Fix n-add, basically.
@@ -53,6 +53,7 @@ | ||
53 | 53 | [`(left ,x) `(left ,(build-µK-elt x))] |
54 | 54 | [`(right ,x) `(right ,(build-µK-elt x))] |
55 | 55 | [(? list? l) (map build-µK-elt l)] |
56 | + [(x . y) (cons (build-µK-elt x) (build-µK-elt y))] | |
56 | 57 | ; 2 |
57 | 58 | [x x])) |
58 | 59 |