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

math.extras: change moving-median to use <clumps>.

db4
John Benediktsson 2013-05-06 10:41:21 -07:00
parent 720db54f61
commit bca3ddfae8
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/math/extras/extras.factor
View File

@ -99,7 +99,7 @@ PRIVATE>
[ 1 ] 2dip '[ dupd swap - _ * + dup ] map nip ; [ 1 ] 2dip '[ dupd swap - _ * + dup ] map nip ;
: moving-median ( u n -- v ) : moving-median ( u n -- v )
clump [ median ] map ; <clumps> [ median ] map ;
: moving-supremum ( u n -- v ) : moving-supremum ( u n -- v )
<clumps> [ supremum ] map ; <clumps> [ supremum ] map ;