Packages
diint_utilites_common_app
1.4.21
1.4.23
1.4.22
1.4.21
1.4.20
1.4.19
1.4.18
1.4.17
1.4.16
1.4.15
1.4.14
1.4.12
1.4.11
1.4.10
1.4.9
1.4.8
1.4.7
1.4.6
1.4.5
1.4.4
1.4.3
1.4.2
1.4.1
1.4.0
1.3.9
1.3.8
1.3.7
1.3.6
1.3.5
1.3.4
1.3.3
1.3.2
1.3.1
1.3.0
1.2.101
1.2.11
1.2.10
1.2.9
1.2.8
1.2.7
1.2.6
1.2.5
1.2.4
1.2.3
1.2.2
1.2.1
1.2.0
1.1.7
1.1.6
1.1.5
1.1.4
1.1.3
1.1.2
1.1.1
1.1.0
1.0.13
1.0.12
1.0.11
1.0.10
1.0.9
1.0.8
1.0.7
1.0.6
1.0.5
1.0.4
1.0.3
1.0.2
1.0.1
библиотеки для работы с ребитом и протоколы
Current section
Files
Jump to
Current section
Files
src/utilites/lists_extension.erl
%%%-------------------------------------------------------------------
%%% @author cheese
%%% @copyright (C) 2014, <COMPANY>
%%% @doc
%%%
%%% @end
%%% Created : 11. Jan 2014 2:28 PM
%%%-------------------------------------------------------------------
-module(lists_extension).
-author("cheese").
%% API
-export([are_equal/2, cut_last_item/1]).
-export([internal_are_equal/2, internal_cut_last_item/2]).
are_equal(List1, List2) when erlang:length(List1) == erlang:length(List2) ->
internal_are_equal(List1, List2);
are_equal(_List1, _List2) ->
false.
internal_are_equal([], []) ->
true;
internal_are_equal([Head1 | Tail1], [Head2 | Tail2]) when Head1 == Head2 ->
internal_are_equal(Tail1, Tail2);
internal_are_equal(_List1, _List2) ->
false.
cut_last_item(Arr) ->
internal_cut_last_item(Arr, []).
internal_cut_last_item([], Res) ->
lists:reverse(Res);
internal_cut_last_item([_OneItem], Res) ->
lists:reverse(Res);
internal_cut_last_item([Head | Tail], Res) ->
internal_cut_last_item(Tail, [Head | Res]).