Приведем псевдокод заполнения массива длин подпоследовательностей-палендромов:
<code>
procedure FillPalMatrix(s) //s-исходная подпоследовательность for j = 1 to n L[j, j] = 1 //L-массив длин for i = j - 1 downto 1 count = L[i + 1, j] t = j while s[t] <> s[i] t-- found = t - i + 1 if t >= i + 2 found = L[i + 1, t - 1] + 2 if count < found count = found L[i, j] = count
</code>
