         (clojure.set/intersection set-sign1 set-sign2))
        (* (Math/sqrt (count set-sign1)) (Math/sqrt (count set-sign2))))))
 
-(defn signature-similarity2
+(defn signature-similarity-cosine
+  "Cosine similarity"
   [sign1 sign2]
   (let [sign1-map (into {} sign1)
         sign2-map (into {} sign2)]

                            (* (sign1-map k1) (sign2-map k1))
                            0)))

          mod1       (Math/sqrt (apply + (map
                                          #(-> % second (Math/pow 2)) sign1-map)))

          mod2       (Math/sqrt (apply + (map
                                          #(-> % second (Math/pow 2)) sign2-map)))]

      (/ inner-prod (* mod1 mod2)))))

(defn signature-similarity-manhattan

    xpath-hrefs)))

(defn signature-similarity
  "Return cardinality of intersection"
  [sign1 sign2]
  (let [set-sign1 (set sign1)
        set-sign2 (set sign2)]
