Question

我正在尝试编写类似于以下内容的内容：

haskell：

Prelude> let xs = [1..10]
Prelude> zip xs (tail xs)
[(1,2),(2,3),(3,4),(4,5),(5,6),(6,7),(7,8),(8,9),(9,10)]

的erlang：

1> XS = [1,2,3,4,5,6,7,8,9,10].
[1,2,3,4,5,6,7,8,9,10]
2> lists:zip(XS, tl(XS)).
** exception error: no function clause matching lists:zip("\n",[]) (lists.erl, line 321)
     in function  lists:zip/2 (lists.erl, line 321)
     in call from lists:zip/2 (lists.erl, line 321)


now_nxt([X|Tail],XS) -> 
    [Y|_] = Tail,
    now_nxt(Tail, [{X,Y}|XS]);
now_nxt(_,XS) -> XS.

156>coeffs:now_nxt(XS, []).
** exception error: no match of right hand side value []

更新：

谢谢你的例子。我最后写了以下内容：

now_nxt_nth(Index, XS) ->
    nnn(Index, XS, []).


nnn(Index, XS, YS) ->
    case Index > length(XS) of
    true  ->
        lists:reverse(YS);
    false ->
        {Y,_} = lists:split(Index, XS),
        nnn(Index, tl(XS), [Y|YS])
    end.

Answer 1

许多可能的解决方案之一（简单而有效）：

now_nxt([H|T]) ->
  now_nxt(H, T).

now_nxt(_, []) -> [];
now_nxt(A, [B|T]) -> [{A, B} | now_nxt(B, T)].

Answer 2

使用lists:zip时，列表必须大小相同，tl（XS）显然比XS短一些。

 lists:zip(XS--[lists:last(XS)], tl(XS)).

我认为通过从第一个输入列表中删除最后一个元素，可以实现您想要做的事情。

Answer 3

另一种解决方案是：

lists:zip(lists:sublist(XS,length(XS)-1), tl(XS)).

应该注意

L--[lists:last(L)]

可能无法删除最后一个元素。例如，

L = [1,2,3,4,1].
L -- [lists:last(L)] =/= [1,2,3,4]. % => true
[2,3,4,1] = L -- [lists:last(L)].

Erlang`new-next`列表迭代

3 个答案: