solve day 13 part 2

2 files changed, 4 insertions, 6 deletions

diff --git a/08/1.rkt b/08/1.rkt
index 91dbcea..1d608b6 100644
--- a/08/1.rkt
+++ b/08/1.rkt
@@ -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))
diff --git a/08/2.rkt b/08/2.rkt
index a56d874..3f4e349 100644
--- a/08/2.rkt
+++ b/08/2.rkt
@@ -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))