chrix75

## word_comp.clj
(defn inversion?
  [c1 n1 c2 n2]
  (and (= c1 n2) (= n1 c2)))

(defn deletion?
  [c1 c2 n1]
  (and (not= c1 c2) (= n1 c2)))

(defn insertion?
  [c1 c2 n2]
	(defn inversion?
	[c1 n1 c2 n2]
	(and (= c1 n2) (= n1 c2)))

	(defn deletion?
	[c1 c2 n1]
	(and (not= c1 c2) (= n1 c2)))

	(defn insertion?
	[c1 c2 n2]