gistfile1.clj

(def freq-files (memoize (fn [pof word]
			   (/ (or (get (frequencies-m (to-words pof)) word) 0) 
			      (count-m (to-words pof))))))

(def freq (memoize (fn [pof word]
		     (if (instance? java.io.File pof)
		       (freq-files pof word)
		       (mean (vector (freq (first pof) word)  ; combine frequencies by taking their unweighted mean.  
				     (freq (second pof) word)))))))
 
(def euclidean (memoize (fn [pof1 pof2 pofs]
			  (sqrt (reduce + (map (fn [word]
						 (sq (- (freq pof1 word)
							(freq pof2 word))))
					       (word-list pofs)))))))