Erlang列表反转

时间：2022-07-04分类：Erlang实例代码作者：编程之家用户

-module(helloworld). 
-export([tail_reverse/2,start/0]). 

tail_reverse(L) -> tail_reverse(L,[]).

tail_reverse([],Acc) -> Acc; 
tail_reverse([H|T],Acc) -> tail_reverse(T, [H|Acc]).

start() -> 
   X = [1,2,3,4], 
   Y = tail_reverse(X), 
   io:fwrite(~w,[Y]).

相关推荐

Erlang if语句

-module(helloworld). -export([start/0]). start() -> A = 5, B = 6, if A == B -> io:fwrite("True");

Erlang多重表达式

-module(helloworld). -export([start/0]). start() -> A = 5, B = 6, if A == B -> io:fwrite("A is equal to B");

Erlang嵌套if语句

-module(helloworld). -export([start/0]). start() -> A = 4, B = 6, if A < B -> if A > 5 ->

Erlang case语句

-module(helloworld). -export([start/0]). start() -> A = 5, case A of 5 -> io:fwrite("The value of A is 5");

Erlang函数定义

-module(helloworld). -export([add/2,start/0]). add(X,Y) -> Z = X+Y, io:fwrite("~w~n",[Z]).

Erlang整数

% Erlang整数 -module(helloworld). -export([start/0]). start() -> io:fwrite("~w",[1+1]).

Erlang列表反转

-module(helloworld). -export([tail_reverse/2,start/0]). tail_reverse(L) -> tail_reverse(L,[]). tail_reverse([],Acc) -> Acc;

Erlang重复

-module(helloworld). -export([duplicate/2,start/0]). duplicate(0,_) -> []; duplicate(N,Term) when N > 0 ->

Erlang尾递归

-module(helloworld). -export([tail_len/1,tail_len/2,start/0]). tail_len(L) -> tail_len(L,0). tail_len([], Acc) -> Acc;

Erlang长度递归

-module(helloworld). -export([len/1,start/0]). len([]) -> 0; len([_|T]) -> 1 + len(T). start() ->

Erlang递归

-module(helloworld). -export([fac/1,start/0]). fac(N) when N == 0 -> 1; fac(N) when N > 0 -> N*fac(N-1).

Erlang import导入

-module(helloworld). -import(io,[fwrite/1]). -export([start/0]). start() -> fwrite("Hello, world!\\n").

Erlang预构建属性

-module(helloworld). -author("TutorialPoint"). -version("1.0"). -export([start/0]).

Erlang模块属性

-module(helloworld). -author("TutorialPoint"). -version("1.0"). -export([start/0]).

Erlang模块定义

% Erlang模块定义 - helloworld -module(helloworld). -export([start/0]). start() -> io:fwrite("Hello World").

Erlang具有保护序列的函数

-module(helloworld). -export([add/1,start/0]). add(X) when X>3 -> io:fwrite("~w~n",[X]).

Erlang具有多个参数的函数

-module(helloworld). -export([add/2,add/3,start/0]). add(X,Y) -> Z = X+Y, io:fwrite("~w~n",[Z]).

Erlang匿名函数

-module(helloworld). -export([start/0]). start() -> Fn = fun() -> io:fwrite("Anonymous Function") end,

Erlang关系运算符

% 关系运算符 -module(helloworld). -export([start/0]). start() -> io:fwrite("~w~n",[3==2]),

Erlang逻辑运算符

-module(helloworld). -export([start/0]). start() -> io:fwrite("~w~n",[true or false]), io:fwrite("~w~n",[true and false]),