Polynomial with real coefficients —> array w/ real coeff

[Gil]

Very nice indeed.

Thanks.

Perhaps we could simplify your tests by a single one as follows:
« 0 { } —> N L
« DUP DEGREE 'N' STO N 1 <
IF
THEN 1 —>LIST
ELSE 0 N 1 -
START 0 HORNER 'L' STO+ DROP
NEXT L +
END AXL
»
»

And to have your program work without being asked if we want to go to real, add the following 3 instructions
-105 SF for real, PUSH to save the initial flags and POP to restore the initial flags:

« PUSH -105 SF 0 { } —> N L
« DUP DEGREE 'N' STO N 1 <
IF
THEN 1 —>LIST
ELSE 0 N 1 -
START 0 HORNER 'L' STO+ DROP
NEXT L +
END AXL POP
»
»