Erlang Programming Examples

Erlang Number Data Types

erlang

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

start() ->
   io:fwrite("~w",[1+1]).

Erlang Basic Syntax

erlang

% hello world program
-module(helloworld).
-export([start/0]).

start() ->
    io:fwrite("Hello, world!\n").

jola

erlang

% hello world program
-module(helloworld).
-export([start/0]).

start() ->
    io:fwrite("Hello, world!\n").

bevezeto

erlang

-module(bevezeto).
-export([fac/1, sum/1, append/2, revapp/2]).
%-compile(export_all).
-author('[email protected]').
-vsn('$LastChangedDate: 2011-10-16 18:12:55 +0200 (Sun, 16 Oct 2011) $$').

%% @spec fac(N::integer()) -> F::integer().
%% F = N! (F az N faktorialisa).
fac(0) -> 1;
fac(N) -> N * fac(N-1).

%% @spec sum(L::[number()]) -> S::number().
%% S az L lista elemeinek az osszege.
sum([]) -> 0;
sum(L)  -> H = hd(L), T = tl(L), H + sum(T).

%% @spec append(L1::[term()], L2::[term()]) -> L::[term()].
%% L az L1 elemeinek az L2 ele fuzesevel eloallo lista.
append([], L2) -> L2;
append(L1, L2) -> [hd(L1)|append(tl(L1), L2)].

%% @spec revapp(L1::[term()], L2::[term()]) -> L::[term()].
%% L az L1 forditottja elemeinek az L2 ele fuzesevel eloallo lista.
revapp([], L2) -> L2;
revapp(L1, L2) -> revapp(tl(L1), [hd(L1)|L2]).

lists:foldl(fun(X,Y) when X rem 2=:= 0 ->[X|Y]; (_,Y) -> Y end, [], [1,2,3,4,5,6]).

erlang

lists:foldl(fun(X,Y) when X rem 2=:= 0 ->[X|Y]; (_,Y) -> Y end, [], [1,2,3,4,5,6]).

ejemplos

erlang

% modulo de ejemplos
-module(ejemplos).
-export([doble/1]).

% regresa el doble de su argumento
doble(X) -> 2 * X.

doble(2).

logger.hrl

erlang

-module(mod_http_trial).

-behaviour(gen_mod).

%% Required by ?INFO_MSG macros
-include("logger.hrl").

%% gen_mod API callbacks
-export([start/2, stop/1]).

start(_Host, _Opts) ->
    ?INFO_MSG("Hello, ejabberd world!", []),
    ok.

stop(_Host) ->
    ?INFO_MSG("Bye bye, ejabberd world!", []),
    ok.

Compile and Execute Erlang Online

erlang

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

start()->
    "hello".

client.erl

erlang

% hello world program
-module(helloworld).
-export([start/0]).

start() ->
    io:fwrite("Hello, world!\n").

Follow

Newsletter