Bernd Haug dilbernd

I can help your organization simplify their software architecture and deliver better response times in the process. I also run the @JUGGraz.

dilbernd / day2.clj

Created January 15, 2020 00:43

	(def inputs [...])
	(def day2_2_sought 42)

	(defn computer [data ip]
	(let [[op oa1 oa2 t] (subvec data ip)
	o1 (data oa1)
	o2 (data oa2)
	ofn ({1 + 2 * 99 :hlt} op)]
	(if (= :hlt ofn) (data 0) (recur (assoc data t (ofn o1 o2)) (+ 4 ip)))))