1
2
3
4
5
6
7
-module(prog).
-export([main/0]).
 
main() ->
        fac(100).
fac(0) -> 1; % If 0, then return 1, otherwise (note the semicolon ; meaning 'else')
fac(N) when N > 0, is_integer(N) -> N * fac(N-1).

1
2
3
4
fac(0) -> 1; % If 0, then return 1, otherwise (note the semicolon ; meaning 'else')
fac(N) when N > 0, is_integer(N) -> N * fac(N-1).
 
main()->fac(100);

1
2
3
4
fac(0) -> 1; % If 0, then return 1, otherwise (note the semicolon ; meaning 'else')
fac(N) when N > 0, is_integer(N) -> N * fac(N-1).
 
main()->fac(100)

1
2
3
4
fac(0) -> 1; % If 0, then return 1, otherwise (note the semicolon ; meaning 'else')
fac(N) when N > 0, is_integer(N) -> N * fac(N-1).
 
fac(100);

1
2
3
4
fac(0) -> 1; % If 0, then return 1, otherwise (note the semicolon ; meaning 'else')
fac(N) when N > 0, is_integer(N) -> N * fac(N-1).
 
fac(100).

1
2
3
4
5
6
7
8
-module(prog).
 
-export([main/0]).
-export([test/1]).
 
main () ->
        {ok, [X]} = io:fread("", "~d"),
        test(X - 1).
 ...

1
2
3
4
5
6
7
8
9
-module(prog).
-export([main/0]).
 
main() ->
        loop().
loop() ->
        case io:fread( "","~d" ) of
                eof ->
                        true;
 ...

1
2
3
4
5
6
7
8
9
-module(prog).
 
-export([main/0]).
 
main () ->
        {ok, [X]} = io:fread("", "~d"),
        test(X - 1).
 
test (0) ->
 ...

1
2
3
4
5
6
7
8
9
-module(prog).
-export([main/0]).
 
msort(Xs) -> mergesort(fun(X,Y) -> X < Y end,Xs).
 
halves(XS) -> split(XS,XS).
split([X|Xs],[_,_|Zs]) ->
    {Us,Vs} = split(Xs,Zs),
    {[X|Us],Vs};
 ...

1
2
3
4
5
6
7
8
9
-module(prog).
-export([main/0]).
 
msort(Xs) -> mergesort(fun(X,Y) -> X < Y end,Xs).
 
halves(XS) -> split(XS,XS).
split([X|Xs],[_,_|Zs]) ->
    {Us,Vs} = split(Xs,Zs),
    {[X|Us],Vs};
 ...

1
2
3
4
5
6
7
8
9
-module(prog).
-export([main/0]).
 
msort(Xs) -> mergesort(fun(X,Y) -> X < Y end,Xs).
 
halves(XS) -> split(XS,XS).
split([X|Xs],[_,_|Zs]) ->
    {Us,Vs} = split(Xs,Zs),
    {[X|Us],Vs};
 ...

1
2
3
4
5
6
7
8
9
-module(prog).
-export([main/0]).
 
msort(Xs) -> mergesort(fun(X,Y) -> X < Y end,Xs).
 
halves(XS) -> split(XS,XS).
split([X|Xs],[_,_|Zs]) ->
    {Us,Vs} = split(Xs,Zs),
    {[X|Us],Vs};
 ...

1
2
3
4
5
6
7
-module(prog).
-export([main/0]).
 
main() ->
        {ok, [X]} = io:fread("input X: ", "~d"),
        {ok, [Y]} = io:fread("input Y: ", "~d"),
        io:fwrite("X*Y=~p~n",[X*Y]).

1
2
3
4
5
6
7
-module(prog).
-export([main/0]).
 
main() ->
        {ok, [X]} = io:fread("input X: ", "~d"),
        {ok, [Y]} = io:fread("input Y: ", "~d"),
        io:fwrite("X*Y=~p~n",[X*Y]).

1
2
3
4
5
6
7
-module(prog).
-export([main/0]).
 
