Mercurial > repos > tabletprog
changeset 126:a2d2d8e09291
Merge
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Mon, 05 Aug 2013 23:37:17 -0700 |
parents | 6f8d868e8da0 (diff) 1157639353e7 (current diff) |
children | 2b25d0ce2946 |
files | modules/sets.tp |
diffstat | 1 files changed, 3 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/modules/sets.tp Mon Aug 05 21:38:38 2013 -0700 +++ b/modules/sets.tp Mon Aug 05 23:37:17 2013 -0700 @@ -7,6 +7,7 @@ hashdiffs <- #[0] #{ buckets <- #[empty empty empty empty] + size <- 0 contains? <- :object { hv <- object hash @@ -71,11 +72,13 @@ hashdiffs append: (0 - lastdiff) } newbucks <- #[] + newbucks resize: newsize while: { (newbucks length) < newsize } do: { newbucks append: empty } oldbucks <- buckets buckets <- newbucks + size <- 0 foreach: oldbucks :idx el { if: (not: (el empty?)) { addHash: (el v)