Exponentiation with infix operators in (or operating on) the base: Difference between revisions
Exponentiation with infix operators in (or operating on) the base (view source)
Revision as of 01:32, 3 November 2020
, 3 years agoAdd Factor
m (changed indentation of related tasks.) |
(Add Factor) |
||
Line 57:
* [[Arbitrary-precision_integers_(included)|arbitrary precision integers (include)]]
<br><br>
=={{header|Factor}}==
<lang factor>USING: arrays infix locals prettyprint sequences
sequences.generalizations sequences.repeating ;
:: row ( x p -- seq )
x p "-x**p" [infix -x**p infix]
"-(x)**p" [infix -(x)**p infix]
"(-x)**p" [infix (-x)**p infix]
"-(x**p)" [infix -(x**p) infix] 10 narray ;
"x value" "p value" 2array
{ "expression" "result" } 8 cycle append
-5 2 row
-5 3 row
5 2 row
5 3 row 5 narray simple-table.</lang>
{{out}}
<pre>
x value p value expression result expression result expression result expression result
-5 2 -x**p 25 -(x)**p 25 (-x)**p 25 -(x**p) -25
-5 3 -x**p 125 -(x)**p 125 (-x)**p 125 -(x**p) 125
5 2 -x**p 25 -(x)**p 25 (-x)**p 25 -(x**p) -25
5 3 -x**p -125 -(x)**p -125 (-x)**p -125 -(x**p) -125
</pre>
=={{header|REXX}}==
| |||