diff options
| author | bd <bdunahu@operationnull.com> | 2024-06-09 20:49:33 -0600 |
|---|---|---|
| committer | bd <bdunahu@operationnull.com> | 2024-06-09 20:49:33 -0600 |
| commit | aec326408dd6ad16347b5661112895e60335893a (patch) | |
| tree | e6f31a6858256a02fdd7bea60c869c76fd4e1a7e /password-philosophy/main.scm | |
| parent | f3ae22b302a298984df62a4aaba275c15d010072 (diff) | |
AoC 2020.2 p2
Diffstat (limited to 'password-philosophy/main.scm')
| -rw-r--r-- | password-philosophy/main.scm | 6 |
1 files changed, 5 insertions, 1 deletions
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)) |