palindrome3.cljs

;; ---------------------------------------------
(def sss "qwetyadddaaqweddddrtjjashdqwertyuiopoiuytrewqkjfhkasjhsajkhfy")

(defn checkCountAt
  [s cnt index]
  (let [s1 (subs s index (+ index cnt))
        s2 (clojure.string/reverse s1)]
    (= s1 s2)))

(defn findThree
  [s]
  (let [j (- (count s) 3)]
    (loop [i (- (count s) 3)
           indexes []]
      (if (= i 0)
        indexes
        (if (checkCountAt s 3 i)
          (recur (dec i) (conj indexes (inc i)))
          (recur (dec i) indexes))))))

(defn findMaxAt
  [s index]
  (loop [i index
         j (inc index)
         maxP ""]
    (let [s1 (subs s i j)
          s2 (clojure.string/reverse s1)]
      (if (and (> i 0) (= s1 s2))
        (recur (dec i) (inc j) s1)
        maxP))))

(defn findMaxThree
  [s]
  (map (fn [index] (findMaxAt s index)) (findThree s)))

(findMaxThree sss) ;; ("qwertyuiopoiuytrewq" "ddd" "ddd" "addda")