From cd47b52a406ebed5b3f82e51168ead27af3795d9 Mon Sep 17 00:00:00 2001 From: bd Date: Sun, 9 Jun 2024 00:16:27 -0600 Subject: AoC 2020.1 p1 --- report-repair/main.scm | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) create mode 100755 report-repair/main.scm (limited to 'report-repair/main.scm') 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)) -- cgit v1.2.3