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

Finish stats for debts.

Browse source
This commit is contained in:
Dominik Pantůček 2025-01-02 16:22:37 +01:00
parent 7dbdd3ea6e
commit 227787597d
1 changed files with 12 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

15
src/mbase-query.scm
View file

@ -71,11 +71,20 @@
(mbals (map member-total-balance active-members)) (mbals (map member-total-balance active-members))
(di10 (ldict-set di9 'balance (di10 (ldict-set di9 'balance
(foldl + 0 mbals))) (foldl + 0 mbals)))
;; advance payments (di11 (ldict-set di10 'advance
(foldl + 0
(map (lambda (v)
(max 0 v))
mbals))))
(di12 (ldict-set di11 'debt
(foldl + 0
(map (lambda (v)
(min 0 v))
mbals))))
;; debts of fees ;; debts of fees
;; add average age of active members ;; add average age of active members
) )
di10)) di12))
;; Returns a list two lists: keys, data. ;; Returns a list two lists: keys, data.
;; Each data record contains values for all keys. ;; Each data record contains values for all keys.
@ -83,7 +92,7 @@
(let ((keys (let ((keys
'(month '(month
total active suspended students destroyed invalid total active suspended students destroyed invalid
expected balance expected balance advance debt
))) )))
(let mloop ((data '()) (let mloop ((data '())
(month (members-base-oldest-month mb))) (month (members-base-oldest-month mb)))