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

Fix month computation.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-19 19:06:22 +01:00
parent 5ff4aaff1b
commit a4a296f36b
3 changed files with 16 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

12
members-base.scm
View file

@ -33,6 +33,7 @@
find-member-by-nick
list-members-ids
list-members-nicks
members-base-stats
print-members-base-info
members-base-tests!
)
@ -276,8 +277,9 @@
(filter-members-by-predicate mb member-student?)))
(di5 (dict-set di4 'destroyed
(filter-members-by-predicate mb member-destroyed?)))
(di6 (dict-set di5 'month (*current-month*))))
di6))
(di6 (dict-set di5 'month (*current-month*)))
(di7 (dict-set di6 'total mb)))
di7))
;; Returns a list two lists: keys, data.
;; Each data record contains values for all keys.
@ -288,12 +290,12 @@
(if (month<? month (*current-month*))
(let ((bi (parameterize ((*current-month* month))
(members-base-info mb))))
(let kloop ((row '())
(keys keys))
(let kloop ((row (list (dict-ref bi 'month)))
(keys (cdr keys)))
(if (null? keys)
(mloop (cons (reverse row) data)
(month-add month 1))
(kloop (cons (dict-ref bi (car keys)) row)
(kloop (cons (length (dict-ref bi (car keys))) row)
(cdr keys)))))
(list keys (reverse data))))))