エントリーの編集
エントリーの編集は全ユーザーに共通の機能です。
必ずガイドラインを一読の上ご利用ください。
記事へのコメント0件
- 注目コメント
- 新着コメント
このエントリーにコメントしてみましょう。
注目コメント算出アルゴリズムの一部にLINEヤフー株式会社の「建設的コメント順位付けモデルAPI」を使用しています
- バナー広告なし
- ミュート機能あり
- ダークモード搭載
関連記事
回文の発掘 in Clojure - Qiita
(ns kaibun (:require [clojure.test :refer (deftest are run-tests)])) (defn solve [^String s] (let... (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 (.lastIndexOf s (int (nth s i)) (int j))] (if (= i k) 1 (+ 2 (f (inc i) (dec k))))))] (f 0 (dec (count s))))) (deftest solve-test (are [i o] (= (str (solve i)) o) "I_bel

