diff options
Diffstat (limited to '08/1.rkt')
| -rw-r--r-- | 08/1.rkt | 5 |
1 files changed, 2 insertions, 3 deletions
@@ -4,14 +4,13 @@ (define lines (call-with-input-file "input" - (lambda (fp) - (get-lines fp)))) + (λ (fp) (get-lines fp)))) (define instructions (string->list (car lines))) (define (make-instruction-generator) (define cur instructions) - (lambda () + (λ () (when (null? cur) (set! cur instructions)) (define ret (car cur)) |
