From 3e26af5ae5cc823f3ddea70eb558684fb8088149 Mon Sep 17 00:00:00 2001
From: MsK` <msk@lywenn.eu.org>
Date: Sun, 5 Dec 2021 13:19:40 +0100
Subject: [PATCH] moved everything into folders

---
 day-1.scm => day-1/code.scm     | 4 ++--
 day-1.input => day-1/input      | 0
 day-2.scm => day-2/code.scm     | 4 ++--
 day-2.input => day-2/input      | 0
 day-3.scm => day-3/code.scm     | 2 +-
 day-3.input => day-3/input      | 0
 day-4.scm => day-4/code.scm     | 2 +-
 day-4.input => day-4/input      | 0
 day-5.scm => day-5/code.scm     | 6 +++---
 day-5.input => day-5/input      | 0
 day-5-p1.pgm => day-5/part1.pgm | 0
 day-5-p2.pgm => day-5/part2.pgm | 0
 12 files changed, 9 insertions(+), 9 deletions(-)
 rename day-1.scm => day-1/code.scm (92%)
 rename day-1.input => day-1/input (100%)
 rename day-2.scm => day-2/code.scm (97%)
 rename day-2.input => day-2/input (100%)
 rename day-3.scm => day-3/code.scm (99%)
 rename day-3.input => day-3/input (100%)
 rename day-4.scm => day-4/code.scm (99%)
 rename day-4.input => day-4/input (100%)
 rename day-5.scm => day-5/code.scm (97%)
 rename day-5.input => day-5/input (100%)
 rename day-5-p1.pgm => day-5/part1.pgm (100%)
 rename day-5-p2.pgm => day-5/part2.pgm (100%)

diff --git a/day-1.scm b/day-1/code.scm
similarity index 92%
rename from day-1.scm
rename to day-1/code.scm
index 97b5677..4a8ace5 100644
--- a/day-1.scm
+++ b/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: ")
diff --git a/day-1.input b/day-1/input
similarity index 100%
rename from day-1.input
rename to day-1/input
diff --git a/day-2.scm b/day-2/code.scm
similarity index 97%
rename from day-2.scm
rename to day-2/code.scm
index 6642811..392a6f6 100644
--- a/day-2.scm
+++ b/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)))
diff --git a/day-2.input b/day-2/input
similarity index 100%
rename from day-2.input
rename to day-2/input
diff --git a/day-3.scm b/day-3/code.scm
similarity index 99%
rename from day-3.scm
rename to day-3/code.scm
index dc33fd1..d7f121b 100644
--- a/day-3.scm
+++ b/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 ()
diff --git a/day-3.input b/day-3/input
similarity index 100%
rename from day-3.input
rename to day-3/input
diff --git a/day-4.scm b/day-4/code.scm
similarity index 99%
rename from day-4.scm
rename to day-4/code.scm
index ef8040c..c634f95 100644
--- a/day-4.scm
+++ b/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))]
diff --git a/day-4.input b/day-4/input
similarity index 100%
rename from day-4.input
rename to day-4/input
diff --git a/day-5.scm b/day-5/code.scm
similarity index 97%
rename from day-5.scm
rename to day-5/code.scm
index 6fc1fa5..9a03f32 100644
--- a/day-5.scm
+++ b/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))))))
diff --git a/day-5.input b/day-5/input
similarity index 100%
rename from day-5.input
rename to day-5/input
diff --git a/day-5-p1.pgm b/day-5/part1.pgm
similarity index 100%
rename from day-5-p1.pgm
rename to day-5/part1.pgm
diff --git a/day-5-p2.pgm b/day-5/part2.pgm
similarity index 100%
rename from day-5-p2.pgm
rename to day-5/part2.pgm