squared_same

gistfile1.clj

(defn squared_same [a b]
  (cond
    ; handle nil case
    (or (nil? a) (nil? b)) false
    ; make sure the number of unique elements lines up
    (not= (count (distinct a)) (count (distinct b))) false
    ; loop over each element of (doubled)
    ; if a is not present in b eager exit
    ; nil? is to invert the some return value to match
    ; the defined sped.
    :else (nil? (some (fn [v] (= -1 (.indexOf b v)))
                      (map #(* % %) a)))))