Averages/Median: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,310: / Line 1,310: @@
 qs_median([P|Tail], TargetPos, P, up) when TargetPos /= 1 ->
     qs_median(Tail, TargetPos - 1, P, up);
-qs_median([P|Tail], TargetPos, P, {down, Len}) when Len /= TargetPos ->
-    qs_median(Tail, TargetPos, P, {down, Len-1});
 qs_median([P|Tail], TargetPos, _, _) ->
     Smaller = [X || X <- Tail, X < P],
@@ Line 1,324: / Line 1,322: @@
                 false ->
                     case (LS + 0.5) == TargetPos of
-                        true -> (P + qs_median(Smaller,TargetPos - 0.5, P,{down, LS}))/2;
+                        true -> (P + qs_median(Smaller,TargetPos - 0.5, P,undefined))/2;
                         false ->
                             case LS + 1 > TargetPos of
-                                true -> qs_median(Smaller,TargetPos, P, {down, LS});
+                                true -> qs_median(Smaller,TargetPos, P, undefined);
                                 false ->
                                     Larger = [X || X <- Tail, X >= P],