0x89-4clojure-solution108.clj

;; 0x89's solution to Lazy Searching
;; https://4clojure.com/problem/108

(fn i                                                                                                                         
  [& x]                                                                                                                        
    (let [f first                                                                                                              
          a apply                                                                                                      
          [[b & e] & c] (sort-by f x)]                                                                                                          
      (if (a = (map f x))                                                                                                              
       b                                                                                                                   
       (a i (conj c e)))))