diff options
| author | bd <bdunahu@operationnull.com> | 2024-06-10 16:31:02 -0600 |
|---|---|---|
| committer | bd <bdunahu@operationnull.com> | 2024-06-10 16:31:02 -0600 |
| commit | 9e149cb6e6f1bf002fb1abc2b79c77afc3d1d36c (patch) | |
| tree | 65621c8bb1fd326574f0a62191185d477c60b642 /not-quite-lisp | |
| parent | 58ee9f48c4c90352bccdb1cc88d7b9ef923f9216 (diff) | |
AoC 2023.1 p1+2
Diffstat (limited to 'not-quite-lisp')
| -rw-r--r-- | not-quite-lisp/main.scm | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/not-quite-lisp/main.scm b/not-quite-lisp/main.scm index 2d54c54..0dd7f95 100644 --- a/not-quite-lisp/main.scm +++ b/not-quite-lisp/main.scm @@ -12,9 +12,6 @@ (loop (string-append result line "\n")))))) (define (main args) - (let ((result - (if (null? (cdr args)) - (nql (stdin-to-str) #t) - (nql (stdin-to-str) #f)))) - (display result)) + (display (nql (stdin-to-str) + (null? (cdr args)))) (newline)) |