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

math.extras: use fry for clarity.

db4
John Benediktsson 2013-04-22 16:34:00 -07:00
parent 66e3138f4b
commit 19662c976b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -96,7 +96,7 @@ PRIVATE>
<clumps> [ mean ] map ; <clumps> [ mean ] map ;
: exponential-moving-average ( seq a -- newseq ) : exponential-moving-average ( seq a -- newseq )
[ 1 ] 2dip [ [ dupd swap - ] dip * + dup ] curry map nip ; [ 1 ] 2dip '[ dupd swap - _ * + dup ] map nip ;
: moving-median ( u n -- v ) : moving-median ( u n -- v )
clump [ median ] map ; clump [ median ] map ;
@ -111,7 +111,7 @@ PRIVATE>
<clumps> [ sum ] map ; <clumps> [ sum ] map ;
: moving-count ( ... u n quot: ( ... elt -- ... ? ) -- ... v ) : moving-count ( ... u n quot: ( ... elt -- ... ? ) -- ... v )
[ <clumps> ] [ [ count ] curry map ] bi* ; inline [ <clumps> ] [ '[ _ count ] map ] bi* ; inline
: nonzero ( seq -- seq' ) : nonzero ( seq -- seq' )
[ zero? not ] filter ; [ zero? not ] filter ;