Erlang入门: 几个简单小程序

栏目: Erlang · 发布时间: 7年前

内容简介:Erlang入门: 几个简单小程序

生成斐波那契数列

#! /usr/bin/env escript

main([A]) ->
    I=list_to_integer(A),
    F=fac_list(I),
    io:format("feribo ~w = ~w~n",[I,F]).

element(1) -> 1;
element(2) -> 1;
element(N) -> element(N-1) + element(N-2).

fac_list(N) -> fac_list([], N).

fac_list(L, 0) -> L;
fac_list(L, N) -> fac_list([element(N)|L], N-1).

运行结果

dingkaideMacBook-Pro:erlang dingkai$ ./feibo 25
feribo 25 = [1,1,2,3,5,8,13,21,34,55,89,144,233,377,610,987,1597,2584,4181,6765,10946,17711,28657,46368,75025]

求平均数

#! /usr/bin/env escript

%main([L]) ->
main([]) ->
    L = [1, 2, 3],
    io:format("list = ~w~n", [L]),
    Avgrage = count_average(L),
    io:format("avrage of ~w = ~w~n",[L,Avgrage]).

num([]) -> 0;
num([H|T]) -> 1+num(T).

sum([]) -> 0;
sum([H|T]) -> H + sum(T).

count_average([]) -> 0;
count_average(L) -> sum(L)/num(L).

运行结果

dingkaideMacBook-Pro:erlang dingkai$ ./avg
./avg:11: Warning: variable 'H' is unused
list = [1,2,3]
avrage of [1,2,3] = 2.0

求N个数的平方和

#! /usr/bin/env escript

main([A]) ->
    N = list_to_integer(A),
    SquareSum = sum_square(N),
    io:format("sum square ~w = ~w~n",[N,SquareSum]).

compute_square(X) -> X*X.

sum_square(1) -> compute_square(1);
sum_square(N) -> sum_square(N-1) + compute_square(N).

运行结果:

dingkaideMacBook-Pro:erlang dingkai$ ./square_sum 10
sum square 10 = 385

连接两个链表

将列表L1和L2连接起来,将L2的元素依次加入L1,代码如下:

#! /usr/bin/env escript

%main([A]) ->
main([]) ->
    L1 = [1, 2, 3],
    L2 = [4, 5, 6],
    L = concatenate(L1, L2),
    io:format("L1 + L2 = ~w~n",[L]),
    io:format("concat of [1, 2, 3] and [4, 5] = ~w~n", [concat([1, 2, 3], [4, 5])]).

%函数reverse将列表逆置
reverse(L) -> reverse(L, []).

reverse([], L) -> L;
reverse([H|T], L) -> reverse(T, [H|L]).

concat(L, []) -> L;
concat(L, [H|T]) -> concat([H|L], T).

concatenate(L1, L2) -> concat(L1, reverse(L2)).

运行结果:

dingkaideMacBook-Pro:erlang dingkai$ ./concat_lists
L1 + L2 = [4,5,6,1,2,3]

这个例子比较有趣的地方在于一个reverse函数和一个concat函数

reverse([H|T], L) -> reverse(T, [H|L]).

的作用是将将第一个列表[H|T]的第一个元素T拿出来放在L的第一位,其实是一个不断剥离原始列表首元素的过程。

举个例子来说,假如L为[1, 2, 3],那么

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

其实就是

reverse([1, 2, 3], [])

而其计算过程是:

reverse([1, 2, 3], []) =>
reverse([2, 3], [1]) =>
reverse([3], [2, 1]) =>
reverse([], [3, 2, 1]) =>
[3, 2, 1]

concat的方法其过程则表达为下面的过程:

concat(L, [H|T]) -> concat([H|L], T)

这就是将第二个列表[H|T]中不断剥离首个元素并插入到L的前面,直到[H|T]为空为止。

例如:contact([1, 2, 3], [4, 5])过程如下:

contact([1, 2, 3], [4, 5]) =>
contact([4, 1, 2, 3], [5]) =>
contact([5, 4, 1, 2, 3], []) =>
[5, 4, 1, 2, 3]

以上所述就是小编给大家介绍的《Erlang入门: 几个简单小程序》,希望对大家有所帮助,如果大家有任何疑问请给我留言,小编会及时回复大家的。在此也非常感谢大家对 码农网 的支持!

查看所有标签

猜你喜欢:

本站部分资源来源于网络,本站转载出于传递更多信息之目的,版权归原作者或者来源机构所有,如转载稿涉及版权问题,请联系我们

Java Servlet&JSP经典实例

Java Servlet&JSP经典实例

(美)佩里 / 朱涛江、邹红霞、林琪 / 中国电力出版社 / 2005-7 / 86.00元

本书将用于帮助指导Java web开发人员的日常任务,提供典型的web相关问题的快速解决方案。本书集中介绍了如何用Java初始化某些与web相关的任务,而不是教会读者如何使用Java语言,或者事无巨细地解释servlet和JSP API。书中包含了大量关于复杂的日常开发任务的技巧,这些技巧涵盖了许多与Servlet 2.4和JSP 2.0规范相关联的新特性,包括ServletRequestList......一起来看看 《Java Servlet&JSP经典实例》 这本书的介绍吧!

Base64 编码/解码
Base64 编码/解码

Base64 编码/解码

XML 在线格式化
XML 在线格式化

在线 XML 格式化压缩工具

RGB HSV 转换
RGB HSV 转换

RGB HSV 互转工具