Question

I m New to erlang. 我想知道,如何写出一份清单中第一个N要素的回报职能?

我尝试:

    take([],_) -> [];
    take([H|T],N) when N > 0 -> take([H,hd(L)|tl(T)], N-1);
    take([H|T],N) when N == 0 -> ... (I m stuck here...)

任何 h? th

最新情况:我知道有一个称为“名单”的职能,但我需要说明如何用我个人来书写这一职能。

我最后说出答案:

-module(list).
-export([take/2]).

take(List,N) -> take(List,N,[]).
take([],_,[]) -> [];
take([],_,List) -> List;
take([H|T], N, List) when N > 0 -> take(T, N-1, lists:append(List,[H]));
take([H|T], N, List) when N == 0 -> List.

Answer 1

简单的解决办法是:

take([H|T], N) when N > 0 ->
    [H|take(T, N-1)];
take(_, 0) -> [].

如果名单上没有足够内容,这将产生错误。

当你使用蓄水器时,你通常不会把元素推到底,因为这非常低效(你每次复制整个清单)。通常,你将以<条码>(<>>(>Hist”):逆向(List),以便按正确的顺序返回。

take(List, N) -> take(List, N, []).

take([H|T], N, Acc) when N > 0 ->
    take(T, N-1, [H|Acc]);
take(_, 0, Acc) -> lists:reverse(Acc).

累积器版本为尾补,这是一个好兆头,但你需要做一个外向,消除一些好处。我认为,第一版更为清楚。两者都没有明确的理由。

Answer 2

在埃尔兰,take/code> is specified lists:sublist :



L = [1, 2, 3, 4];
lists:sublist(L, 3).   % -> [1, 2, 3]

友情链接