redink

-module(session_manager).

-behaviour(gen_server).

%% API
-export([start_link/0]).
-export([set/1, get/1]).

%% gen_server callbacks
-export([init/1, handle_call/3, handle_cast/2, handle_info/2,

redink

-module(single_session).

-behaviour(gen_server).

%% API
-export([start_link/0]).

%% gen_server callbacks
-export([init/1, handle_call/3, handle_cast/2, handle_info/2,
         terminate/2, code_change/3]).

redink

-module(merge_sort).

-compile(export_all).

merge_sort([]) ->
    [];
merge_sort([ X | [] ]) ->
    [X];
merge_sort(List) ->
    {FList, SList} = lists:split(erlang:round(erlang:length(List)/2), List),

redink

-module(mnesia_cluster_console).

-export([ join_cluster/2
        , join_cluster/1
        , reverse_join_cluster/1
        , reverse_join_cluster/2
        , join_cluster_do/2
        , forget_node_from_cluster/1
        , cluster_status/0
        , get_all_nodes/0

redink

-module(test).
-compile(export_all).
%% API

-compile({inline, [  insert/2
                   , merge/2
                  ]}).

insert(E, []) -> [E];
insert(E, [E2|_] = H) when E =< E2 -> [E, H];

redink

-module(find_Nth_from_two_sorted_list).

-compile(export_all).

find([], B, N) ->
    lists:nth(N, B);
find(A, [], N) ->
    lists:nth(N, A);
find([H1 | _], [H2 | _], 1) ->
    max(H1, H2);

redink

-module(t).

-export([t/0]).

-define(empty_tree,
        #node{root = undefined, left = undefined, right = undefined}).

-record(node, {root, left, right}).

t() ->

redink

-module(tiny_pmap).

-export([pmap/2]).

-define(CONTASKNUM, 2).

pmap(Fun, List) ->
    pmap(List, Fun, 1, [], []).

redink

-module(test_route_binary_leak).

-behaviour(gen_server).

-export([start_link/0]).
-export([test_route_binary_leak/1]).

-export([init/1, handle_call/3, handle_cast/2, handle_info/2,
         terminate/2, code_change/3]).

redink

-module(find_top_100_from_1gb_file_1mb_memory_limit).

-compile(export_all).

start() ->
    erlang:process_flag(max_heap_size, #{size => 131072, kill => false, error_logger => true}),
    {ok, IO} = file:open("test_file.file", [read, binary, read_ahead]),
    read_file(file:read_line(IO), IO),
    map_count_single_file(),
    find_topn().