replace_max_even(List, Number) ->
    MaxEven =
        lists:foldl(
          fun(X, N) when X rem 2 =:= 0 andalso X > N ->
                  X;
             (_, N) ->
                  N
          end, 0, List),
    lists:map(fun(X) when X =:= MaxEven ->
                      Number;
                 (X) ->
                      X
              end, List).