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

math.statistics: empty-sequence is silly.

db4
John Benediktsson 2012-09-26 17:09:23 -07:00
parent c5c74aa59c
commit 13f101bd2b
1 changed files with 1 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -240,14 +240,8 @@ PRIVATE>
histogram >alist histogram >alist
[ ] [ [ [ second ] bi@ > ] most ] map-reduce first ; [ ] [ [ [ second ] bi@ > ] most ] map-reduce first ;
ERROR: empty-sequence ;
: minmax ( seq -- min max ) : minmax ( seq -- min max )
[ [ first dup ] keep [ [ min ] [ max ] bi-curry bi* ] each ;
empty-sequence
] [
[ first dup ] keep [ [ min ] [ max ] bi-curry bi* ] each
] if-empty ;
: range ( seq -- x ) : range ( seq -- x )
minmax swap - ; minmax swap - ;