(ns ord16ref (:require [clojure.test :refer (deftest are run-tests)] [clojure.string :as string])) (defn solve [width height points-str] (let [points (map (partial map #(Integer/parseInt (str %))) (string/split points-str #",")) [l t r b] (for [mm [min max] fs [first second]] (apply mm (map fs points))) [w h] (map inc [(- r l) (- b t)])] (#(if % (str %) "-") (cond (= w h 1) 3 (every? #(some (parti