math.statistics: use if-zero in mean-ddof.

db4
John Benediktsson 2014-06-10 13:06:42 -07:00
parent 7b44637177
commit 8a2028d2c6
1 changed files with 1 additions and 1 deletions

View File

@ -12,7 +12,7 @@ IN: math.statistics
! Delta in degrees-of-freedom
: mean-ddof ( seq ddof -- x )
[ [ sum ] [ length ] bi ] dip -
dup zero? [ 2drop 0 ] [ / ] if ; inline
[ drop 0 ] [ / ] if-zero ; inline
: mean ( seq -- x )
0 mean-ddof ; inline