RosettaCodeData/Task/String-comparison/Clojure/string-comparison-8.clj

(defn istr [s]
  (.intern s))

(def s3 (istr s1))
(def s4 (istr s2))

(= s3 s4)           ; true
(identical? s3 s4)  ; true