assignment1.erl

-module(assignment1).
-export([maximum/1,median/1]).

maximum([X|Xs]) ->
    maximum(Xs, X).
maximum([], Max) ->
    Max;
maximum([X|Xs], Max) ->
    maximum(Xs, max(X, Max)).

removeLast([X,_Y]) ->
    [X];
removeLast([X|Xs]) ->
    [X|removeLast(Xs)].

median([X]) ->
    X;
median([X,Y]) ->
    (X + Y) / 2;
median([_X|Xs]) ->
    median(removeLast(Xs)).