gistfile1.clj

(defn longest-palindrome [s]                                                    
  (let [palindrome? #(= (seq %) (reverse %))                                    
        slice-all (fn [s] (mapcat #(partition % 1 s) 
                                   (map first 
                                        (take-while seq
                                                    (iterate rest
                                                             (range (count s) 1 -1))))))]                                     
    (first (filter palindrome? (slice-all s)))))