From 7770aa9aa15f35997b75a0da961ca778af542557 Mon Sep 17 00:00:00 2001 From: Matthew Fennell Date: Thu, 16 Apr 2026 16:37:56 +0100 Subject: Simplify score function Every line is passing the booking separately for no reason. By putting it in the lambda, we can make each score read more fluently. --- config.scm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/config.scm b/config.scm index 46d0bf2..f07403b 100644 --- a/config.scm +++ b/config.scm @@ -12,12 +12,12 @@ (define default-user matthew) (define (default-scorer booking) - (let ((score (lambda (cond amount) (if cond amount 0)))) + (let ((score (lambda (pred amount) (if (pred booking) amount 0)))) (+ - (score (rob-friendly? booking) 4) - (score (badminton-60min? booking) 2) - (score (sat? booking) 1) - (score (unreasonable-time? booking) -8) + (score rob-friendly? 4) + (score badminton-60min? 2) + (score sat? 1) + (score unreasonable-time? -8) ))) (define (rob-friendly? booking) -- cgit v1.2.3