math.polynomials: unclip drop => rest

db4
Joe Groff 2010-07-05 20:40:53 -07:00
parent 4608e955bc
commit 8323d7c3ac
1 changed files with 1 additions and 1 deletions

View File

@ -88,7 +88,7 @@ PRIVATE>
[ V{ 0 } clone V{ 1 } clone ] 2dip swap (pgcd) [ >array ] bi@ ;
: pdiff ( p -- p' )
dup length iota v* unclip drop ;
dup length iota v* rest ;
: polyval ( x p -- p[x] )
[ length swap powers ] [ nip ] 2bi v. ;