From b50ad6a0202b891b750fca1eedd9926bb41122f2 Mon Sep 17 00:00:00 2001
From: Inga <inga-lovinde@noreply.oomza.cutegay.software>
Date: Mon, 4 Dec 2023 15:45:11 +0000
Subject: [PATCH] rewritten read-lines with recursion

---
 day01-easy/main.scm | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/day01-easy/main.scm b/day01-easy/main.scm
index aa45494..79b8c37 100755
--- a/day01-easy/main.scm
+++ b/day01-easy/main.scm
@@ -4,11 +4,9 @@
 (use-modules (ice-9 rdelim))
 
 (define (read-lines)
-  (let loop ((line (read-line)))
-    (if
-      (eof-object? line)
-      '()
-      (cons line (loop (read-line))))))
+  ((lambda (line)
+    (if (eof-object? line) '() (cons line (read-lines))))
+  (read-line)))
 
 (define (id value) value)