(ns advent.zone)

(defn within [x1 y1 x2 y2 x3 y3]
  (and
   (< x1 x3)
   (< x3 x2)
   (< y1 y3)
   (< y3 y2)))

(defn box [x1 y1 x2 y2]
  (fn [x y]
    (within x1 y1 x2 y2 x y)))