Erlang butlast函数

Question

我想在Erlang中做一个butlast函数，如果你给它一个列表，它将返回一个没有最后一个元素的列表。这是我有：

butlast([]) -> undefined; 
butlast([H, _]) -> H; 
butlast([H|T]) ->[H|butlast(T)]. 

然而，我的输出是这样的：

butlast([1,2,3,4,5,6]). 
[1,2,3,4|5] 

这究竟是为什么？管道运营商|是不是应该把4和5放在一起？

Answer 1

在第二种情况，你应该返回[H]而不是H：

-module(a). 
-compile(export_all). 

butlast([]) -> undefined; 
butlast([H, _]) -> [H]; 
butlast([H|T]) ->[H|butlast(T)]. 

测试：

1> c(a). 
{ok,a} 
2> a:butlast([1, 2, 3, 4, 5, 6]). 
[1,2,3,4,5]