polyval* ( p -- quot )

Vocabulary

math.polynomials

Inputs

p	a literal polynomial

Outputs

None

Word description

Macro version of polyval. Evaluates the literal polynomial p at the value off the top of the stack.

Examples

USING: math.polynomials prettyprint ; 2 { 1 0 1 } polyval* .
5

See also

polyval

Definition

USING: combinators kernel math sequences ;

IN: math.polynomials

MACRO: polyval* ( p -- quot )
    reverse
    [ rest [ \ * swap \ + [ ] 3sequence ] map ]
    [ first \ drop swap [ ] 2sequence ] bi prefix \ cleave
    [ ] 2sequence ;