moved everything into folders

day-1/code.scm

@@ -6,7 +6,7 @@
 	(count-increase text-port number 
 			(+ count (if (> number previous) 1 0)))))))
 
-(let [(file (open-input-file "day-1.input"))]
+(let [(file (open-input-file "input"))]
   (display "part 1: ")
   (display (count-increase file 100000 0))
   (newline)
@@ -25,7 +25,7 @@
 (define (read-number text-port)
   (string->number (get-line text-port)))
 
-(let* [(file (open-input-file "day-1.input"))
+(let* [(file (open-input-file "input"))
        (triplet (list (read-number file) (read-number file) (read-number file)))
        (sum (+ (car triplet) (cadr triplet) (caddr triplet)))]
   (display "part 2: ")

day-2/code.scm

@@ -6,7 +6,7 @@
 	(loop (cons c w))))))
 
 (call-with-input-file
-  "day-2.input"
+  "input"
   (lambda (file)
     (let loop [(x 0) (y 0)]
       (let [(amount (string->number (get-word file)))
@@ -24,7 +24,7 @@
 	    (newline)))))))
 
 (call-with-input-file
-  "day-2.input"
+  "input"
   (lambda (file)
     (let loop [(x 0) (y 0) (aim 0)]
       (let [(amount (string->number (get-word file)))

day-3/code.scm

@@ -61,7 +61,7 @@
 	    oxygen-gen co2-scrub (* oxygen-gen co2-scrub))))
 
 (call-with-input-file
-  "day-3.input"
+  "input"
   (lambda (file)
     (let [(numbers '#())]
       (let read-loop ()

day-4/code.scm

@@ -138,7 +138,7 @@
 	  [cadr index+score])])))
 
 (call-with-input-file
-  "day-4.input"
+  "input"
   (lambda (file)
     (let* [(draws (parse-draws file))
 	   (boards (read-boards file))]

day-5/code.scm

@@ -129,14 +129,14 @@
 	(get-pixels image)))))
 
 (call-with-input-file
-  "day-5.input"
+  "input"
   (lambda (file)
     (let [(lines (read-lines file))]
       (let [(image (additively-rasterize lines #f))]
-	(output-pgm image "day-5-p1.pgm")
+	(output-pgm image "part1.pgm")
 	(printf "part 1:~% dangerous areas = ~a~%"
 		(count-crossings image)))
       (let [(image (additively-rasterize lines #t))]
-	(output-pgm image "day-5-p2.pgm")
+	(output-pgm image "part2.pgm")
 	(printf "part 2:~% dangerous areas = ~a~%"
 		(count-crossings image))))))