%%%-------------------------------------------------------------------
%%% @author Student
%%% @copyright (C) 2014, <COMPANY>
%%% @doc
%%%
%%% @end
%%% Created : 13. paź 2014 13:14
%%%-------------------------------------------------------------------
-module(myFuncs).
-author("Student").

%% API


-export ([power/2,contains/2,divisibleBy/2,getBinary/1]).



power(_A,0) -> 1;
power(A,N) -> power(A,N-1)*A.



contains ([],_A) -> false;
contains ([A|_Tail],A) -> true;
contains ([_|Tail],A) -> contains(Tail,A).


divisibleBy([],_A) -> [] ;
divisibleBy([B|Tail], A) ->
  if
    B rem A == 0 ->[B] ++ divisibleBy(Tail,A);
    true -> divisibleBy(Tail,A)
  end.

getBinary(0) -> "0";
getBinary(1) -> "1";
  getBinary(N) -> getBinary(N div 2) ++ (getBinary(N rem 2)).