From 4729fdbe407a5ed6bd5195af0d2f3db9d2a2c0c3 Mon Sep 17 00:00:00 2001 From: Inga Date: Thu, 7 Dec 2023 16:09:36 +0000 Subject: [PATCH] improved comments --- day05-hard/main.scm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/day05-hard/main.scm b/day05-hard/main.scm index 1e70e1a..9a60576 100755 --- a/day05-hard/main.scm +++ b/day05-hard/main.scm @@ -224,7 +224,7 @@ #f (min-list '())) -;=============== repeat ====================== +;=============== remove-adjacent-duplicates ====================== (define remove-adjacent-duplicates (reduce-right '() (lambda (current accumulator) @@ -274,7 +274,7 @@ ((split (is 0)) '(0 1 2 0 0 3 4 5 0 6 7 0))) -;=============== split ====================== +;=============== chunks ====================== (define (chunks chunk-size) (compose (list cdr @@ -374,7 +374,7 @@ (list symbol-in-both-ranges 20 30)) (get-range-intersections 20 30 20 30)) -;=============== solution ====================== +;=============== solution data definitions ====================== (define symbol-current (quote current)) (define symbol-previous (quote previous)) @@ -408,6 +408,7 @@ (define (get-map-source-end seed-map) (value-by-index seed-map 1)) (define (get-map-destination-start seed-map) (value-by-index seed-map 2)) +;=============== solution ====================== (define (apply-map-to-range map-source-start map-source-end map-destination-start range-start range-end) ((compose (list (map (lambda (intersection)