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

Fix handling joined in the base.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-19 19:32:56 +01:00
parent 6a53913e48
commit cd6051e376
3 changed files with 10 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

10
members-base.scm
View file

@ -265,8 +265,9 @@
mrs))))
;; Returns dictionary with statistics about the members base.
(define (members-base-info mb)
(let* ((di0 (make-dict))
(define (members-base-info mb-arg)
(let* ((mb (filter-members-by-predicate mb-arg member-existing?))
(di0 (make-dict))
(di1 (dict-set di0 'invalid
(filter-members-by-predicate mb
(compose not is-4digit-prime? member-id))))
@ -284,9 +285,8 @@
;; Returns a list two lists: keys, data.
;; Each data record contains values for all keys.
(define (members-base-stats mb-arg)
(let ((keys '(month total active suspended students destroyed invalid))
(mb (filter-members-by-predicate mb-arg member-existing?)))
(define (members-base-stats mb)
(let ((keys '(month total active suspended students destroyed invalid)))
(let mloop ((data '())
(month (*member-default-joined*)))
(if (month<? month (*current-month*))