Oh well, apparently there are no min/max BIFs in Erlang. Here’s my version, giving back the smallest/largest integer in a lit:

-module(minmax).
-compile(export_all).

max(X)-> max(X,[]).
min(X)-> min(X,[]).

max([H|T],[]) -> max(T,H);
max([],Acc) -> Acc;
max([H|T],Acc) ->
  case (H>Acc) of
    true -> max(T,H);
    false -> max(T,Acc)
  end.

min([H|T],[]) -> min(T,H);
min([],Acc) -> Acc;
min([H|T],Acc) ->
  case (H<Acc ) of
    true -> min(T,H);
    false -> min(T,Acc)
  end.

Erlang

This entry was posted on Wednesday, June 14th, 2006 at 7:36 pm and is filed under General. You can follow any responses to this entry through the RSS 2.0 feed. You can skip to the end and leave a response. Pinging is currently not allowed.