dcbriccetti

  val combinations: Seq[Seq[Int]] = numDice match {
    case 1 => for (a <- 1 to numSides) yield Seq(a)
    case 2 => for (a <- 1 to numSides; b <- 1 to numSides) yield Seq(a, b)
    case 3 => for (a <- 1 to numSides; b <- 1 to numSides; c <- 1 to numSides) yield Seq(a, b, c)
  }

mtm

(def ^{:dynamic true} *print-progress* true)

(defmacro with-progress
  "Bind a `reportfn` function, and evaluate `body` wherein
  calling (report!) will invoke the report function with the current
  state of the iteration."
  [reportfn & body]
  `(let [iter# (atom 0)
         reporter# ~reportfn]
     (letfn [(~'report! []