Advent of Clojure solutions

core.clj

(ns adventclj.core)

;; By Samuel McHugh and Davide Taviani

(defn compute-next [prev]
  (-> prev
      (* 252533)
      (rem 33554393)))

(defn index [r c]
  (-> (* c c)
      (- c)
      (+ (* r r))
      (- (* 3 r))
      (/ 2)
      (+ (* r c))
      inc)
  )

(defn solution [row column]
  (last (take (index row column)
              (iterate compute-next 20151125))))