kfm/to-hen
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

group-expense: import

Browse Source
This commit is contained in:
Kierán Meinhardt
2026-03-14 07:18:32 +01:00
parent 832b13a694
commit 63141e1f81
2 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
group-expense/2025.scm
View File

@@ -5,4 +5,5 @@
(lisa 10.45 (laura)) ; honig + nüsse (lisa 10.45 (laura)) ; honig + nüsse
(lisa 5.99 (lisa laura johannes kieran)) ; vegane würste + nüsse (lisa 5.99 (lisa laura johannes kieran)) ; vegane würste + nüsse
(johannes 1.89 (lisa laura johannes kieran)) ; reeses (johannes 1.89 (lisa laura johannes kieran)) ; reeses
(laura 20 (lisa laura johannes kieran)) ; sprit
) )

3
group-expense/group-expense
View File

@@ -5,6 +5,7 @@
(srfi srfi-69) (srfi srfi-69)
(ice-9 pretty-print)) (ice-9 pretty-print))
(define (balance expenses) (define (balance expenses)
(define (add-expense! totals expense) (define (add-expense! totals expense)
(let* ((payer (car expense)) (let* ((payer (car expense))
@@ -22,7 +23,7 @@
participants) participants)
;; update payer ;; update payer
(hash-table-update! totals payer (hash-table-update! totals payer
(lambda (x) (+ x amount)) (lambda (x) (+ x amount (- share)))
(lambda () 0)))) (lambda () 0))))
(define totals (make-hash-table)) (define totals (make-hash-table))
(for-each (lambda (expense) (for-each (lambda (expense)