brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Streamline mbase ids management.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-13 20:11:43 +02:00
parent 4893d1e7d5
commit e4ad273b06
3 changed files with 40 additions and 40 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/members-print.scm
View file

@ -258,13 +258,13 @@
;; Prints statistics about allocated and unused valid/invalid IDs.
(define (print-members-ids-stats MB)
(print "Allocated IDs: "
(length (list-members-ids MB))
(length (list-mbase-ids MB))
"/"
(length (gen-all-4digit-primes))
" ("
(length (get-free-members-ids MB))
(length (mbase-free-ids MB))
" free)")
(let ((iids (filter (compose not is-4digit-prime?) (list-members-ids MB))))
(let ((iids (filter (compose not is-4digit-prime?) (list-mbase-ids MB))))
(when (not (null? iids))
(print " Invalid: "
(length iids)