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

Start with small tweaks as proof of concept.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-30 19:09:55 +02:00
parent 1147d73b11
commit 8f0d5acf0a
6 changed files with 35 additions and 31 deletions
Download patch file Download diff file Expand all files Collapse all files

6
members-payments.scm
View file

@ -29,6 +29,7 @@
members-payments
(
members-payments-process
member-payments-total
)
(import scheme
@ -81,4 +82,9 @@
accounts))
mb))
;; Total amount paid
(define (member-payments-total mr)
(foldl + 0 (map bank-transaction-amount
(member-payments mr))))
)