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

Basic member fees table.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-29 14:32:31 +02:00
parent 19a370e448
commit 9cfd4e21e1
2 changed files with 21 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

7
member-fees.scm
View file

@ -34,6 +34,7 @@
member-calendar-query
member-calendar->years-table
member-calendar->fees
member-fees-total
)
(import scheme
@ -131,4 +132,10 @@
(define (member-calendar->fees mc)
(map member-calendar-entry->fee mc))
;; Returns the total sum of fees for all months relevant for given
;; member
(define (member-fees-total mr)
(foldl + 0 (member-calendar->fees
(member-calendar mr))))
)