From 5443e457009335376624d7fa61a4d372d5f403c2 Mon Sep 17 00:00:00 2001 From: Inga Date: Mon, 4 Dec 2023 02:39:50 +0000 Subject: [PATCH] more simplification --- day01-easy/main.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/day01-easy/main.scm b/day01-easy/main.scm index 37fa6e8..9640444 100755 --- a/day01-easy/main.scm +++ b/day01-easy/main.scm @@ -44,12 +44,12 @@ (define (sum numbers) (reduce numbers + 0)) +(define (is-numeric-char char) (if (char-numeric? char) #t #f)) + (define (solve-line line) ( (lambda (first-last-result) (string->number (list->string first-last-result))) - (first-last - (string->list line) - (lambda (char) (if (char-numeric? char) #t #f))))) + (first-last (string->list line) is-numeric-char))) (define (solve-all lines) (sum (map lines solve-line)))