Error in the definition of cardinal

11ecd5f6 · Giuseppe Castagna · 8b04fb93 · 11ecd5f6
Commit 11ecd5f6 authored Dec 16, 2014 by Giuseppe Castagna
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

tests/poly/red-black.cd tests/poly/red-black.cd +1 -1

No files found.
--- a/tests/poly/red-black.cd
+++ b/tests/poly/red-black.cd
@@ -98,4 +98,4 @@ let singleton (x : 'a): Btree('a)  = <black elem=x>[ [] [] ]

 let cardinal ( RBtree('a) -> Int )
  | [] -> 0
-  | <_ ..>[ l r ] -> cardinal l + cardinal r
\ No newline at end of file
+  | <_ ..>[ l r ] -> cardinal l + cardinal r + 1
\ No newline at end of file