% moje zadanka z foldl

%zwróć listę, która zawiera wartości bezwzględne wszystkich liczb
absOfList(L) -> lists:foldl(fun(A,Acc) -> if A>0 -> Acc++[A]; A<0 -> Acc++[-A] end end, [], L).

%zamień każdy element "Element" na "Other" : ([1,2,3],2,5) = [1,5,3]
changeElementToOther(L,Element,Other) -> lists:foldl(fun(A,Acc)-> if A==Element -> Acc++[Other]; A=/=Element -> Acc++[A] end end, [], L).

% [1,2,3,4,5] = [5,4,3,2,1]
reverseElements(L) -> lists:foldr(fun(A,Acc)-> Acc++[A] end, [], L).

% jak chce sie uzyć when -> trzeba zrobic zawsze (_,Acc) ->
% robimy warunek when, a potem (_,Acc), czyli co jeśli warunek się nie spełni

% NA PODSTAWIE TEGO MOŻNA ZROBIĆ RÓWNIEŻ -> ZWRÓĆ WSZYSTKIE MNIEJSZE/WIĘKSZE OD WSZYSTKIE, NIE MAJĄ ITP
retAllNumbersBiggerThan(L,X) -> lists:foldl(fun(A,Acc) when A > X -> Acc++[A]; (_,Acc)->Acc end, [], L).

% zamiana ujemnych na zero
changeNegativeToZero(L) -> lists:foldl(fun(A,Acc) when A >= 0 -> Acc++[A]; (_,Acc)->Acc++[0] end,[],L).

% posortuj rosnąco (jakiś tam sort)
sort(Element,[])->[Element];
sort(Element, [H|T]) -> if Element >= H -> [Element,H|T]; Element < H -> [H|sort(Element,T)] end.
mySort(L) -> lists:foldl( fun(A,Acc) -> sort(A,Acc) end,[],L).