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

Prepare data.

Browse source
This commit is contained in:
Dominik Pantůček 2023-06-18 19:34:04 +02:00
parent b018da2c61
commit a6f307d230
1 changed files with 15 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

19
src/members-payments.scm
View file

@ -246,10 +246,10 @@
(map (lambda (mce) (map (lambda (mce)
(let ((fee (member-calendar-entry->fee mce))) (let ((fee (member-calendar-entry->fee mce)))
(list (cal-ensure-day (car mce)) (list (cal-ensure-day (car mce))
fee (- fee)
'CZK 'CZK
(cadr mce) (cadr mce)
fee))) (- fee))))
mc)) mc))
;; Converts bank transactions to transactions usable in balance ;; Converts bank transactions to transactions usable in balance
@ -277,7 +277,18 @@
(all (sort all-unsorted (all (sort all-unsorted
(lambda (a b) (lambda (a b)
(cal-day<? (car a) (car b)))))) (cal-day<? (car a) (car b))))))
(print all) (let loop ((trs all)
'())) (rbls '())
(bal 0))
(if (null? trs)
(let ((res (reverse rbls)))
(print res)
res)
(let* ((amt (list-ref (car trs) 4))
(nbal (+ bal amt)))
(loop (cdr trs)
(cons (cons nbal (car trs))
rbls)
nbal))))))
) )