AoC 2020.1 p1

1 files changed, 19 insertions, 0 deletions

diff --git a/report-repair/main.scm b/report-repair/main.scm
new file mode 100755
index 0000000..cdfed63
--- /dev/null
+++ b/report-repair/main.scm
@@ -0,0 +1,19 @@
+#!/run/current-system/profile/bin/guile \
+-e main -s
+!#
+
+(use-modules (rr)
+	     ((ice-9 rdelim))
+	     (ice-9 binary-ports))
+
+
+(define (stdin-to-str)
+  (let loop ((result ""))
+    (let ((line (read-line)))
+      (if (eof-object? line)
+	  result
+	  (loop (string-append result line " "))))))
+
+(define (main args)
+  (display (rr (stdin-to-str)))
+  (newline))