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

Show expected income.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-03 20:18:43 +02:00
parent 99ce80127a
commit 596363c986
2 changed files with 16 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

19
src/members-print.scm
View file

@ -346,12 +346,12 @@
(total (- (+ credit payment) fees)))
(list (member-nick mr)
(if (member-suspended? mr)
"suspended"
'suspended
(if (member-student? mr)
"student"
'student
(if (member-destroyed? mr)
"destroyed"
"active")))
'destroyed
'active)))
fees
credit
payment
@ -418,6 +418,17 @@
(map (lambda (member)
(min 0 (list-ref member 5)))
members)))
(let* ((ns (foldl (lambda (acc member)
(cons (+ (car acc) (if (eq? 'student (cadr member)) 1 0))
(+ (cdr acc) (if (eq? 'active (cadr member)) 1 0))))
(cons 0 0)
members))
(students (car ns))
(full (cdr ns)))
(print "Expected income: "
(+ (* (lookup-member-fee 'normal) full)
(* (lookup-member-fee 'student) students))
" (" full " full members + " students " students)"))
)
)