Erlang编程实战2
来源:互联网 发布:linux c语言遍历目录 编辑:程序博客网 时间:2024/06/05 15:09
练习1:求和!
代码:
-module(myEx2).
-export([
sum/2
]).
sum(1) ->1;
sum(N) -> sum(N-1) +N.
sum(N,M) ->
if N =< M ->
sum(M) - sum(N) + N;
true ->
io:format("N > M ,return error!~n",[])
end.
练习2:创建列表。
代码:
create(N) -> create(N,[]).
create(0,L) -> L;
create(N,L) -> create(N-1,[N|L]).
reverse(L) -> reverse(L,[]).
reverse([],L) -> L;
reverse([H|T],L) -> reverse(T,[H|L]).
reverse_create(N) ->reverse(create(N)).
练习3:输出满足条件的数。
代码:
print(N) ->
io:format("numbers:"),
print(1,N).
print(First,N) ->
if First =< N ->
io:format("~p~n",[First]),
print(First+1,N);
true -> %%如果不加此处分支语句,Erlang 会抛出错误信息
ok %%exception error: no true branch found when evaluating an if expression in function 、myEx2:print/2
end.
print_even(N) ->
io:format("numbers:"),
print_even(1,N).
print_even(First,N) ->
if First =< N ->
if First rem 2 =:= 0 ->
io:format("~p~n",[First]);
true ->
go_on
end,
print_even(First+1,N);
true ->
ok
end.
练习4:汉诺塔。
代码:
hanoi(N) -> hanoi(N,a,b,c).
hanoi(1,_A,_B,_C) -> io:format("Move disk 1 from a to c. ~n");
hanoi(N,A,B,C) ->
hanoi(N-1,A,C,B),
io:format("Move disk ~p from ~p to ~p~n",[N,A,C]),
hanoi(N-1,B,C,A).
练习5:求1-2+3-4+5-6+...+n。
element(1) -> 1;
element(N) ->
if N rem 2 =:= 0 ->
-N;
true ->
N
end.
add(1) -> 1;
add(N) -> element(N) + add(N-1).
- Erlang编程实战2
- Erlang编程实战1
- Erlang/OTP并发编程实战
- erlang otp并发编程实战
- Erlang并发编程2
- Erlang入门备忘录(2):并行编程
- 图书封面的故事之“阿尔特温人”——选自《Erlang/OTP并发编程实战》图书封面
- Erlang实战练习(一)
- Erlang 的Socket编程
- Erlang 元编程
- Erlang编程快速入门
- Erlang编程语言
- Erlang—并发编程
- erlang编程规范
- Erlang TCP编程Demo
- Erlang TCP编程:聊天室
- erlang编程注意事项
- Erlang中的并行编程
- 当导入一个工程时出现的Library包的问题
- 网络爬虫--之爬起校招信息代码
- android SQLiteDatabase attempt to re-open an already-closed object:
- unix学习笔记---解释器文件(interpreter file)
- Android应用自动更新功能的代码实现
- Erlang编程实战2
- IE7下当position:fixed遇到text-align:center的解决方法
- hdu4699Editor
- Hibernate Session篇--Hibernate的缓存及对象的状态
- Flex textInput图角特效
- Invalid project description
- C++11 理解 (十九) 之 使用或禁用对象的默认函数
- 汇编里面的for循环
- 求一个字符串中连续出现次数最多的子串