AoC 2015.4 p1+2

1 files changed, 11 insertions, 12 deletions

diff --git a/report-repair/rr.scm b/report-repair/rr.scm
index 11c4bcd..d96fa20 100644
--- a/report-repair/rr.scm
+++ b/report-repair/rr.scm
@@ -1,20 +1,19 @@
 (define-module (rr)
   #:use-module (combinations)
   #:use-module (srfi srfi-1)
-  #:use-module (ice-9 format)
   #:use-module (ice-9 exceptions)
   #:export (rr
-	    get-2020-terms
-	    includes-all?
-	    generate-sets
-	    make-complete-set))
+            get-2020-terms
+            includes-all?
+            generate-sets
+            make-complete-set))
 
 (define (rr str len)
   (apply * (get-2020-terms (map string->number
-				(string-split
-				 (string-trim-both str char-set:whitespace)
-				 char-set:whitespace))
-			   len)))
+                                (string-split
+                                 (string-trim-both str char-set:whitespace)
+                                 char-set:whitespace))
+                           len)))
 
 (define (get-2020-terms lst len)
   "Given a list of numbers, returns a list
@@ -24,8 +23,8 @@ Throws input-exception if none are found."
   (let loop ((sets (generate-sets lst len)))
     (cond
      ((null? sets) (raise-exception
-		    (make-exception-with-message
-		     (format #f "Could not find ~s arguments that add to 2020 in inputs!" len))))
+                    (make-exception-with-message
+                     (format #f "Could not find ~s arguments that add to 2020 in inputs!" len))))
      ((includes-all? (car sets) lst) (car sets))
      (#t (loop (cdr sets))))))
 
@@ -33,7 +32,7 @@ Throws input-exception if none are found."
   "Returns #t if all elements in LST1
 are present in LST2, #f otherwise."
   (equal? lst1
-	  (lset-intersection eqv? lst1 lst2)))
+          (lset-intersection eqv? lst1 lst2)))
 
 (define (generate-sets lst len)
   (map make-complete-set (combinations lst (1- len))))