From 59d23ac0d5c1211854b1f7cc1c85cfad786919ee Mon Sep 17 00:00:00 2001
From: Inga <inga-lovinde@noreply.oomza.cutegay.software>
Date: Sat, 16 Dec 2023 14:21:32 +0000
Subject: [PATCH] minor simplification

---
 day05-hard/main.scm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/day05-hard/main.scm b/day05-hard/main.scm
index 45d4af3..08a4e9b 100755
--- a/day05-hard/main.scm
+++ b/day05-hard/main.scm
@@ -101,8 +101,7 @@
 
 ;=============== concat ======================
 (define (concat left right)
-  ((reduce-right right (lambda (current accumulator) (cons current accumulator)))
-    left))
+  ((reduce-right right cons) left))
 
 (assert-eq "concat test 1 failed"
   '(1 2 3 4 5)