main() ->
        {ok, [X]} = io:fread("input X: ", "~d"),
        {ok, [Y]} = io:fread("input Y: ", "~d"),
        io:fwrite("X*Y=~p~n",[X*Y]).

1
2
3
4
5
6
7
-module(prog).
-export([main/0]).
 
main() ->
        {ok, [X]} = io:fread("input X: ", "~d"),
        {ok, [Y]} = io:fread("input Y: ", "~d"),
        io:fwrite("X*Y=~p~n",[X*Y]).

1
2
3
4
5
6
7
-module(bigint).
-export([main/0]).
 
main() ->
        {ok, [X]} = io:fread("input X: ", "~d"),
        {ok, [Y]} = io:fread("input Y: ", "~d"),
        io:fwrite("X*Y=~p~n",[X*Y]).

1
2
3
4
5
6
7
-module(prog).
-export([main/0]).
 
main() ->
        {ok, X} = io:fread("input X: ", "~d"),
        {ok, Y} = io:fread("input Y: ", "~d"),
        io:fwrite("X*Y=~d",[X*Y]).

1
2
3
4
5
6
7
-module(prog).
-export([main/0]).
 
main() ->
        {ok, X} = io:fread("input X: ", "~d"),
        {ok, Y} = io:fread("input Y: ", "~d"),
        io:fwrite("X*Y=~d",[X*Y]).

1
2
3
4
5
6
7
-module(prog).
-export([main/0]).
 
main() ->
        {ok, X} = io:fread("input X: ", "~d"),
        {ok, Y} = io:fread("input Y: ", "~d"),
        io:fwrite("X*Y=~d",[X*Y]).

1
2
3
4
5
6
7
-module(prog).
-export([main/0]).
 
main() ->
        {ok, X} = io:fread("input X: ", "~d"),
        {ok, Y} = io:fread("input Y: ", "~d"),
        fwrite("X*Y=~d",[X*Y]).

1
1234567890123456789012345*5432109876543210987654321.

