(defn discordant-pairs "http://en.wikipedia.org/wiki/Discordant_pairs" [a b] (let [tuples (zipmap a b) ps (pairs tuples tuples)] (count (filter discordant? ps))))
Comments top
No comments for discordant-pairs. Log in to add a comment.