1
2
3
4
5
6
7
8
-module(prog).
-export([main/0]).
 
main() ->
  print_numbers(5).
 
print_numbers(N) ->
  print_str(N, 2 * N - 1).
 ...

1
2
3
4
5
6
7
8
-module(prog).
-export([main/0]).
 
main() ->
  print_numbers(9).
 
print_numbers(N) ->
  print_str(N, 2 * N - 1).
 ...

1
2
3
4
5
6
7
8
9
-module(numbers).
-export([print_numbers/1]).
 
print_numbers(N) ->
  print_str(N, 2 * N - 1).
 
print_str(_N, 0) ->
  finish;
print_str(N, M) ->
 ...

1
2
3
4
5
6
7
8
9
counter(Count) ->
  receive
    {incr} ->
      counter(Count+1);
    {report, To} ->
      To ! {count, Count}
  end,
  counter(Count).
  
 ...

1
2
3
4
5
6
7
8
case os:type() of
    {unix, _ } ->
        Script = <<"#!/usr/bin/env escript\n%%! -pa . -noshell -noinput -sasl errlog_type error\n", ZipBin/binary>>,
        Name   = "erica";
    {win32, _ } ->
        Script = <<"@echo off & path=%path%;%~dp0; & escript.exe \"%~dpn0.cmd\" %* & goto :eof\n", ZipBin/binary>>,
        Name   = "erica.cmd"
end,
 ...

1
2
3
4
5
6
7
8
-module(prog).
-export([main/0]).
 
main() ->
        lista = [1,2,3,4,5].
 
fucionMap(l) ->
        [Head|Tail] = l.

1
2
3
4
5
6
7
8
9
-module(prog).
-export([main/0]).
 
main() ->
        lista = [1,2,3,4,5].
 
fucionMap(l) ->
        [Head|Tail] = l;
        Tail.

1
2
3
4
5
6
7
8
9
-module(prog).
-export([main/0]).
 
main() ->
        lista = [1,2,3,4,5];
        fucionMap(lista).
 
fucionMap(l) ->
        [Head|Tail] = l;

1
2
3
4
5
6
7
8
9
-module(prog).
-export([main/0]).
 
main() ->
        lista = [1,2,3,4,5];
        fucionMap(lista).
 
fucionMap(l) ->
        [Head|Tail] = l.

1
2
3
4
5
-module(matching_function).
-export([number/1]).
number(one)-> 1;
number(two)-> 2;
number(three) -> 3

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() ->
        loop().
loop() ->
        case io:fread( "","~d" ) of
                eof ->
                        true;
 ...

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
io:fwrite("hello, world\n").

1
 

1
hello_world() -> io:fwrite("hello, world\n").

1
2
3
4
        -module(hello).
        -export([hello_world/0]).
        
        hello_world() -> io:fwrite("hello, world\n").

1
2
3
4
5
-module(fact).
-export([fac/1]).
 
fac(0) -> 1;
fac(N) when N > 0 -> N * fac(N-1).

1
1+2

1
2
3
4
5
6
7
8
9
-module(prog).
-export([main/0]).
 
main() -> 
    case io:fread("","~d") of
        eof -> true;
        {ok,[X]} when X == 42 -> true;
        {ok,[X]} -> io:format("~p~n",[X]),
                    main()

1
2
3
4
5
6
7
8
9
-module(prog).
-export([main/0]).
 
main() -> 
    case io:fread("","~d") of
        eof -> true;
        {ok,[X]} when X == 42 -> true;
        {ok,[X]} -> io:format("~p~n",[X]),
                    main()

1
2
3
4
5
6
7
8
9
-module(prog).
-export([main/0]).
 
main() -> 
    case io:fread("","~d") of
        eof -> true;
        {ok,[X]} when X == 42 -> true;
        {ok,[X]} -> io:format("~p~n",[X]),
                    main()

1
2
3
4
5
6
7
8
9
-module(prog).
-export([main/0]).
 
main() -> 
    case io:fread("~d","") of
        eof -> true;
        {ok,[X]} when X == 42 -> true;
        {ok,[X]} -> io:format("~p~n",[X]),
                    main()

1
2
3
4
5
-module(prog).
-compile(export_all).
 
main() ->
  io:fwrite("~p",[math:pow(1000,1000)]).

1
2
3
4
5
6
-module(prog).
-compile(export_all).
 
main() ->
  io:fwrite("~p~n",[math:pow(1.3,2) / 1.3]),
  io:fwrite("~p~n",[1.6900000000000002 / 1.3]).

1
2
3
4
5
6
-module(prog).
-compile(export_all).
 
main() ->
  io:fwrite("~p~n",[math:pow(1.3,2) / 1.3]),
  io:fwrite("~p~n",[1.6900000000000002 / 1.3]).

1
2
3
4
5
6
-module(prog).
-compile(export_all).
 
main() ->
  io:fwrite("~p~n",[math:pow(1.3,2) / 1.3]),
  io:fwrite("~p~n", 1.6900000000000002 / 1.3).

1
2
3
4
5
-module(prog).
-compile(export_all).
 
main() ->
  io:fwrite("~p",[math:pow(1.3,2)]).

1
2
3
4
5
-module(prog).
-compile(export_all).
 
main() ->
  io:fwrite("~p",[math:pow(1.3,2) / 1.3]).

1
2
3
4
5
-module(prog).
-compile(export_all).
 
main() ->
  io:fwrite("~p",[math:pow(1.3,2)]).