1
2
3
4
5
6
7
8
9
{error_logger,{{2011,12,21},{9,43,1}},"Protocol: ~p: register error: ~p~n",["inet_tcp",{{badmatch,{error,epmd_close}},[{inet_tcp_dist,listen,1,[{file,"inet_tcp_dist.erl"},{line,70}]},{net_kernel,start_protos,4,[{file,"net_kernel.erl"},{line,1314}]},{net_kernel,start_protos,3,[{file,"net_kernel.erl"},{line,1307}]},{net_kernel,init_node,2,[{file,"net_kernel.erl"},{line,1197}]},{net_kernel,init,1,[{file,"net_kernel.erl"},{line,357}]},{gen_server,init_it,6,[{file,"gen_server.erl"},{line,297}]},{proc_lib,init_p_do_apply,3,[{file,"proc_lib.erl"},{line,227}]}]}]}
{error_logger,{{2011,12,21},{9,43,1}},crash_report,[[{initial_call,{net_kernel,init,['Argument__1']}},{pid,<0.21.0>},{registered_name,[]},{error_info,{exit,{error,badarg},[{gen_server,init_it,6,[{file,"gen_server.erl"},{line,313}]},{proc_lib,init_p_do_apply,3,[{file,"proc_lib.erl"},{line,227}]}]}},{ancestors,[net_sup,kernel_sup,<0.10.0>]},{messages,[]},{links,[#Port<0.211>,<0.18.0>]},{dictionary,[{longnames,true}]},{trap_exit,true},{status,running},{heap_size,987},{stack_size,24},{reductions,505}],[]]}
{error_logger,{{2011,12,21},{9,43,1}},supervisor_report,[{supervisor,{local,net_sup}},{errorContext,start_error},{reason,{'EXIT',nodistribution}},{offender,[{pid,undefined},{name,net_kernel},{mfargs,{net_kernel,start_link,[['mynode@127.0.0.1',longnames]]}},{restart_type,permanent},{shutdown,2000},{child_type,worker}]}]}
{error_logger,{{2011,12,21},{9,43,1}},supervisor_report,[{supervisor,{local,kernel_sup}},{errorContext,start_error},{reason,shutdown},{offender,[{pid,undefined},{name,net_sup},{mfargs,{erl_distribution,start_link,[]}},{restart_type,permanent},{shutdown,infinity},{child_type,supervisor}]}]}
{error_logger,{{2011,12,21},{9,43,1}},std_info,[{application,kernel},{exited,{shutdown,{kernel,start,[normal,[]]}}},{type,permanent}]}
{"Kernel pid terminated",application_controller,"{application_start_failure,kernel,{shutdown,{kernel,start,[normal,[]]}}}"}
 
Crash dump was written to: erl_crash.dump
Kernel pid terminated (application_controller) ({application_start_failure,kernel,{shutdown,{kernel,start,[normal,[]]}}})

1
2
3
4
5
6
7
8
9
%% @doc Start an HTTP protocol process.
-spec start_link(pid(), inet:socket(), module(), any()) -> {ok, pid()}.
start_link(ListenerPid, Socket, Transport, Opts) ->
    Pid = spawn_link(?MODULE, init, [ListenerPid, Socket, Transport, Opts]),
    {ok, Pid}.
 
%% FSM.
 
%% @private
 ...

1
2
3
start_link(ListenerPid, Socket, Transport, Opts) -> Pid = spawn_link(?MODULE, init, [ListenerPid, Socket, Transport, Opts]), {ok, Pid}. 
 
start_link(ListenerPid, Socket, Transport, Opts) -> Pid = spawn_link(fun () -> (?MODULE):init(ListenerPid, Socket, Transport, Opts) end), {ok, Pid}.

1
2
3
4
5
6
7
8
9
FUNCTION                                                    CALLS      %     TIME  [uS / CALLS]
--------                                                    -----    ---     ----  [----------]
cowboy_clock:start_link/0                                       1   0.00        1  [      1.00]
cowboy_clock:month/1                                            1   0.00        1  [      1.00]
timer:send_interval/2                                           1   0.00        1  [      1.00]
timer:ensure_started/0                                          1   0.00        1  [      1.00]
timer:req/2                                                     1   0.00        1  [      1.00]
gen_tcp:listen/2                                                1   0.00        1  [      1.00]
sets:new/0                                                      1   0.00        1  [      1.00]
 ...

1
2
3
4
5
6
7
8
9
FUNCTION                                                    CALLS      %     TIME  [uS / CALLS]
--------                                                    -----    ---     ----  [----------]
calendar:day_of_the_week/3                                      1   0.00        0  [      0.00]
cowboy_clock:start_link/0                                       1   0.00        1  [      1.00]
cowboy_clock:month/1                                            1   0.00        1  [      1.00]
agilitycache_tcp_transport:listen/1                             1   0.00        1  [      1.00]
timer:send_interval/3                                           1   0.00        1  [      1.00]
timer:send_interval/2                                           1   0.00        1  [      1.00]
timer:req/2                                                     1   0.00        1  [      1.00]
 ...

1
2
3
4
5
6
7
8
9
-module(prog).
-export([main/0]).
 
main() ->
        loop().
loop() ->
        case io:fread( "","~d" ) of
                eof ->
                        true;
 ...

1
2
3
4
5
6
7
8
9
wait_request(State=#state{server_socket=Socket, transport=Transport,
          timeout=T, server_buffer=Buffer}) ->
    unexpected(wait_request, State),
    case Transport:recv(Socket, 0, T) of
      {ok, Data} ->
        unexpected("Olha, request data!", Data),
        start_parse_request(State#state{server_buffer = << Buffer/binary, Data/binary >>});
      {error, timeout} ->
        unexpected("http_error, 408", State),
 ...

1
2
3
4
5
6
7
8
9
-module(prog).
-export([main/0]).
 
main() ->
        loop().
loop() ->
        case io:fread( "","~d" ) of
                eof ->
                        true;
 ...