wordhash.clj

;; [org.clojure/math.combinatorics "0.0.3"]

(ns wordhash
  (:require [clojure.math.combinatorics :as comb]
            [clojure.string :as string]))

(defn words->code [words n]
  (apply str
         (take n (keep identity
                       (map (fn [[x y]]
                              (when-let [v (get (get words y) x)]
                                (string/upper-case v)))
                            (comb/selections (range (count words)) 2))))))

(words->code ["George" "W" "Bush"] 6)

;; => "GWBEUO"