15 lines
182 B
Clojure
15 lines
182 B
Clojure
(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)))
|
|
|
|
|