day 03

2016/day03.rkt

@@ -0,0 +1,25 @@
+#lang br/quicklang
+(module+ reader
+  (provide read-syntax)
+  (define (read-syntax path port)
+    (strip-bindings
+     #`(module day01-mod "day03.rkt"
+         #,@(for*/list ([triangle-str (in-list (string-split (port->string port) "\n"))])
+                       `(triangle ,@(string-split triangle-str)))))))
+
+(define-macro (mb . TRIANGLES)
+  #'(#%module-begin
+     (length (filter valid-triangle? (list . TRIANGLES)))))
+(provide (rename-out [mb #%module-begin]))
+
+(define-macro (triangle A B C)
+  #'(list (string->number A)
+          (string->number B)
+          (string->number C)))
+(provide triangle)
+
+(define (valid-triangle? triangle)
+  (match-define (list a b c) triangle)
+  (and (> (+ a b) c)
+       (> (+ b c) a)
+       (> (+ a c) b)))

2016/day03b.rkt

@@ -0,0 +1,31 @@
+#lang br/quicklang
+(require sugar/list)
+
+(module+ reader
+  (provide read-syntax)
+  (define (read-syntax path port)
+    (define triads (slice-at (map string-split (string-split (port->string port) "\n")) 3))
+    (define new-triples
+      (slice-at (flatten (for/list ([triad (in-list triads)])
+                                   (apply map list triad))) 3))                              
+    (strip-bindings
+     #`(module mod "day03b.rkt"
+         #,@(for*/list ([triple (in-list new-triples)])
+                       `(triangle ,@triple))))))
+
+(define-macro (mb . TRIANGLES)
+  #'(#%module-begin
+     (length (filter valid-triangle? (list . TRIANGLES)))))
+(provide (rename-out [mb #%module-begin]))
+
+(define-macro (triangle A B C)
+  #'(list (string->number A)
+          (string->number B)
+          (string->number C)))
+(provide triangle)
+
+(define (valid-triangle? triangle)
+  (match-define (list a b c) triangle)
+  (and (> (+ a b) c)
+       (> (+ b c) a)
+       (> (+ a c) b)))