gistfile1.txt

(ns boggle
  (require [clojure.string :as str]))

(def words
  (set (str/split-lines (slurp "brit-a-z.txt"))))

(defn select-words [s])
  "Produces a list of words which start with 's'"
  (filter #(.startsWith % s) words))

(defn board []
  "Creates an 8x8 board full of randomly selected characters"

  )


(defn inc-x [pos]
  (cond
   (nil? pos) nil
   (= (mod pos 8) 7) nil
   :else (inc pos)))

(defn dec-x [pos]
  (cond
   (nil? pos) nil
   (= (mod pos 8) 0) nil
   :else (dec pos)))

(defn inc-y [pos]
  (cond
   (nil? pos) nil
   (> pos 55) nil
   :else (+ pos 8)))

(defn dec-y [pos]
  (cond
   (nil? pos) nil
   (< pos 8) nil
   :else (- pos 8)))

(defn get-adjacents [pos]
  (set [(dec-x pos)
       (inc-x pos)
       (dec-y pos)
       (inc-y pos)
       (inc-x (inc-y pos))
       (inc-x (dec-y pos))
       (dec-x (inc-y pos))
       (dec-x (dec-y pos))
       ]))