steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

math.statistics: [-] Golfed.

db4
Doug Coleman 2013-06-17 07:36:55 -07:00
parent 77abc31e3b
commit d3df35102a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/math/statistics/statistics.factor
View File

@ -158,7 +158,7 @@ PRIVATE>
! could subtract 1 from a ! could subtract 1 from a
: quantile-x ( a b N q -- x ) : quantile-x ( a b N q -- x )
[ + ] dip * + 1 - 0 max ; inline [ + ] dip * + 1 [-] ; inline
! 2+1/4 frac is 1/4 ! 2+1/4 frac is 1/4
: frac ( x -- x' ) : frac ( x -- x' )