-module(lab9).
-export([add/2,same/2,razy3/1,head/1,silnia/1,parzyste/1,fib/1,silniaI/2,silniaI/1,nalezy/2,nalezyI/2,polacz/2,dlugosc/1,dlugoscI/1,dlugoscI/2,sumaI/1,sumaI/2,zmniejsz_o_n/2,zmniejsz_o_n/3]).


add(A,B) ->
    A + B.



same(A,B) when (A==B) ->
    true;

same(A,B) when (A/=B) ->
    false.



razy3(N) ->
    N * 3.



head([T|H]) ->
    T.



silnia(N) when (N==1) ->
    N;

silnia(N) when (N>1) ->
    N * silnia(N-1).



parzyste(N) when(N==1) ->
    false;

parzyste(N) when(N==0) ->
    true;

parzyste(N) when(N>1) ->
    parzyste(N-2).



fib(N) when(N==1) ->
    1;

fib(N) when(N==2) ->
    1;

fib(N) when(N>2) ->
    fib(N-1)+fib(N-2).



nalezy(N,L) ->
    lists:member(N,L).



nalezyI(N,[]) ->
    false;

nalezyI(N,[N|T]) ->
    true;

nalezyI(N,[H|T]) ->
    nalezy(N,T).



dlugosc(L) ->
    length(L).



polacz(L1,L2) ->
    L1 ++ L2.



silniaI(N,R) when(N==1) ->
    R;

silniaI(N,R) when(N>1) ->
    RX = R * N,
    silniaI(N-1,RX).

silniaI(N) when(N>1) ->
    silniaI(N,1).



dlugoscI(L) ->
    dlugoscI(L,0).

dlugoscI([H|T],N) ->
    dlugoscI(T,N+1);

dlugoscI([],N) ->
    N.



sumaI(L)->
    sumaI(L,0).

sumaI([H|T],N)->
    NS = N + H,
    sumaI(T,NS);

sumaI([],N)->
    N.



zmniejsz_o_n(L,N)->
    zmniejsz_o_n(L,N,[]).

zmniejsz_o_n([H|T],N,O)->
    OI = O ++ [(H-N)],
    zmniejsz_o_n(T,N,OI);

zmniejsz_o_n([],N,O)->
    O.