d6.clj

(defn range-3d6
  "A function to return the possible rolls with 3d6 between start and end inclusive."
  ([n] (list n))
  ([start end]
   (for [d100s (range 1 7)
         d10s (range 1 7)
         d1s  (range 1 7)
         :let [num (+ (* 100 d100s) (* 10 d10s) d1s)]
         :when (and (<= start num) (<= num end))]
     num)))

(range-3d6 111 666)
;;=> (111 112 ... 665 666)

(range-3d6 111)
;;=> (111)