 
 
 
+(defn simple-similarity-metric [x y]
+  (try (str (format "%3f" (* 100 (float (/ (count x) (count y))))) "%")
+    (catch ArithmeticException e "0.0%" )
+    )
+  )
+
+
+(str (format "%3f" (* 100 (float (/ 1 2)))) "%")
+(.decimalValue (/ 1 2))
 
 (defn uber-query
   [x]

                                     x)
        bing-result (search-bing (read-property "config.json" "bing" "username")
                                 (read-property "config.json" "bing" "password")
                                 x)]

    [(get-aggregated-result google-result bing-result) (get-common-urls google-result bing-result)]

    )
  )

;;(uber-query "Miles Davis")


                "\n-------------------------\n\n"
                "The following results were duplicated in Bing:\n\n"
                (get-printable-result (second uber-query-result))
                "\n-------------------------\n\n"
                "A simple similarity metric (does not consider results order): "
                (nth uber-query-result 2)



