From fd93afc17c30e480e437a28c6d495b521c0e7fb3 Mon Sep 17 00:00:00 2001 From: bd Date: Sun, 16 Jun 2024 22:17:54 -0600 Subject: AoC 2015.5 p1+2 --- doesnt-he-have-intern-elves-for-this/main.scm | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) create mode 100644 doesnt-he-have-intern-elves-for-this/main.scm (limited to 'doesnt-he-have-intern-elves-for-this/main.scm') diff --git a/doesnt-he-have-intern-elves-for-this/main.scm b/doesnt-he-have-intern-elves-for-this/main.scm new file mode 100644 index 0000000..756e54f --- /dev/null +++ b/doesnt-he-have-intern-elves-for-this/main.scm @@ -0,0 +1,17 @@ +;; -*- compile-command: "guile -L . -e main -s main.scm < input.txt"; -*- +(use-modules (dhhieft) + ((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 "\n")))))) + +(define (main args) + (display (dhhieft (stdin-to-str) + (null? (cdr args)))) + (newline)) -- cgit v1.2.3