group-expense: import

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
 )

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)