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

Basic stats.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-19 19:23:37 +01:00
parent ed6d9913de
commit e472292232
3 changed files with 11 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
members-base.scm
View file

@ -284,8 +284,9 @@
;; Returns a list two lists: keys, data.
;; Each data record contains values for all keys.
(define (members-base-stats mb)
(let ((keys '(month total active suspended students destroyed invalid)))
(define (members-base-stats mb-arg)
(let ((keys '(month total active suspended students destroyed invalid))
(mb (filter-members-by-predicate mb-arg member-existing?)))
(let mloop ((data '())
(month (*member-default-joined*)))
(if (month<? month (*current-month*))