math.extras: change to <clumps> to match other moving- words.
parent
1a762e5ac5
commit
0dc6240d4d
|
@ -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 ;
|
||||||
|
|
Loading…
Reference in New Issue