% usun parzyste z listy - rekurencyjnie
usun_parzyste([]) -> [];
usun_parzyste([H|T]) ->
    case H rem 2 of
        1 -> usun_parzyste(T);
        0 -> [H|usun_parzyste(T)]
    end.

% usun parzyste z listy - iteracyjnie

usun_iter(List) ->
    usun_iter(List, []).
usun_iter([], Acc) -> Acc;
usun_iter([H|T], Acc) ->
    case H rem 2 of
        1 -> usun_iter(T, Acc);
        0 -> usun_iter(T, Acc ++ [H])
    end.