math.statistics: [-] Golfed.

2013-06-17 07:36:55 -07:00 · 2013-06-17 07:36:55 -07:00 · d3df35102a
parent 77abc31e3b
commit d3df35102a
1 changed files with 1 additions and 1 deletions
--- a/basis/math/statistics/statistics.factor
+++ b/basis/math/statistics/statistics.factor
@ -158,7 +158,7 @@ PRIVATE>
 ! could subtract 1 from a

 : quantile-x ( a b N q -- x )
-    [ + ] dip * + 1 - 0 max ; inline
+    [ + ] dip * + 1 [-] ; inline

 ! 2+1/4 frac is 1/4
 : frac ( x -- x' )