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

Print totals like JendaSAP.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-03 19:52:28 +02:00
parent 8c2f848c73
commit 99ce80127a
1 changed files with 15 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

15
src/members-print.scm
View file

@ -403,6 +403,21 @@
total))
)))))
#:col-border #t #:row0-border #t #:ansi #t))
(print "Credit: "
(foldl + 0
(map (lambda (member)
(list-ref member 5))
members)))
(print "Advance: "
(foldl + 0
(map (lambda (member)
(max 0 (list-ref member 5)))
members)))
(print "Debt: "
(foldl + 0
(map (lambda (member)
(min 0 (list-ref member 5)))
members)))
)
)