diff --git a/src/PersistentOrderedMap.mo b/src/PersistentOrderedMap.mo index 62f55b7a..551796c7 100644 --- a/src/PersistentOrderedMap.mo +++ b/src/PersistentOrderedMap.mo @@ -468,13 +468,13 @@ module { public func map(rbMap : Map, f : (K, V1) -> V2) : Map { func mapRec(m : Map) : Map { switch m { - case (#leaf) { #leaf }; case (#red(l, xy, r)) { #red(mapRec l, (xy.0, f xy), mapRec r) }; case (#black(l, xy, r)) { #black(mapRec l, (xy.0, f xy), mapRec r) }; + case (#leaf) { #leaf } } }; mapRec(rbMap) @@ -501,13 +501,13 @@ module { /// where `n` denotes the number of key-value entries stored in the tree. public func size(t : Map) : Nat { switch t { - case (#leaf) { 0 }; case (#red(l, _, r)) { size(l) + size(r) + 1 }; case (#black(l, _, r)) { size(l) + size(r) + 1 - } + }; + case (#leaf) { 0 } } }; @@ -545,7 +545,6 @@ module { ) : Accum { switch (rbMap) { - case (#leaf) { base }; case (#red(l, (k, v), r)) { let left = foldLeft(l, base, combine); let middle = combine(k, v, left); @@ -555,7 +554,8 @@ module { let left = foldLeft(l, base, combine); let middle = combine(k, v, left); foldLeft(r, middle, combine) - } + }; + case (#leaf) { base } } }; @@ -593,7 +593,6 @@ module { ) : Accum { switch (rbMap) { - case (#leaf) { base }; case (#red(l, (k, v), r)) { let right = foldRight(r, base, combine); let middle = combine(k, v, right); @@ -603,7 +602,8 @@ module { let right = foldRight(r, base, combine); let middle = combine(k, v, right); foldRight(l, middle, combine) - } + }; + case (#leaf) { base } } }; @@ -633,7 +633,6 @@ module { public func get(t : Map, compare : (K, K) -> O.Order, x : K) : ?V { switch t { - case (#leaf) { null }; case (#red(l, xy, r)) { switch (compare(x, xy.0)) { case (#less) { get(l, compare, x) }; @@ -647,7 +646,8 @@ module { case (#equal) { ?xy.1 }; case (#greater) { get(r, compare, x) } } - } + }; + case (#leaf) { null } } }; @@ -714,9 +714,6 @@ module { : Map{ func ins(tree : Map) : Map { switch tree { - case (#leaf) { - #red(#leaf, (key,val), #leaf) - }; case (#black(left, xy, right)) { switch (compare (key, xy.0)) { case (#less) { @@ -744,6 +741,9 @@ module { #red(left, (key,newVal), right) } } + }; + case (#leaf) { + #red(#leaf, (key,val), #leaf) } }; }; @@ -903,14 +903,14 @@ module { }; func del(tree : Map) : Map { switch tree { - case (#leaf) { - tree - }; case (#red(left, xy, right)) { delNode(left, xy, right) }; case (#black(left, xy, right)) { delNode(left, xy, right) + }; + case (#leaf) { + tree } }; };