Exercism: "Point Mutations (Hamming distance) in Clojure"

This is my solution to the Point Mutations problem in Clojure:

	(ns dna)
	(defn hamming-distance [strand1 strand2]
	(reduce
	+
	(map
	(fn [base1 base2]
	(if (= base1 base2) 0 1))
	strand1
	strand2)))

view raw hamming.clj hosted with ❤ by GitHub

Compare it with the solution to the same exercise in Ruby:

	class Hamming
	def self.compute(strand1, strand2)
	def self.base_distance(base1, base2)
	def self.both_exists?(base1, base2)
	not [base1, base2].any? {|base| base.nil?}
	end
	(both_exists?(base1, base2) and base1 != base2) ? 1 : 0
	end
	strand1.chars.zip(strand2.chars).map do |base1, base2|
	base_distance(base1, base2)
	end.reduce(:+)
	end
	end

view raw hamming.rb hosted with ❤ by GitHub

The version in Clojure is simpler because its map function accepts more than one collection and also takes care of the cases in which the collections have different lengths.

You can nitpick my solution here or see all the exercises I've done so far in this repository.