回文の発掘 in Clojure - Qiita

問題と他の方の解答 問題 回文の発掘 〜 横へな 2013.11.1 参考問題 他の方の解答 第15回オフラインリアルタイムどう書くの参考問題 他の方の解答 in Clojure 回文の発掘 in Clojure 私の解答 in Clojure Scala で動くのを確認してから Clojure で書き直しました． (ns kaibun (:require [clojure.test :refer (deftest are run-tests)])) (defn solve [^String s] (letfn [(f [i j] (cond (> i j) 0 (= i j) 1 :else (loop [acc 0 k i] (if (= k j) acc (recur (max acc (g k j)) (inc k)))))) (g [i j] (let [k (.lastInde