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

math.extras: add fill-nans.

db4
John Benediktsson 2013-05-01 21:22:27 -07:00
parent 1bf876fc06
commit 842a69c099
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -152,6 +152,11 @@ PRIVATE>
: nan-max ( seq -- n ) : nan-max ( seq -- n )
[ fp-nan? not ] filter supremum ; [ fp-nan? not ] filter supremum ;
: fill-nans ( seq -- newseq )
[ first ] keep [
dup fp-nan? [ drop dup ] [ nip dup ] if
] map nip ;
: sinc ( x -- y ) : sinc ( x -- y )
[ 1 ] [ pi * [ sin ] [ / ] bi ] if-zero ; [ 1 ] [ pi * [ sin ] [ / ] bi ] if-zero ;