8 files changed, 52 insertions(+), 34 deletions(-)

M advent01.scm
M advent02.scm
M advent03.scm
M advent04.scm
M advent05.scm
M advent06.scm
M advent07.scm
M advent08.scm

@@ 1,11 1,12 @@
 #!/usr/bin/guile -s
 !#
 
-(use-modules (srfi srfi-1)
-             (srfi srfi-13)
-             (srfi srfi-64)
-             ((f))
-             ((algorithms)))
+(use-modules ((srfi srfi-1) #:select (take))
+             ((srfi srfi-64) #:select (test-begin
+                                       test-end
+                                       test-equal))
+             ((f) #:select (read-text))
+             ((algorithms) #:select (sum)))
 
 (define (part-1 filename)
   (apply max (map sum (input filename))))

@@ 1,10 1,12 @@
 #!/usr/bin/guile -s
 !#
 
-(use-modules (ice-9 match)
-             (srfi srfi-64)
-             ((f))
-             ((algorithms)))
+(use-modules ((ice-9 match) #:select (match))
+             ((srfi srfi-64) #:select (test-begin
+                                       test-end
+                                       test-equal))
+             ((f) #:select (read-lines))
+             ((algorithms) #:select (sum)))
 
 (define (part-1 filename)
   (sum (map score (input filename))))

@@ 1,10 1,12 @@
 #!/usr/bin/guile -s
 !#
 
-(use-modules (srfi srfi-1)
-             (srfi srfi-64)
-             ((f))
-             ((algorithms)))
+(use-modules ((srfi srfi-1) #:select (first last))
+             ((srfi srfi-64) #:select (test-begin
+                                       test-end
+                                       test-equal))
+             ((f) #:select (read-lines))
+             ((algorithms) #:select (chunks-of sum)))
 
 (define (halve lst)
   (chunks-of lst (/ (length lst) 2)))

@@ 1,10 1,11 @@
 #!/usr/bin/guile -s
 !#
 
-(use-modules (srfi srfi-1)
-             (srfi srfi-64)
-             ((f))
-             ((algorithms)))
+(use-modules ((srfi srfi-1) #:select (first last))
+             ((srfi srfi-64) #:select (test-begin
+                                       test-end
+                                       test-equal))
+             ((f) #:select (read-lines)))
 
 (define (parse-line line)
   (map (λ (range) (map string->number (string-split range #\-)))(string-split line #\,)))

@@ 1,10 1,18 @@
 #!/usr/bin/guile -s
 !#
 
-(use-modules (srfi srfi-1)
-             (srfi srfi-64)
-             ((f))
-             ((algorithms)))
+(use-modules ((srfi srfi-1) #:select (drop-right
+                                      first
+                                      last
+                                      second
+                                      take-right
+                                      third
+                                      zip))
+             ((srfi srfi-64) #:select (test-begin
+                                       test-end
+                                       test-equal))
+             ((f) #:select (read-lines))
+             ((algorithms) #:select (chunks-of)))
 
 (define (parse-boxes line)
   (map

@@ 1,10 1,11 @@
 #!/usr/bin/guile -s
 !#
 
-(use-modules (srfi srfi-1)
-             (srfi srfi-64)
-             ((f))
-             ((algorithms)))
+(use-modules ((srfi srfi-64) #:select (test-begin
+                                       test-end
+                                       test-equal))
+             ((f) #:select (read-text))
+             ((algorithms) #:select (sliding)))
 
 (define (scan lst index size)
   (if (eq? (char-set-size (list->char-set (car lst))) size)

@@ 1,10 1,12 @@
 #!/usr/bin/guile -s
 !#
 
-(use-modules (srfi srfi-1)
-             (srfi srfi-64)
-             ((f))
-             ((algorithms)))
+(use-modules ((srfi srfi-1) #:select (first last remove second))
+             ((srfi srfi-64) #:select (test-begin
+                                       test-end
+                                       test-equal))
+             ((f) #:select (read-lines))
+             ((algorithms) #:select (init sum)))
 
 (define (update-acc acc pwd size)
   (if (null? pwd)

@@ 1,11 1,12 @@
 #!/usr/bin/guile -s
 !#
 
-(use-modules (srfi srfi-1)
-             (srfi srfi-64)
-             (ice-9 pretty-print)
-             ((f))
-             ((algorithms)))
+(use-modules ((srfi srfi-1) #:select (take take-right zip))
+             ((srfi srfi-64) #:select (test-begin
+                                       test-end
+                                       test-equal))
+             ((f) #:select (read-lines))
+             ((algorithms) #:select (flatten product)))
 
 (define (char->number chr)
   (- (char->integer chr) 48))