math.polynomials: use <repetition> instead of <array>
parent
a4d80eb27b
commit
4ee5815843
|
@ -16,7 +16,7 @@ IN: math.polynomials
|
||||||
PRIVATE>
|
PRIVATE>
|
||||||
|
|
||||||
: powers ( n x -- seq )
|
: powers ( n x -- seq )
|
||||||
<array> 1 [ * ] accumulate nip ;
|
<repetition> 1 [ * ] accumulate nip ;
|
||||||
|
|
||||||
: p= ( p q -- ? ) pextend = ;
|
: p= ( p q -- ? ) pextend = ;
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue