Commits

Robert Smith committed eb5f168

pre-allocate the size of the transversal hash table.

Comments (0)

Files changed (1)

permutation-group.lisp

                
                ht)))
 
-    (let ((n (maximum generators :key 'perm-size))
-          (sgs (make-hash-table))
-          (trans (make-hash-table))
-          (*product-membership* (make-hash-table)))
+    (let* ((n (maximum generators :key 'perm-size))
+           (sgs (make-hash-table))
+           (trans (make-hash-table :size n))
+           (*product-membership* (make-hash-table)))
       (declare (special *product-membership*))
       
       ;; Initialize TRANS to map I -> (I -> Identity(I)).