From f6617f0521299f987eed4704b25b213343e92e28 Mon Sep 17 00:00:00 2001 From: Inga Date: Mon, 4 Dec 2023 02:56:45 +0000 Subject: [PATCH] more simplification --- day01-easy/main.scm | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/day01-easy/main.scm b/day01-easy/main.scm index 214c59f..8a2f0ad 100755 --- a/day01-easy/main.scm +++ b/day01-easy/main.scm @@ -33,6 +33,13 @@ (define (sum numbers) (reduce numbers + 0)) +(define + (repeat value number) + (if + (= number 0) + '() + (cons value (repeat value (- number 1))))) + (define (is-numeric-char char) (if (char-numeric? char) #t #f)) (define (first-last list predicate) @@ -43,7 +50,7 @@ (cons (if (predicate (car list)) - (cons (car list) (cons (car list) '())) + (repeat (car list) 2) '()) (first-last (cdr list) predicate)) (lambda (current rest)