2013-07-01 18:39:39 +04:00
|
|
|
|
---
|
|
|
|
|
language: erlang
|
2013-07-15 19:19:23 +04:00
|
|
|
|
contributors:
|
2013-07-04 09:59:13 +04:00
|
|
|
|
- ["Giovanni Cappellotto", "http://www.focustheweb.com/"]
|
2013-07-01 18:39:39 +04:00
|
|
|
|
filename: learnerlang.erl
|
|
|
|
|
---
|
|
|
|
|
|
2013-07-02 22:55:09 +04:00
|
|
|
|
```erlang
|
2013-07-28 18:17:54 +04:00
|
|
|
|
% Percent sign starts a one-line comment.
|
2013-07-01 18:39:39 +04:00
|
|
|
|
|
|
|
|
|
%% Two percent characters shall be used to comment functions.
|
|
|
|
|
|
|
|
|
|
%%% Three percent characters shall be used to comment modules.
|
|
|
|
|
|
|
|
|
|
% We use three types of punctuation in Erlang.
|
|
|
|
|
% Commas (`,`) separate arguments in function calls, data constructors, and
|
|
|
|
|
% patterns.
|
|
|
|
|
% Periods (`.`) (followed by whitespace) separate entire functions and
|
|
|
|
|
% expressions in the shell.
|
2013-07-17 05:53:20 +04:00
|
|
|
|
% Semicolons (`;`) separate clauses. We find clauses in several contexts:
|
2015-05-18 13:55:43 +03:00
|
|
|
|
% function definitions and in `case`, `if`, `try..catch`, and `receive`
|
2013-07-01 18:39:39 +04:00
|
|
|
|
% expressions.
|
|
|
|
|
|
|
|
|
|
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
|
|
|
|
%% 1. Variables and pattern matching.
|
|
|
|
|
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
|
|
|
|
|
|
|
|
|
Num = 42. % All variable names must start with an uppercase letter.
|
2013-07-17 05:53:20 +04:00
|
|
|
|
|
2015-05-18 13:55:43 +03:00
|
|
|
|
% Erlang has single-assignment variables; if you try to assign a different
|
|
|
|
|
% value to the variable `Num`, you’ll get an error.
|
2013-07-17 05:53:20 +04:00
|
|
|
|
Num = 43. % ** exception error: no match of right hand side value 43
|
2013-07-01 18:39:39 +04:00
|
|
|
|
|
|
|
|
|
% In most languages, `=` denotes an assignment statement. In Erlang, however,
|
2015-05-18 13:55:43 +03:00
|
|
|
|
% `=` denotes a pattern-matching operation. `Lhs = Rhs` really means this:
|
|
|
|
|
% evaluate the right side (`Rhs`), and then match the result against the
|
|
|
|
|
% pattern on the left side (`Lhs`).
|
2013-07-01 18:39:39 +04:00
|
|
|
|
Num = 7 * 6.
|
|
|
|
|
|
2015-05-18 13:55:43 +03:00
|
|
|
|
% Floating-point number.
|
2013-07-01 18:39:39 +04:00
|
|
|
|
Pi = 3.14159.
|
|
|
|
|
|
2015-05-18 13:55:43 +03:00
|
|
|
|
% Atoms are used to represent different non-numerical constant values. Atoms
|
2013-07-01 18:39:39 +04:00
|
|
|
|
% start with lowercase letters, followed by a sequence of alphanumeric
|
|
|
|
|
% characters or the underscore (`_`) or at (`@`) sign.
|
|
|
|
|
Hello = hello.
|
2013-07-17 05:53:20 +04:00
|
|
|
|
OtherNode = example@node.
|
|
|
|
|
|
|
|
|
|
% Atoms with non alphanumeric values can be written by enclosing the atoms
|
|
|
|
|
% with apostrophes.
|
|
|
|
|
AtomWithSpace = 'some atom with space'.
|
2013-07-01 18:39:39 +04:00
|
|
|
|
|
|
|
|
|
% Tuples are similar to structs in C.
|
|
|
|
|
Point = {point, 10, 45}.
|
|
|
|
|
|
2015-05-18 13:55:43 +03:00
|
|
|
|
% If we want to extract some values from a tuple, we use the pattern-matching
|
2013-07-01 18:39:39 +04:00
|
|
|
|
% operator `=`.
|
|
|
|
|
{point, X, Y} = Point. % X = 10, Y = 45
|
|
|
|
|
|
|
|
|
|
% We can use `_` as a placeholder for variables that we’re not interested in.
|
|
|
|
|
% The symbol `_` is called an anonymous variable. Unlike regular variables,
|
2015-05-18 13:55:43 +03:00
|
|
|
|
% several occurrences of `_` in the same pattern don’t have to bind to the
|
|
|
|
|
% same value.
|
2013-07-01 18:39:39 +04:00
|
|
|
|
Person = {person, {name, {first, joe}, {last, armstrong}}, {footsize, 42}}.
|
|
|
|
|
{_, {_, {_, Who}, _}, _} = Person. % Who = joe
|
|
|
|
|
|
|
|
|
|
% We create a list by enclosing the list elements in square brackets and
|
|
|
|
|
% separating them with commas.
|
|
|
|
|
% The individual elements of a list can be of any type.
|
2015-05-18 13:55:43 +03:00
|
|
|
|
% The first element of a list is the head of the list. If you imagine removing
|
|
|
|
|
% the head from the list, what’s left is called the tail of the list.
|
2013-07-01 18:39:39 +04:00
|
|
|
|
ThingsToBuy = [{apples, 10}, {pears, 6}, {milk, 3}].
|
|
|
|
|
|
2013-07-17 05:53:20 +04:00
|
|
|
|
% If `T` is a list, then `[H|T]` is also a list, with head `H` and tail `T`.
|
2013-07-01 18:39:39 +04:00
|
|
|
|
% The vertical bar (`|`) separates the head of a list from its tail.
|
|
|
|
|
% `[]` is the empty list.
|
2015-05-18 13:55:43 +03:00
|
|
|
|
% We can extract elements from a list with a pattern-matching operation. If we
|
2013-07-17 05:53:20 +04:00
|
|
|
|
% have a nonempty list `L`, then the expression `[X|Y] = L`, where `X` and `Y`
|
2013-07-01 18:39:39 +04:00
|
|
|
|
% are unbound variables, will extract the head of the list into `X` and the tail
|
|
|
|
|
% of the list into `Y`.
|
|
|
|
|
[FirstThing|OtherThingsToBuy] = ThingsToBuy.
|
|
|
|
|
% FirstThing = {apples, 10}
|
2015-05-18 13:55:43 +03:00
|
|
|
|
% OtherThingsToBuy = [{pears, 6}, {milk, 3}]
|
2013-07-01 18:39:39 +04:00
|
|
|
|
|
|
|
|
|
% There are no strings in Erlang. Strings are really just lists of integers.
|
|
|
|
|
% Strings are enclosed in double quotation marks (`"`).
|
|
|
|
|
Name = "Hello".
|
2013-07-17 05:53:20 +04:00
|
|
|
|
[72, 101, 108, 108, 111] = "Hello".
|
2013-07-01 18:39:39 +04:00
|
|
|
|
|
|
|
|
|
|
|
|
|
|
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
|
|
|
|
%% 2. Sequential programming.
|
|
|
|
|
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
|
|
|
|
|
|
|
|
|
% Modules are the basic unit of code in Erlang. All the functions we write are
|
|
|
|
|
% stored in modules. Modules are stored in files with `.erl` extensions.
|
|
|
|
|
% Modules must be compiled before the code can be run. A compiled module has the
|
|
|
|
|
% extension `.beam`.
|
|
|
|
|
-module(geometry).
|
2013-07-17 05:53:20 +04:00
|
|
|
|
-export([area/1]). % the list of functions exported from the module.
|
2013-07-01 18:39:39 +04:00
|
|
|
|
|
2013-07-17 05:53:20 +04:00
|
|
|
|
% The function `area` consists of two clauses. The clauses are separated by a
|
2013-07-01 18:39:39 +04:00
|
|
|
|
% semicolon, and the final clause is terminated by dot-whitespace.
|
|
|
|
|
% Each clause has a head and a body; the head consists of a function name
|
|
|
|
|
% followed by a pattern (in parentheses), and the body consists of a sequence of
|
|
|
|
|
% expressions, which are evaluated if the pattern in the head is successfully
|
|
|
|
|
% matched against the calling arguments. The patterns are matched in the order
|
|
|
|
|
% they appear in the function definition.
|
|
|
|
|
area({rectangle, Width, Ht}) -> Width * Ht;
|
|
|
|
|
area({circle, R}) -> 3.14159 * R * R.
|
|
|
|
|
|
|
|
|
|
% Compile the code in the file geometry.erl.
|
|
|
|
|
c(geometry). % {ok,geometry}
|
|
|
|
|
|
|
|
|
|
% We need to include the module name together with the function name in order to
|
|
|
|
|
% identify exactly which function we want to call.
|
|
|
|
|
geometry:area({rectangle, 10, 5}). % 50
|
|
|
|
|
geometry:area({circle, 1.4}). % 6.15752
|
|
|
|
|
|
2015-05-18 13:55:43 +03:00
|
|
|
|
% In Erlang, two functions with the same name and different arity (number of
|
|
|
|
|
% arguments) in the same module represent entirely different functions.
|
2013-07-01 18:39:39 +04:00
|
|
|
|
-module(lib_misc).
|
2015-05-18 13:55:43 +03:00
|
|
|
|
-export([sum/1]). % export function `sum` of arity 1
|
|
|
|
|
% accepting one argument: list of integers.
|
2013-07-01 18:39:39 +04:00
|
|
|
|
sum(L) -> sum(L, 0).
|
|
|
|
|
sum([], N) -> N;
|
|
|
|
|
sum([H|T], N) -> sum(T, H+N).
|
|
|
|
|
|
2015-05-18 13:55:43 +03:00
|
|
|
|
% Funs are "anonymous" functions. They are called this way because they have
|
|
|
|
|
% no name. However, they can be assigned to variables.
|
|
|
|
|
Double = fun(X) -> 2 * X end. % `Double` points to an anonymous function
|
|
|
|
|
% with handle: #Fun<erl_eval.6.17052888>
|
2013-07-01 18:39:39 +04:00
|
|
|
|
Double(2). % 4
|
|
|
|
|
|
|
|
|
|
% Functions accept funs as their arguments and can return funs.
|
|
|
|
|
Mult = fun(Times) -> ( fun(X) -> X * Times end ) end.
|
|
|
|
|
Triple = Mult(3).
|
|
|
|
|
Triple(5). % 15
|
|
|
|
|
|
|
|
|
|
% List comprehensions are expressions that create lists without having to use
|
|
|
|
|
% funs, maps, or filters.
|
|
|
|
|
% The notation `[F(X) || X <- L]` means "the list of `F(X)` where `X` is taken
|
|
|
|
|
% from the list `L`."
|
|
|
|
|
L = [1,2,3,4,5].
|
2015-05-18 13:55:43 +03:00
|
|
|
|
[2 * X || X <- L]. % [2,4,6,8,10]
|
|
|
|
|
% A list comprehension can have generators and filters, which select subset of
|
|
|
|
|
% the generated values.
|
2013-07-17 05:53:20 +04:00
|
|
|
|
EvenNumbers = [N || N <- [1, 2, 3, 4], N rem 2 == 0]. % [2, 4]
|
2013-07-01 18:39:39 +04:00
|
|
|
|
|
|
|
|
|
% Guards are constructs that we can use to increase the power of pattern
|
|
|
|
|
% matching. Using guards, we can perform simple tests and comparisons on the
|
|
|
|
|
% variables in a pattern.
|
|
|
|
|
% You can use guards in the heads of function definitions where they are
|
|
|
|
|
% introduced by the `when` keyword, or you can use them at any place in the
|
|
|
|
|
% language where an expression is allowed.
|
|
|
|
|
max(X, Y) when X > Y -> X;
|
|
|
|
|
max(X, Y) -> Y.
|
|
|
|
|
|
|
|
|
|
% A guard is a series of guard expressions, separated by commas (`,`).
|
|
|
|
|
% The guard `GuardExpr1, GuardExpr2, ..., GuardExprN` is true if all the guard
|
2015-05-18 13:55:43 +03:00
|
|
|
|
% expressions `GuardExpr1`, `GuardExpr2`, ..., `GuardExprN` evaluate to `true`.
|
2013-07-01 18:39:39 +04:00
|
|
|
|
is_cat(A) when is_atom(A), A =:= cat -> true;
|
|
|
|
|
is_cat(A) -> false.
|
|
|
|
|
is_dog(A) when is_atom(A), A =:= dog -> true;
|
|
|
|
|
is_dog(A) -> false.
|
|
|
|
|
|
2015-06-16 20:14:36 +03:00
|
|
|
|
% We won't dwell on the `=:=` operator here; just be aware that it is used to
|
|
|
|
|
% check whether two Erlang expressions have the same value *and* the same type.
|
|
|
|
|
% Contrast this behaviour to that of the `==` operator:
|
|
|
|
|
1 + 2 =:= 3. % true
|
|
|
|
|
1 + 2 =:= 3.0. % false
|
|
|
|
|
1 + 2 == 3.0. % true
|
|
|
|
|
|
2015-05-18 13:55:43 +03:00
|
|
|
|
% A guard sequence is either a single guard or a series of guards, separated
|
|
|
|
|
% by semicolons (`;`). The guard sequence `G1; G2; ...; Gn` is true if at
|
|
|
|
|
% least one of the guards `G1`, `G2`, ..., `Gn` evaluates to `true`.
|
2015-05-20 10:45:15 +03:00
|
|
|
|
is_pet(A) when is_atom(A), (A =:= dog) or (A =:= cat) -> true;
|
|
|
|
|
is_pet(A) -> false.
|
|
|
|
|
|
|
|
|
|
% Warning: not all valid Erlang expressions can be used as guard expressions;
|
|
|
|
|
% in particular, our `is_cat` and `is_dog` functions cannot be used within the
|
2015-05-28 10:21:27 +03:00
|
|
|
|
% guard sequence in `is_pet`'s definition. For a description of the
|
|
|
|
|
% expressions allowed in guard sequences, refer to this
|
2015-05-20 12:35:04 +03:00
|
|
|
|
% [section](http://erlang.org/doc/reference_manual/expressions.html#id81912)
|
|
|
|
|
% of the Erlang reference manual.
|
2013-07-01 18:39:39 +04:00
|
|
|
|
|
|
|
|
|
% Records provide a method for associating a name with a particular element in a
|
|
|
|
|
% tuple.
|
|
|
|
|
% Record definitions can be included in Erlang source code files or put in files
|
|
|
|
|
% with the extension `.hrl`, which are then included by Erlang source code
|
|
|
|
|
% files.
|
|
|
|
|
-record(todo, {
|
|
|
|
|
status = reminder, % Default value
|
|
|
|
|
who = joe,
|
|
|
|
|
text
|
|
|
|
|
}).
|
|
|
|
|
|
|
|
|
|
% We have to read the record definitions into the shell before we can define a
|
|
|
|
|
% record. We use the shell function `rr` (short for read records) to do this.
|
|
|
|
|
rr("records.hrl"). % [todo]
|
|
|
|
|
|
|
|
|
|
% Creating and updating records:
|
|
|
|
|
X = #todo{}.
|
|
|
|
|
% #todo{status = reminder, who = joe, text = undefined}
|
|
|
|
|
X1 = #todo{status = urgent, text = "Fix errata in book"}.
|
|
|
|
|
% #todo{status = urgent, who = joe, text = "Fix errata in book"}
|
|
|
|
|
X2 = X1#todo{status = done}.
|
2015-05-18 13:55:43 +03:00
|
|
|
|
% #todo{status = done, who = joe, text = "Fix errata in book"}
|
2013-07-01 18:39:39 +04:00
|
|
|
|
|
|
|
|
|
% `case` expressions.
|
2013-07-17 05:53:20 +04:00
|
|
|
|
% `filter` returns a list of all elements `X` in a list `L` for which `P(X)` is
|
2013-07-01 18:39:39 +04:00
|
|
|
|
% true.
|
|
|
|
|
filter(P, [H|T]) ->
|
|
|
|
|
case P(H) of
|
|
|
|
|
true -> [H|filter(P, T)];
|
|
|
|
|
false -> filter(P, T)
|
|
|
|
|
end;
|
|
|
|
|
filter(P, []) -> [].
|
2013-07-17 05:58:05 +04:00
|
|
|
|
filter(fun(X) -> X rem 2 == 0 end, [1, 2, 3, 4]). % [2, 4]
|
2013-07-01 18:39:39 +04:00
|
|
|
|
|
|
|
|
|
% `if` expressions.
|
|
|
|
|
max(X, Y) ->
|
|
|
|
|
if
|
|
|
|
|
X > Y -> X;
|
|
|
|
|
X < Y -> Y;
|
2015-03-30 23:13:26 +03:00
|
|
|
|
true -> nil
|
2013-07-01 18:39:39 +04:00
|
|
|
|
end.
|
|
|
|
|
|
2015-05-18 13:55:43 +03:00
|
|
|
|
% Warning: at least one of the guards in the `if` expression must evaluate to
|
|
|
|
|
% `true`; otherwise, an exception will be raised.
|
2013-07-01 18:39:39 +04:00
|
|
|
|
|
|
|
|
|
|
|
|
|
|
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
|
|
|
|
%% 3. Exceptions.
|
|
|
|
|
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
|
|
|
|
|
|
|
|
|
% Exceptions are raised by the system when internal errors are encountered or
|
2015-05-18 13:55:43 +03:00
|
|
|
|
% explicitly in code by calling `throw(Exception)`, `exit(Exception)`, or
|
2013-07-01 18:39:39 +04:00
|
|
|
|
% `erlang:error(Exception)`.
|
|
|
|
|
generate_exception(1) -> a;
|
|
|
|
|
generate_exception(2) -> throw(a);
|
|
|
|
|
generate_exception(3) -> exit(a);
|
|
|
|
|
generate_exception(4) -> {'EXIT', a};
|
|
|
|
|
generate_exception(5) -> erlang:error(a).
|
|
|
|
|
|
|
|
|
|
% Erlang has two methods of catching an exception. One is to enclose the call to
|
2015-05-18 13:55:43 +03:00
|
|
|
|
% the function that raises the exception within a `try...catch` expression.
|
2013-07-01 18:39:39 +04:00
|
|
|
|
catcher(N) ->
|
|
|
|
|
try generate_exception(N) of
|
|
|
|
|
Val -> {N, normal, Val}
|
|
|
|
|
catch
|
|
|
|
|
throw:X -> {N, caught, thrown, X};
|
|
|
|
|
exit:X -> {N, caught, exited, X};
|
|
|
|
|
error:X -> {N, caught, error, X}
|
|
|
|
|
end.
|
|
|
|
|
|
|
|
|
|
% The other is to enclose the call in a `catch` expression. When you catch an
|
|
|
|
|
% exception, it is converted into a tuple that describes the error.
|
|
|
|
|
catcher(N) -> catch generate_exception(N).
|
|
|
|
|
|
2015-05-18 13:55:43 +03:00
|
|
|
|
|
|
|
|
|
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
2014-05-19 11:31:09 +04:00
|
|
|
|
%% 4. Concurrency
|
|
|
|
|
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|
|
|
|
|
|
|
|
|
|
% Erlang relies on the actor model for concurrency. All we need to write
|
2015-05-18 13:55:43 +03:00
|
|
|
|
% concurrent programs in Erlang are three primitives: spawning processes,
|
2014-05-19 11:31:09 +04:00
|
|
|
|
% sending messages and receiving messages.
|
|
|
|
|
|
2015-05-18 13:55:43 +03:00
|
|
|
|
% To start a new process, we use the `spawn` function, which takes a function
|
2014-05-19 11:31:09 +04:00
|
|
|
|
% as argument.
|
|
|
|
|
|
|
|
|
|
F = fun() -> 2 + 2 end. % #Fun<erl_eval.20.67289768>
|
|
|
|
|
spawn(F). % <0.44.0>
|
|
|
|
|
|
2015-05-18 13:55:43 +03:00
|
|
|
|
% `spawn` returns a pid (process identifier); you can use this pid to send
|
|
|
|
|
% messages to the process. To do message passing, we use the `!` operator.
|
|
|
|
|
% For all of this to be useful, we need to be able to receive messages. This is
|
2014-05-19 11:31:09 +04:00
|
|
|
|
% achieved with the `receive` mechanism:
|
|
|
|
|
|
2014-09-11 14:16:25 +04:00
|
|
|
|
-module(calculateGeometry).
|
2014-05-19 11:31:09 +04:00
|
|
|
|
-compile(export_all).
|
2014-09-11 14:16:25 +04:00
|
|
|
|
calculateArea() ->
|
2014-05-19 11:31:09 +04:00
|
|
|
|
receive
|
|
|
|
|
{rectangle, W, H} ->
|
|
|
|
|
W * H;
|
|
|
|
|
{circle, R} ->
|
|
|
|
|
3.14 * R * R;
|
|
|
|
|
_ ->
|
2014-09-11 14:16:25 +04:00
|
|
|
|
io:format("We can only calculate area of rectangles or circles.")
|
2014-05-19 11:31:09 +04:00
|
|
|
|
end.
|
|
|
|
|
|
2015-05-18 13:55:43 +03:00
|
|
|
|
% Compile the module and create a process that evaluates `calculateArea` in the
|
|
|
|
|
% shell.
|
2014-09-11 14:16:25 +04:00
|
|
|
|
c(calculateGeometry).
|
2014-09-11 14:20:32 +04:00
|
|
|
|
CalculateArea = spawn(calculateGeometry, calculateArea, []).
|
2014-09-11 14:16:25 +04:00
|
|
|
|
CalculateArea ! {circle, 2}. % 12.56000000000000049738
|
2014-05-19 11:31:09 +04:00
|
|
|
|
|
2015-05-18 13:55:43 +03:00
|
|
|
|
% The shell is also a process; you can use `self` to get the current pid.
|
2014-05-19 11:31:09 +04:00
|
|
|
|
self(). % <0.41.0>
|
|
|
|
|
|
2013-07-01 18:39:39 +04:00
|
|
|
|
```
|
|
|
|
|
|
|
|
|
|
## References
|
|
|
|
|
|
2013-07-17 06:03:43 +04:00
|
|
|
|
* ["Learn You Some Erlang for great good!"](http://learnyousomeerlang.com/)
|
|
|
|
|
* ["Programming Erlang: Software for a Concurrent World" by Joe Armstrong](http://pragprog.com/book/jaerlang/programming-erlang)
|
|
|
|
|
* [Erlang/OTP Reference Documentation](http://www.erlang.org/doc/)
|
2013-07-01 18:39:39 +04:00
|
|
|
|
* [Erlang - Programming Rules and Conventions](http://www.erlang.se/doc/programming_rules.shtml)
|