Erlang“现在下一个”列表迭代

我正试图写一些类似于以下内容的东西:

哈斯克尔:

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)]

埃尔朗:

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.