1

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

哈斯克尔:

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.
4

3 回答 3

3

多种可能的一种(简单而有效的)解决方案:

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

now_nxt(_, []) -> [];
now_nxt(A, [B|T]) -> [{A, B} | now_nxt(B, T)].
于 2012-07-28T23:12:31.800 回答
1

使用 时,列表的大小必须相同lists:zip,tl(XS) 显然比 XS 短一个。

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

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

于 2012-07-28T17:58:11.683 回答
0

另一种解决方案是:

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)].
于 2012-07-31T15:54:16.367 回答