Erlang和C实现O(n)复杂度求中位数

方法类似于快速排序，只是它只处理单侧的情况。
Erlang：这里对于奇数和偶数都是求下中位数

find_median([])  ->error;
find_median(A) ->find_median(A,(len(A)+1) div 2).


find_median([H|T],Idx)  ->Len=len([X||X<-T,X<H]),
                            if Len =:= Idx-1  ->[H];

                               Len  >  Idx-1  ->find_median([X||X<-T,X<H],Idx);

                               Len  <  Idx-1  ->find_median([X||X<-T,X>H],Idx-Len-1)

                            end.
len([]) ->0;
len([_H|T]) ->1+length(T).

c语言版本明天再写…