erlang - 反转二进制的更好方法

Question

我正在尝试像这样反转二进制:

reverse(Bin) ->
    list_to_binary(lists:reverse([rev_bits(<<B>>) || B <- binary:bin_to_list(Bin)])).


rev_bits(<<A:1, B:1, C:1, D:1, E:1, F:1, G:1, H:1>>) ->
    <<H:1, G:1, F:1, E:1, D:1, C:1, B:1, A:1>>.

我不喜欢这个代码。你能建议更好的方法来完成这个程序吗？

Answer 1

有点像你的 rev_bits 函数:

rev (<<>>, Acc) -> Acc;
rev (<<H:1/binary, Rest/binary>>, Acc) ->
    rev(Rest, <<H/binary, Acc/binary>>).

我相信二进制连接已经过优化，所以这应该已经相当快了。

编辑:使用子句而不是 case...of...end。