coins.clj

(declare expect-memo)

(defn expect*
  [n t]
  (if (zero? t)
    n
    (let [nn (inc n)
          ps (/ 1 nn)
          pf (- 1 ps)
          es (* ps (expect-memo nn (dec t)))
          ef (* pf (expect-memo 0 (dec t)))
          e (+ es ef)]
      (max n e))))

(def expect-memo (memoize expect*))

(def expect #(expect-memo 0 %))

ふと、

(cond
  (> n e) ;; when do not try
  n
  :else ;; when try
  e))))

の部分は、

(max n e)

で良いのではないか、と思いました。

(数年越しのreplyですが)更新しました。ありがとうございます!