foo.clj

;;THE MOST: 42% of words with J in them start with J
;;THE LEAST: 1.6% of words with Y in them start with Y

;; Word list used: https://github.com/dwyl/english-words
;; Calculation in clojure as follows:

(def words (st/split (slurp "words.txt") #"\n"))

(println (sort-by :percentage-starts
                  (for [c (map char (map (partial + (int \a)) (range 26)))]
                    (let [contains (count (filter (partial some #{c})
                                                  words))
                          starts   (count (filter (fn [word]
                                                    (= (first word) c))
                                                  words))]
                      {:char              c
                       :percentage-starts (float (* 100 (/ starts contains)))}))))