1
2
3
4
5
6
fizzbuzz() ->
    [if N rem 15 == 0 -> "FizzBuzz";
       N rem 3 == 0  -> "Fizz";
       N rem 5 == 0  -> "Buzz";
       true -> integer_to_list(N)
     end ++"\n" || N <- lists:seq(1,100)].

1
2
3
4
5
6
7
8
-module(prog).
-compile(export_all).
 
main() ->
    io:format("~w~n",[buckets(4, lists:seq(1,43))]).
 
buckets(N, L) ->
    buckets(1, N, length(L) div N, L, [[]]).
 ...

1
2
3
4
5
6
7
8
9
-module(prog).
-compile(export_all).
·
main() ->
    io:format("~w~n",[buckets(4, lists:seq(1,43))]).
·
buckets(N, L) ->
    buckets(1, N, length(L) div N, L, [[]]).
·
 ...

1
2
3
4
5
6
7
8
-module(prog).
-compile(export_all).
 
main() ->
    io:format("~p~n",[buckets(4, lists:seq(1,40))]).
 
buckets(N, L) ->
    buckets(1, N, length(L), L, [[]]).
 ...

1
2
3
4
5
6
7
8
-module(prog).
-compile(export_all).
 
main() ->
    io:format("~p~n",[buckets(4, lists:seq(1,40))]).
 
buckets(N, L) ->
    buckets(1, N, length(L), L, [[]]).
 ...

1
2
3
4
5
6
7
8
-module(prog).
-compile(export_all).
 
main() ->
    io:format("~p~n",[buckets(4, lists:seq(1,40))]).
 
buckets(N, L) ->
    buckets(1, N, length(L), L, [[]]).
 ...

1
2
3
4
5
6
7
8
-module(prog).
-export([main/0, fib/1]).
 
main() ->
    io:format("~p~n",[fib(25)]).
 
 
fib(Limit) -> [0, 1 | fib(0,1,2,Limit)].
 ...

1
2
3
4
5
6
7
8
-module(prog).
-export([main/0, fib/1]).
 
main() ->
    io:format("~p~n",[fib(25)]).
 
 
fib(Limit) -> [0, 1 | fib(0,1,2,Limit)].
 ...

1
2
3
4
5
6
7
8
-module(prog).
-export([main/0, fib/1]).
 
main() ->
    io:format("~p~n",[fib(25)]).
 
 
fib(Limit) -> [0, 1 | fib(0,1,0,Limit)].
 ...

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

1
2
3
4
5
6
-module(prog).
-export([main/0]).
 
main() ->
        io:format("Hello hello.~n"),
        main().

1
2
3
4
5
-module(prog).
-export([main/0]).
 
main() ->
        io:format("Hello hello.~n").

1
2
3
4
5
-module(prog).
-export([main/0]).
 
main() ->
        io:format("Hello hello.~n).

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(erlirc).
-export([start/0]).
 
start() ->
        {ok, Sock} = gen_tcp:connect("irc.umo.ms", 6667, []),
        loop(Sock).
 
loop(Sock) ->
        A = gen_tcp:recv(Sock, 0),
 ...

1
2
3
4
5
6
7
8
9
-module(erlirc).
-export([start/1]).
 
start() ->
        {ok, Sock} = gen_tcp:connect("irc.umo.ms", 6667, []).
 
loop(Sock) ->
        A = gen_tcp:recv(Sock, 0),
        io:format("LINE: ~s", [A]).

1
2
3
4
5
6
7
8
-module(erlirc).
-export([start/1]).
 
start() ->
        {ok, Sock} = gen_tcp:connect("irc.umo.ms", 6667, []);
        loop(Sock) ->
                   A = gen_tcp:recv(Sock, 0);
                   io:format("LINE: ~s", [A]).
 ...

1
2
3
4
5
-module(prog).
-export([main/0]).
 
main() ->
        <<"{\"success\":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
-module(prog).
-export([main/0]).
 
main() ->
        1.

1
2
3
4
5
-module(prog).
-export([main/0]).
 
main() ->
  test.

1
2
3
4
5
-module(prog).
-export([main/0]).
 
main() ->
  <<"{\"success\":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
<<"{\"success\":true}">>.

1
2
3
4
5
-module(prog).
-export([main/0]).
 
main() ->
    io:format("С праздником, посоны.").

1
2
3
4
5
-module(prog)
-export([main/0])
 
main() ->
    io:format("С праздником, посоны.").

1
$(document).ready();

1
1+1.

1
2
3
4
5
6
7
8
9
-module(prog).
-export([main/0]).
 
main() ->
  for(0, fun(X) -> X < 10 end, fun(X) -> io:format("~w~n", [X]), X + 1 end).
 
for(State, Pred, BlockFunc) ->
  case Pred(State) of
    true ->
 ...

1
2
3
4
5
6
7
8
9
-module(prog).
-export([start/0]).
 
start() ->
  for(0, fun(X) -> X < 10 end, fun(X) -> io:format("~w~n", [X]), X + 1 end).
 
for(State, Pred, BlockFunc) ->
  case Pred(State) of
    true ->
 ...