From 2a75e9eaa9372049bcc37d159574d59c00d9be1d Mon Sep 17 00:00:00 2001 From: Inga Date: Wed, 6 Dec 2023 01:35:27 +0000 Subject: [PATCH] improved performance --- day01-hard/main.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/day01-hard/main.scm b/day01-hard/main.scm index a999b07..1a40234 100755 --- a/day01-hard/main.scm +++ b/day01-hard/main.scm @@ -59,7 +59,7 @@ '(1 2 3) ((first is-not-empty) '(() (1 2 3)))) -(define (coalesce-not-empty default) (lambda (value) ((first is-not-empty) (list value default)))) +(define (coalesce-not-empty default-lazy) (lambda (value) (if (null? value) (default-lazy) value))) (define (truthy-chaining f) (lambda (value) (if value (f value) #f))) @@ -116,7 +116,7 @@ (null? values) '(()) ((compose (list - (coalesce-not-empty (f (cdr values))) + (coalesce-not-empty (lambda () (f (cdr values)))) flat (filter id) (map