From aec326408dd6ad16347b5661112895e60335893a Mon Sep 17 00:00:00 2001 From: bd Date: Sun, 9 Jun 2024 20:49:33 -0600 Subject: AoC 2020.2 p2 --- password-philosophy/main.scm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'password-philosophy/main.scm') diff --git a/password-philosophy/main.scm b/password-philosophy/main.scm index fd62ba8..fa142a3 100644 --- a/password-philosophy/main.scm +++ b/password-philosophy/main.scm @@ -12,5 +12,9 @@ (loop (string-append result line "\n")))))) (define (main args) - (display (pp (stdin-to-str))) + (let ((result + (if (null? (cdr args)) + (pp (stdin-to-str) #t) + (pp (stdin-to-str) #f)))) + (display result)) (newline)) -- cgit v1.2.3