erlang算法系列-leetclode-2193. 得到回文串的最少操作次数（困难）

给你一个只包含小写英文字母的字符串 s 。

每一次 操作 ，你可以选择 s 中两个 相邻 的字符，并将它们交换。

请你返回将 s 变成回文串的 最少操作次数 。

注意 ，输入数据会确保 s 一定能变成一个回文串。

示例 1：

输入：s = "aabb"
输出：2
解释：
我们可以将 s 变成 2 个回文串，"abba" 和 "baab" 。
- 我们可以通过 2 次操作得到 "abba" ："aabb" -> "abab" -> "abba" 。
- 我们可以通过 2 次操作得到 "baab" ："aabb" -> "abab" -> "baab" 。
因此，得到回文串的最少总操作次数为 2 。
示例 2：

输入：s = "letelt"
输出：2
解释：
通过 2 次操作从 s 能得到回文串 "lettel" 。
其中一种方法是："letelt" -> "letetl" -> "lettel" 。
其他回文串比方说 "tleelt" 也可以通过 2 次操作得到。
可以证明少于 2 次操作，无法得到回文串。

提示：

1 <= s.length <= 2000
s 只包含小写英文字母。
s 可以通过有限次操作得到一个回文串。

解题思路

贪心处理，每次固定最左边的字母，然后寻找最右边相同的字母移到最最右边，移动的总次数未最少。
如果最左边的字母为单一字母，则计算一次移动中间的距离（相当最后才移动）

-spec min_moves_to_make_palindrome(S :: unicode:unicode_binary()) -> integer().
min_moves_to_make_palindrome(S) ->
    List = binary_to_list(S),
    Len = length(List),
    do_moves(List, Len, 0)
  .

do_moves([], Len, Ans) ->
    Ans;
do_moves(L, Len, Ans) when Len < 3->
    Ans;
do_moves([CH | L], Len, Ans) ->
    {Has, _Ind} = lists:foldl(fun(Ch1, {Acc, Ind}) ->
        if
            Ch1 =:= CH ->
                {Ind, Ind+1};
            true ->
                {Acc, Ind + 1}
        end
    end, {-1, 1} , L),
    case Has of
        -1 -> %% 单数            
            do_moves(L, Len - 1, Ans + Len div 2) ;
        _ ->  %% 双数
            L1 = lists:reverse(L) -- [CH],
            do_moves(lists:reverse(L1), Len - 2, Ans + Len -1 - Has) 
    end.