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
                        
                                 
                          
                         
                 
             
                           
                          
                                 
 ...

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
a()->a.

1
2
3
4
5
6
7
8
#include <iostream>
 
using namespace std;
 
int main() {
        
        return 0;
}

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]).
 
write(0) -> null;
write(N) when N rem 15 == 0 -> io:format("TAK~n",[]), main();
write(_N) -> io:format("NIE~n",[]), main().
 
main() ->
        {ok, [X]} = io:fread("","~d"),
 ...

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
-module(prog).
-export([main/0]).
 
main() ->
    display("foo~n"),
    true.

1
2
3
4
5
6
7
8
-spec parse_simple_string(binary()) -> calendar:datetime() | {error, any()}.
parse_simple_string(<<Year:4/binary, "-", Month:3/binary,   "-", Day:2/binary, 
                 " ", Hour:2/binary, ":", Minutes:2/binary, ":", Seconds:2/binary>>) ->
 
      try 
        {parse_date(Year, Month, Day),
         parse_time(Hour, Minutes, Seconds)}
      of
 ...

1
2
3
4
5
6
7
8
9
-spec parse_simple_string(binary()) -> calendar:datetime() | {error, any()}.
parse_simple_string(<<Year:4/binary, "-", Month:3/binary, "-", Day:2/binary, " ", Hour:2/binary, ":", Minutes:2/binary, ":", Seconds:2/binary>>) ->
      Binary_to_integer = fun(X) -> list_to_integer(binary_to_list(X)) end,
      try {ok, 
          { 
            {Binary_to_integer(Year), 
              month(Month), 
              Binary_to_integer(Day)
            },
 ...

1
2
3
4
5
6
7
8
dont_work() ->
        try 1+a 
        catch 
                Error -> 
                        Error
        end.
works() ->
    catch 1+a.

1
2
3
4
5
6
7
8
9
-module(prog).
-export([main/1]).
 
main(_) ->
        io:format("~p~n", [works()]),
        io:format("~p~n", [dont_work()]),
        true.
 
dont_work() ->
 ...

1
2
3
4
5
6
7
8
9
-module(prog).
-export([main/0]).
 
main(_) ->
        io:format("~p~n", [works()]),
        io:format("~p~n", [dont_work()]),
        true.
 
dont_work() ->
 ...

1
2
3
4
5
6
7
8
9
-module(prog).
-export([main/0]).
 
main() ->
        io:format("~p~n", [works()]),
        io:format("~p~n", [dont_work()]),
        true.
 
dont_work() ->
 ...

1
2
3
4
5
6
7
8
dont_work() ->
        try 1+a 
        catch 
                Error -> 
                        Error
        end.
works() ->
    catch 1+a.
 ...

1
2
3
4
5
6
7
8
9
begin 644 webutils_pl
M8F5G:6X@-C0T(&EN9F\R+FAT;6P-"DTO(UU8.S900#U&-5(\5D5/.T-40BPR
M6%`H0F!?+T)@0")#4$$Q)%TC-25%,#$R(4@])E5,*"4A-3!$42D-"DTP4F!"
M*S)<3S53+2,K4ETD-20P0#8D030S-%!`+#)84"@E,5(X-EE3.C<Q23M664$[
M(EQ/,3180B)"8$(-"DTZ)S%4/"-(3RM7/5<]4EE7+%)93SQ&/$\U)2A//B9!
M5#LV4%$K5#$T,2)=6#HG,4T[(R1-/2<I03M'+4D-"DT])D5/.T8E3"M&,50Y
M(BA>(D!(0"@B8"DH8$1`(D)@0"A@1$`H8$0I(C!(7#HG,4T[(B%8.S913CQ3
M5$(-"DTZ)S%4/"-(3RM7/5<]4EE7+%)93SQ&/$\L,T19+C)=6#HG,4T[(BA>
M+R9!13@V,%XH(F!`(C!$*2@B8"D-"DTB0U%4.C<Q3#DS62<Y-EU#.#8M2#DR
 ...

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).
-import(lists).
-import(io).
-export([run/1, parse/1]).
 
% run(list(char())) -> tape()
run(Program) -> eval(parse(Program), {tape, [], 0, []}).
 
% eval(program(), tape()) -> tape()
 ...

1
2
3
4
5
6
7
8
9
-module(bf).
-import(lists).
-import(io).
-export([run/1, parse/1]).
 
% run(list(char())) -> tape()
run(Program) -> eval(parse(Program), {tape, [], 0, []}).
 
% eval(program(), tape()) -> tape()
 ...

1
f()->3.

1
2
3
4
5
6
7
8
9
-module(tested).
-export([main/0]).
%-compile(export_all).
 
%Don't look at this code as a good example :)
 
main() ->
    loop().
loop() ->
 ...

1
lists:foldl(fun(X,Sum) -> X - Sum end, 0, [1,2,3,4,5]).

1
2
3
4
5
6
7
8
9
-module(prog).
-export([main/0]).
 
main() ->
        print_ips({1, 1, 1, 1}, {2, 2, 2, 2}).
 
 
print_ips(A, A) -> ok;
 
 ...

1
2
3
4
5
6
7
8
9
-module(prog).
-export([main/0]).
 
main() ->
        print_ips({1, 1, 1, 1}, {2, 2, 2, 2}).
 
 
print_ips(A, A) -> ok;
 
 ...

1
2
3
4
5
6
7
8
9
-module(prog).
-export([main/0]).
 
main() ->
        print_ips({1, 1, 1, 1}, {2, 2, 2, 2}).
 
 
print_ips(A, A) -> ok;
 
 ...

1
2
3
4
5
6
7
8
9
-module(prog).
-export([main/0]).
 
main() ->
        print_ips({1, 1, 1, 1}, {2, 2, 2, 2}, []).
 
 
print_ips(A, A, Acc) ->
        io:fwrite("~p", [Acc]);
 ...

1
2
3
4
5
6
7
8
9
-module(prog).
-export([main/0]).
 
main() ->
        print_ips({1, 1, 1, 1}, {2, 2, 2, 2}, []).
 
 
print_ips(A, A, Acc) ->
        io:fwrite("~p", [Acc]);
 ...

1
2
3
4
5
6
7
8
9
-module(prog).
-export([main/0]).
 
main() ->
        print_ips({1, 1, 1, 1}, {2, 2, 2, 2}).
 
 
print_ips(A, A) -> ok;
 
 ...