From 63141e1f81419f15f3377d102b20fb1fff83486d Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Kier=C3=A1n=20Meinhardt?= Date: Sat, 14 Mar 2026 07:18:32 +0100 Subject: [PATCH] group-expense: import --- group-expense/2025.scm | 1 + group-expense/group-expense | 3 ++- 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/group-expense/2025.scm b/group-expense/2025.scm index b5958c4..dcdcdce 100644 --- a/group-expense/2025.scm +++ b/group-expense/2025.scm @@ -5,4 +5,5 @@ (lisa 10.45 (laura)) ; honig + nüsse (lisa 5.99 (lisa laura johannes kieran)) ; vegane würste + nüsse (johannes 1.89 (lisa laura johannes kieran)) ; reeses + (laura 20 (lisa laura johannes kieran)) ; sprit ) diff --git a/group-expense/group-expense b/group-expense/group-expense index c16f5c1..2cf8870 100755 --- a/group-expense/group-expense +++ b/group-expense/group-expense @@ -5,6 +5,7 @@ (srfi srfi-69) (ice-9 pretty-print)) + (define (balance expenses) (define (add-expense! totals expense) (let* ((payer (car expense)) @@ -22,7 +23,7 @@ participants) ;; update payer (hash-table-update! totals payer - (lambda (x) (+ x amount)) + (lambda (x) (+ x amount (- share))) (lambda () 0)))) (define totals (make-hash-table)) (for-each (lambda (expense)