Small cleanup for library(nb_set).

SWI-Prolog · Nov 1, 2024 · 64c7b19 · 64c7b19
1 parent 61d5296
commit 64c7b19
Showing 1 changed file with 3 additions and 7 deletions.
diff --git a/library/nb_set.pl b/library/nb_set.pl
@@ -42,7 +42,6 @@
             nb_set_to_list/2,		 % +Set, -List
             gen_nb_set/2                 % +Set, -Key
           ]).
-:- autoload(library(apply), [maplist/2]).
 :- autoload(library(terms), [term_factorized/3]).
 :- use_module(library(debug), [assertion/1]).
 
@@ -100,7 +99,7 @@
             nb_setarg(KIndex, Buckets, Key),
             NSize is Size+1,
             nb_setarg(3, Set, NSize),
-            (   NSize > Capacity*0.5
+            (   NSize > Capacity//2
             ->  rehash(Set)
             ;   true
             )
@@ -120,11 +119,8 @@
 
 next(KIndex, _, KIndex).
 next(KIndex0, Capacity, KIndex) :-
-    KIndex1 is KIndex0+1,
-    (   KIndex1 < Capacity
-    ->  next(KIndex1, Capacity, KIndex)
-    ;   next(1, Capacity, KIndex)
-    ).
+    KIndex1 is 1+(KIndex0 mod Capacity),
+    next(KIndex1, Capacity, KIndex).
 
 rehash(Set) :-
     Set = nb_set(Empty, Capacity, Size, Buckets),