1
2
3
4
5
6
7
8
9
-module(prog).
-export([main/0]).
 
main() ->
  io:format("~w~n", [return_positions([a, b, c])]).
 
return_positions(X) ->
  return_positions(X, [], 1).
return_positions([], Out, _I) ->
 ...

1
2
3
4
5
6
7
8
9
-module(prog).
-export([main/0]).
 
main() ->
  return_positions([a, b, c]).
 
return_positions(X) ->
  return_positions(X, [], 1).
return_positions([], Out, _I) ->
 ...

1
2
3
4
5
6
7
8
9
-module(prog).
-export([start/0]).
 
start() ->
  return_positions([a, b, c]).
 
return_positions(X) ->
  return_positions(X, [], 1).
return_positions([], Out, _I) ->
 ...

1
2
3
4
5
6
7
8
9
-module(main).
-export([prog/0]).
 
start() ->
  return_positions([a, b, c]).
 
return_positions(X) ->
  return_positions(X, [], 1).
return_positions([], Out, _I) ->
 ...

1
2
3
4
5
6
7
8
9
-module(main).
-export([start/0]).
 
start() ->
  return_positions([a, b, c]).
 
return_positions(X) ->
  return_positions(X, [], 1).
return_positions([], Out, _I) ->
 ...

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

1
2
start() ->
        io:format("hello~n").

1
2
Y = [ X + 3#1212 || X <- "KSBXGPJXCQLU"]
{XXX,YYY} = lists:split(3,[7#344 bxor X || X <- Y, X > 5#1002])

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
-module(test1).
-export([main/1]).
 
main(T) -> ( fun(T) -> T * T end ) end.
 
main(11).

1
2
3
Z=fun(X)-> 2*X end.
 
fun(2).

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
2+5

1
2
3
4
5
6
7
8
9
check_plugins(HttpReq) ->
        CachePlugins = [plugin1, plugin2],
        InCharge = test_in_charge_plugins(CachePlugins, HttpReq, plugin_default).
 
test_in_charge_plugins([], _, Default) ->
  Default;
test_in_charge_plugins([Plugin | T], HttpReq, Default) ->
  case Plugin:in_charge(HttpReq) of
    true ->
 ...

1
2
3
4
5
6
7
8
#!/usr/bin/perl
 
use strict;
use warnings;
 
use integer;
 
=head1 DESCRIPTION
 ...

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.