take.erl

% Erlang "take" function in direct and tail recursion

-module(take).
-export([take/2, tctake/2, test_tctake/0]).

take(0,_) -> [];

take(_, []) -> [];

take(N, [X | _Xs]) -> 
    [X | take(N-1, _Xs)].



tctake_helper(0, _, Acc) -> Acc;

tctake_helper(_N, [], Acc) -> Acc;

tctake_helper(N, [X | Xs], Acc) -> tctake_helper(N-1, Xs, [Acc | X]).

tctake(0, _) -> [];

tctake(N, [X | Xs]) -> tctake_helper(N, Xs, X).