Exponentiation order: Difference between revisions
m
→{{header|Wren}}: Changed to Wren S/H
Drkameleon (talk | contribs) (Added Arturo implementation) |
m (→{{header|Wren}}: Changed to Wren S/H) |
||
(21 intermediate revisions by 13 users not shown) | |||
Line 34:
=={{header|11l}}==
<
print((5 ^ 3) ^ 2)
print(5 ^ (3 ^ 2))</
{{out}}
<pre>
Line 47:
There is no power operator in Action! Power function for REAL type is used. But the precision is insufficient.
{{libheader|Action! Tool Kit}}
<
PROC Main()
Line 70:
Print("5^(3^2)=")
PrintRE(tmp2)
RETURN</
{{out}}
[https://gitlab.com/amarok8bit/action-rosetta-code/-/raw/master/images/Exponentiation_order.png Screenshot from Atari 8-bit computer]
Line 84:
5**3**2 is not a valid Ada expression. Parenthesis are mandatory.
<
procedure Exponentation_Order is
Line 92:
Put_Line ("(5**3)**2 : " & Natural'((5**3)**2)'Image);
Put_Line ("5**(3**2) : " & Natural'(5**(3**2))'Image);
end Exponentation_Order;</
{{out}}
Line 100:
=={{header|ALGOL 68}}==
Algol 68 provides various alternative symbols for the exponentiation operator generally, "**", "^" and "UP" can be used.
<
print( ( "(5**3)**2: ", (5**3)**2, newline ) );
print( ( "5**(3**2): ", 5**(3**2), newline ) )</
{{out}}
<pre>
Line 108:
(5**3)**2: +15625
5**(3**2): +1953125
</pre>
=={{header|ALGOL-M}}==
The eponentiation operator ** in ALGOL-M works only on integer operands.
<syntaxhighlight lang = "ALGOL">
begin
write("5**3**2 = ", 5**3**2);
write("(5**3)**2 = ", (5**3)**2);
write("5**(3**2) = ", 5**(3**2));
end
</syntaxhighlight>
{{out}}
The third expression results in a value that exceeds the maximum integer value of 16383. Sadly, ALGOL-M emits no warning or error message when this occurs but simply gives the wrong answer.
<pre>
5**3**2 = 15625
(5**3)**2 = 15625
5**(3**2) = -12955
</pre>
=={{header|ALGOL W}}==
The Algol W exponentiation operator always produces a real result and requires an integer right operand, hence the round functions in the following.
<
write( "5**3**2: ", round( 5 ** 3 ** 2 ) );
write( "(5**3)**2: ", round( ( 5 ** 3 ) ** 2 ) );
write( "5**(3**2): ", round( 5 ** round( 3 ** 2 ) ) )
end.</
{{out}}
<pre>
Line 139 ⟶ 158:
AppleScript's compiler inserts its own parentheses with 5 ^ 3 ^ 2.
<
set r2 to (5 ^ 3) ^ 2
set r3 to 5 ^ (3 ^ 2)
Line 145 ⟶ 164:
return "5 ^ 3 ^ 2 = " & r1 & "
(5 ^ 3) ^ 2 = " & r2 & "
5 ^ (3 ^ 2) = " & r3</
{{output}}
Line 154 ⟶ 173:
=={{header|Arturo}}==
<
print (5^3)^2
print 5^(3^2)</
{{out}}
Line 165 ⟶ 184:
=={{header|AWK}}==
<syntaxhighlight lang="awk">
# syntax: GAWK -f EXPONENTIATION_ORDER.AWK
BEGIN {
Line 173 ⟶ 192:
exit(0)
}
</syntaxhighlight>
<p>output:</p>
<pre>
Line 182 ⟶ 201:
=={{header|BASIC}}==
==={{header|
<syntaxhighlight lang="gwbasic">?"5^3^2 = "5 ^ 3 ^ 2 CHR$ (13)"(5^3)^2 = "(5 ^ 3) ^ 2 CHR$ (13)"5^(3^2) = "5 ^ (3 ^ 2);</syntaxhighlight>
{{out}}
<pre>5
(5
5
==={{header|BASIC256}}===
{{works with|QBasic}}
{{works with|FreeBASIC}}
{{works with|True BASIC}}
{{works with|Run BASIC}}
<syntaxhighlight lang="freebasic">print "5^3^2 = "; 5^3^2
print "(5^3)^2 = "; (5^3)^2
print "5^(3^2) = "; 5^(3^2)
end</syntaxhighlight>
{{out}}
<pre>5^3^2 = 15625
(5^3)^2 = 15625
5^(3^2) = 1953125</pre>
==={{header|BBC BASIC}}===
<
PRINT "(5^3)^2 = "; (5^3)^2
PRINT "5^(3^2) = "; 5^(3^2)</
{{out}}
<pre>5^3^2 = 15625
(5^3)^2 = 15625
5^(3^2) = 1953125</pre>
==={{header|Chipmunk Basic}}===
{{works with|Chipmunk Basic|3.6.4}}
<syntaxhighlight lang="qbasic">10 print "5^3^2 = "5^3^2
20 print "(5^3)^2 = "(5^3)^2
30 print "5^(3^2) = "5^(3^2)</syntaxhighlight>
{{out}}
<pre>5^3^2 = 15625
(5^3)^2 = 15625
5^(3^2) = 1953125</pre>
==={{header|GW-BASIC}}===
{{works with|Applesoft BASIC}}
{{works with|Chipmunk Basic}}
{{works with|MSX_BASIC}}
{{works with|PC-BASIC|any}}
{{works with|QBasic}}
<syntaxhighlight lang="qbasic">10 PRINT "5^3^2 =" 5^3^2
20 PRINT "(5^3)^2 =" (5^3)^2
30 PRINT "5^(3^2) =" 5^(3^2)</syntaxhighlight>
{{out}}
<pre>5^3^2 = 15625
Line 201 ⟶ 255:
==={{header|IS-BASIC}}===
<
110 PRINT "(5^3)^2 =";(5^3)^2
120 PRINT "5^(3^2) =";5^(3^2)</
{{out}}
<pre>5^3^2 = 15625
(5^3)^2 = 15625
5^(3^2) = 1953125</pre>
==={{header|MSX Basic}}===
<syntaxhighlight lang="qbasic">10 PRINT "5^3^2 =" 5^3^2
20 PRINT "(5^3)^2 =" (5^3)^2
30 PRINT "5^(3^2) =" 5^(3^2)</syntaxhighlight>
{{out}}
<pre>5^3^2 = 15625
(5^3)^2 = 15625
5^(3^2) = 1953125</pre>
==={{header|PureBasic}}===
In the PureBasic it is impossible to show the result of: 5^3^2
<syntaxhighlight lang="vb">OpenConsole()
PrintN("(5^3)^2 = " + Str(Pow(Pow(5, 3), 2)))
PrintN("5^(3^2) = " + Str(Pow(5, (Pow(3, 2)))))
CloseConsole()</syntaxhighlight>
{{out}}
<pre>(5^3)^2 = 15625
5^(3^2) = 1953125</pre>
==={{header|QBasic}}===
{{works with|QBasic|1.1}}
{{works with|QuickBasic|4.5}}
{{works with|FreeBASIC}}
{{works with|True BASIC}}
{{works with|BASIC256}}
{{works with|Run BASIC}}
<syntaxhighlight lang="qbasic">PRINT "5^3^2 ="; 5^3^2
PRINT "(5^3)^2 ="; (5^3)^2
PRINT "5^(3^2) ="; 5^(3^2)
END</syntaxhighlight>
{{out}}
<pre>5^3^2 = 15625
(5^3)^2 = 15625
5^(3^2) = 1953125</pre>
==={{header|Run BASIC}}===
{{works with|QBasic}}
{{works with|FreeBASIC}}
{{works with|True BASIC}}
{{works with|BASIC256}}
<syntaxhighlight lang="freebasic">print "5^3^2 = "; 5^3^2
print "(5^3)^2 = "; (5^3)^2
print "5^(3^2) = "; 5^(3^2)
end</syntaxhighlight>
{{out}}
<pre>5^3^2 = 15625
(5^3)^2 = 15625
5^(3^2) = 1953125</pre>
==={{header|True BASIC}}===
{{works with|QBasic}}
{{works with|FreeBASIC}}
{{works with|BASIC256}}
{{works with|Run BASIC}}
<syntaxhighlight lang="qbasic">PRINT "5^3^2 ="; 5^3^2
PRINT "(5^3)^2 ="; (5^3)^2
PRINT "5^(3^2) ="; 5^(3^2)
END</syntaxhighlight>
{{out}}
<pre>5^3^2 = 15625
(5^3)^2 = 15625
5^(3^2) = 1953125</pre>
==={{header|XBasic}}===
{{works with|Windows XBasic}}
<syntaxhighlight lang="qbasic">PROGRAM "Exponentiation order"
VERSION "0.0000"
DECLARE FUNCTION Entry ()
FUNCTION Entry ()
PRINT "5^3^2 ="; 5**3**2
PRINT "(5^3)^2 ="; (5**3)**2
PRINT "5^(3^2) ="; 5**(3**2)
END FUNCTION
END PROGRAM</syntaxhighlight>
{{out}}
<pre>5^3^2 = 15625
(5^3)^2 = 15625
5^(3^2) = 1953125</pre>
==={{header|Yabasic}}===
{{works with|QBasic}}
{{works with|FreeBASIC}}
{{works with|True BASIC}}
{{works with|BASIC256}}
<syntaxhighlight lang="freebasic">print "5^3^2 = ", 5^3^2
print "(5^3)^2 = ", (5^3)^2
print "5^(3^2) = ", 5^(3^2)
end</syntaxhighlight>
{{out}}
<pre>5^3^2 = 15625
(5^3)^2 = 15625
5^(3^2) = 1953125</pre>
==={{header|Sinclair ZX81 BASIC}}===
<syntaxhighlight lang="basic">10 PRINT "5**3**2 = ";5**3**2
20 PRINT "(5**3)**2 = ";(5**3)**2
30 PRINT "5**(3**2) = ";5**(3**2)</syntaxhighlight>
{{out}}
<pre>5**3**2 = 15625
(5**3)**2 = 15625
5**(3**2) = 1953125</pre>
=={{header|Bracmat}}==
<
{{out}}
<pre>5^3^2: 1953125
Line 219 ⟶ 377:
C does not have an exponentiation operator. The caret operator '^' performs xor bitwise operation in C. The function pow in the standard C Math library takes two arguments.
<
#include<math.h>
Line 228 ⟶ 386:
return 0;
}</
{{out}}
Line 237 ⟶ 395:
=={{header|C++}}==
<
#include <cmath>
Line 245 ⟶ 403:
return EXIT_SUCCESS;
}</
With permissive flag:
<
#include <cmath>
Line 260 ⟶ 418:
return EXIT_SUCCESS;
}</
{{out}}
Line 269 ⟶ 427:
=={{header|C sharp|C#}}==
<
namespace exponents
Line 289 ⟶ 447:
}
}
</syntaxhighlight>
{{out}}
<pre>
Line 299 ⟶ 457:
Clojure uses prefix notation and expt only takes 2 arguments for exponentiation, so "5**3**2" isn't represented.
<
;; (5**3)**2
(expt (expt 5 3) 2) ; => 15625
Line 311 ⟶ 469:
;; 5**(3**2) alternative: evaluating right-to-left with reduce requires a small modification
(defn rreduce [f coll] (reduce #(f %2 %) (reverse coll)))
(rreduce expt [5 3 2]) ; => 1953125</
=={{header|CLU}}==
<
po: stream := stream$primary_output()
Line 320 ⟶ 478:
stream$putl(po, "(5**3)**2 = " || int$unparse((5**3)**2))
stream$putl(po, "5**(3**2) = " || int$unparse(5**(3**2)))
end start_up</
{{out}}
<pre>5**3**2 = 1953125
Line 328 ⟶ 486:
=={{header|Common Lisp}}==
Because Common Lisp uses prefix notation and <code>expt</code> accepts only two arguments, it doesn't have an expression for <code>5**3**2</code>. Just showing expressions for the latter two.
<
(expt 5 (expt 3 2))</
{{out}}
<pre>15625
Line 335 ⟶ 493:
=={{header|D}}==
<
import std.stdio, std.math, std.algorithm;
Line 342 ⟶ 500:
writefln("5 ^^ (3 ^^ 2) = %7d", 5 ^^ (3 ^^ 2));
writefln("[5, 3, 2].reduce!pow = %7d", [5, 3, 2].reduce!pow);
}</
{{out}}
<pre>5 ^^ 3 ^^ 2 = 1953125
Line 348 ⟶ 506:
5 ^^ (3 ^^ 2) = 1953125
[5, 3, 2].reduce!pow = 15625</pre>
=={{header|Delphi}}==
{{works with|Delphi|6.0}}
{{libheader|Math,SysUtils,StdCtrls}}
Delphi doesn't have exponentiation but it does have the "Power" function in the math library
<syntaxhighlight lang="Delphi">
procedure ExponentDemo(Memo: TMemo);
begin
Memo.Lines.Add('5^3^2 = '+FloatToStrF(Power(5,Power(3,2)),ffNumber,18,0));
Memo.Lines.Add('(5^3)^2 = '+FloatToStrF(Power(Power(5,3),2),ffNumber,18,0));
Memo.Lines.Add('5^(3^2) = '+FloatToStrF(Power(5,Power(3,2)),ffNumber,18,0));
end;
</syntaxhighlight>
{{out}}
<pre>
5^3^2 = 1,953,125
(5^3)^2 = 15,625
5^(3^2) = 1,953,125
</pre>
=={{header|Dart}}==
<syntaxhighlight lang="dart">import 'dart:math' show pow;
void main() {
print('(5 ^ 3) ^ 2 = ${pow(pow(5, 3), 2)}');
print('5 ^ (3 ^ 2) = ${pow(5, (pow(3, 2)))}');
}</syntaxhighlight>
{{out}}
<pre>(5 ^ 3) ^ 2 = 15625
5 ^ (3 ^ 2) = 1953125</pre>
=={{header|EasyLang}}==
<syntaxhighlight>
print "(5 ^ 3) ^ 2 = " & pow (pow 5 3) 2
print "5 ^ (3 ^ 2) = " & pow 5 pow 3 2
</syntaxhighlight>
=={{header|EchoLisp}}==
<
;; the standard and secure way is to use the (expt a b) function
(expt 5 (expt 3 2)) ;; 5 ** ( 3 ** 2)
Line 367 ⟶ 565:
(5 ** (3 ** 2))
→ 1953125
</syntaxhighlight>
=={{header|Factor}}==
Factor is a stack language where expressions take the form of reverse Polish notation, so there is no ambiguity here. It is up to you, the programmer, to perform operations in the order you intend.
<
5 3 2 ^ ^
Line 377 ⟶ 575:
5 3 ^ 2 ^
"5 3 ^ 2 ^ %d\n" printf</
{{out}}
<pre>
Line 386 ⟶ 584:
Factor also has syntax for infix arithmetic via the the <code>infix</code> vocabulary.
<
[infix 5**3**2 infix]
Line 395 ⟶ 593:
[infix 5**(3**2) infix]
"5**(3**2) = %d\n" printf</
{{out}}
<pre>
Line 404 ⟶ 602:
=={{header|Fortran}}==
<
write(*, "(a, i0)") "(5**3)**2 = ", (5**3)**2
write(*, "(a, i0)") "5**(3**2) = ", 5**(3**2)</
{{out}}
<pre>5**3**2 = 1953125
Line 413 ⟶ 611:
=={{header|FreeBASIC}}==
<
' The exponentation operator in FB is ^ rather than **.
Line 423 ⟶ 621:
Print "(5^3)^2 =>"; (5^3)^2
Print "5^(3^2) =>"; 5^(3^2)
Sleep</
{{out}}
Line 435 ⟶ 633:
Frink correctly follows standard mathematical notation that exponent towers are performed from "top to bottom" or "right to left."
<
println["(5^3)^2 = " + (5^3)^2]
println["5^(3^2) = " + 5^(3^2)]
</syntaxhighlight>
{{out}}
Line 445 ⟶ 643:
(5^3)^2 = 15625
5^(3^2) = 1953125
</pre>
=={{header|FutureBasic}}==
FB is translated into C which does not have an exponentiation operator. The caret operator '^' performs xor bitwise operation. FB also has an fn pow function, translated from the the standard C Math library, which takes two arguments.
<syntaxhighlight lang="futurebasic">
print "(5^3)^2 = "; (5^3)^2
print "5^(3^2) = "; 5^(3^2)
print
print "fn pow( fn pow(5,3), 2 ) = "; fn pow( fn pow(5,3), 2 )
print "fn pow( 5, fn pow(3,2 ) ) = "; fn pow( 5, fn pow(3,2 ) )
HandleEvents
</syntaxhighlight>
{{output}}
<pre>
(5^3)^2 = 15625
5^(3^2) = 1953125
fn pow( fn pow(5,3), 2 ) = 15625
fn pow( 5, fn pow(3,2 ) ) = 1953125
</pre>
=={{header|Go}}==
<
import "fmt"
Line 461 ⟶ 679:
fmt.Printf("(5^3)^2 = %.0f\n", b)
fmt.Printf("5^(3^2) = %.0f\n", c)
}</
{{out}}
Line 473 ⟶ 691:
Solution:
<
println("(5 ** 3)** 2 == " + (5**3)**2)
println(" 5 **(3 ** 2)== " + 5**(3**2))</
Output:
Line 536 ⟶ 754:
J uses the same evaluation order for exponentiation as it does for assignment. That is to say: the bottom up view is right-to-left and the top-down view is left-to-right.
<
1.95312e6
(5^3)^2
15625
5^(3^2)
1.95312e6</
----
Line 553 ⟶ 771:
jq's built-in for exponentiation is an arity-two function and thus no ambiguity arising from infix-notation is possible. Here's an example:
<
15625</
For chaining, one could use `reduce`:
<
[5,3,2] | pow</
Result: 15625
Line 567 ⟶ 785:
{{works with|Julia|0.6}}
<
@show (5 ^ 3) ^ 2
@show 5 ^ (3 ^ 2)
@show reduce(^, [5, 3, 2])
@show foldl(^, [5, 3, 2]) # guarantees left associativity
@show foldr(^, [5, 3, 2]) # guarantees right associativity</
{{out}}
Line 584 ⟶ 802:
=={{header|Kotlin}}==
Kotlin does not have a dedicated exponentiation operator and we would normally use Java's Math.pow function instead. However, it's possible to define an infix function which would look like an operator and here we do so for integer base and exponent. For simplicity we disallow negative exponents altogether and consider 0 ** 0 == 1. Associativity would, of course, be the same as for a normal function call.
<
infix fun Int.ipow(exp: Int): Int = when {
Line 606 ⟶ 824:
println("(5**3)**2 = ${(5 ipow 3) ipow 2}")
println("5**(3**2) = ${5 ipow (3 ipow 2)}")
}</
{{out}}
Line 619 ⟶ 837:
Because lambdatalk uses prefix notation and {pow a b} accepts only two arguments, it doesn't have an expression for 5**3**2. Just showing expressions for the latter two.
<
'{pow {pow 5 3} 2}
-> {pow {pow 5 3} 2}
'{pow 5 {pow 3 2}}
-> {pow 5 {pow 3 2}}
</syntaxhighlight>
=={{header|langur}}==
<syntaxhighlight lang="langur">writeln " 5^3^2: ", 5^3^2
writeln "(5^3)^2: ", (5^3)^2
writeln "5^(3^2): ", 5^(3^2)
</syntaxhighlight>
{{out}}
<pre> 5^3^2: 1953125
(5^3)^2: 15625
5^(3^2): 1953125
</pre>
=={{header|Latitude}}==
<
(5 ^ 3) ^ 2. ;; 15625
5 ^ (3 ^ 2). ;; 1953125</
=={{header|Lua}}==
<
print("(5^3)^2 = " .. (5^3)^2)
print("5^(3^2) = " .. 5^(3^2))</
{{out}}
<pre>5^3^2 = 1953125
Line 642 ⟶ 872:
=={{header|Maple}}==
<
(5^3)^2;
5^(3^2);</
{{Out|Output}}
<pre>Error, ambiguous use of `^`, please use parentheses
Line 651 ⟶ 881:
=={{header|Mathematica}} / {{header|Wolfram Language}}==
<
Print[a <> " = " <> ToString[ToExpression[a]]]
b = "(5^3)^2";
Print[b <> " = " <> ToString[ToExpression[b]]]
c = "5^(3^2)";
Print[c <> " = " <> ToString[ToExpression[c]]]</
{{out}}
<pre>5^3^2 = 1953125
Line 665 ⟶ 895:
As with other postfix languages, there is no ambiguity because all operators have the same precedence.
{{works with|min|0.19.6}}
<
"5 3 2 ^ ^ " print! puts!
5 3 pow 2 pow
"5 3 ^ 2 ^ " print! puts!</
{{out}}
<pre>
5 3 2 ^ ^ 1953125.0
5 3 ^ 2 ^ 15625.0
</pre>
=={{header|MiniScript}}==
REPL output.
{{out}}
<pre>
]5^3^2
15625
](5^3)^2
15625
]5^(3^2)
1953125
</pre>
=={{header|Nanoquery}}==
Nanoquery uses the '^' operator, which performs exponentiation in order like multiplication. Parenthesis are often needed to perform operations like 5^3^2 correctly.
<
15625
% println (5^3)^2
15625
% println 5^(3^2)
1953125</
=={{header|Nim}}==
<
echo "5^3^2 = ", 5^3^2
Line 692 ⟶ 934:
echo "5^(3^2) = ", 5^(3^2)
echo "foldl([5, 3, 2], a^b) = ", foldl([5, 3, 2], a^b)
echo "foldr([5, 3, 2], a^b) = ", foldr([5, 3, 2], a^b)</
{{out}}
Line 703 ⟶ 945:
=={{header|OCaml}}==
OCaml language has '**' as an exponentiation symbol for floating point integers
<syntaxhighlight lang="ocaml">
# 5. ** 3. ** 2. ;;
# 5. **( 3. ** 2.) ;;
#(5. ** 3. ) **2. ;;
</syntaxhighlight>
{{out}}
<pre>
Line 718 ⟶ 960:
=={{header|PARI/GP}}==
Exponentiation is right-associative in GP.
<
apply(f, ["5^3^2", "(5^3)^2", "5^(3^2)"]);</
{{out}}
<pre>5^3^2 = 1953125
Line 726 ⟶ 968:
=={{header|Perl}}==
<
{{out}}
<pre>
Line 737 ⟶ 979:
{{libheader|Phix/basics}}
Phix has a power function rather than an infix power operator, hence there is no possible confusion.
<!--<
<span style="color: #0000FF;">?<span style="color: #7060A8;">power<span style="color: #0000FF;">(<span style="color: #7060A8;">power<span style="color: #0000FF;">(<span style="color: #000000;">5<span style="color: #0000FF;">,<span style="color: #000000;">3<span style="color: #0000FF;">)<span style="color: #0000FF;">,<span style="color: #000000;">2<span style="color: #0000FF;">)</span>
<span style="color: #0000FF;">?<span style="color: #7060A8;">power<span style="color: #0000FF;">(<span style="color: #000000;">5<span style="color: #0000FF;">,<span style="color: #7060A8;">power<span style="color: #0000FF;">(<span style="color: #000000;">3<span style="color: #0000FF;">,<span style="color: #000000;">2<span style="color: #0000FF;">)<span style="color: #0000FF;">)
<!--</
{{out}}
<pre>
15625
1953125
</pre>
=={{header|Picat}}==
<syntaxhighlight lang="picat">main =>
X = 5**3**2, Y = (5**3)**2, Z = 5**(3**2),
print("5**3**2 = "), println(X),
print("(5**3)**2 = "), println(Y),
print("5**(3**2) = "), print(Z).
</syntaxhighlight>
{{out}}
<pre>
5**3**2 = 1953125
(5**3)**2 = 15625
5**(3**2) = 1953125
</pre>
=={{header|PicoLisp}}==
The PicoLisp '**' exponentiation function takes 2 arguments
<
-> 15625
: (** 5 (** 3 2))
-> 1953125</
=={{header|PL/I}}==
<
put skip edit('5**3**2 = ', 5**3**2) (A,F(7));
put skip edit('(5**3)**2 = ', (5**3)**2) (A,F(7));
put skip edit('5**(3**2) = ', 5**(3**2)) (A,F(7));
end exponentiation;</
{{out}}
<pre>5**3**2 = 15625
Line 767 ⟶ 1,025:
=={{header|Python}}==
<
1953125
>>> (5**3)**2
Line 779 ⟶ 1,037:
>>> reduce(pow, (5, 3, 2))
15625
>>> </
=={{header|Quackery}}==
Line 802 ⟶ 1,060:
It turns out that the parser is so blind to "**" that we cannot even quote it. The following are identical:
<
print(quote(5^3))</
Another method is to use "^" as if it is an ordinary function of two arguments. It appears that "**" does not support this. As there is no potential for ambiguity in the operator precedence, we will not print this result below. For example:
<
is clearly (5^3)^2 i.e. 15625, whereas
<
is clearly 5^(3^2) i.e. 1953125.
As for actually solving the task, the requirement that each output be on a new line causes us a surprising amount of difficulty. To avoid repeating ourselves, we must almost resort to metaprogramming:
<
invisible(sapply(inputs, function(x) cat(deparse(x), "returns: ", eval(x), "\n")))</
Alternatively, we could print out a matrix or data frame:
<
print(data.frame(Inputs = sapply(inputs, deparse), Outputs = sapply(inputs, eval))))</
{{out}}
<pre>> print(quote(5**3))
Line 848 ⟶ 1,106:
=={{header|Racket}}==
<
;; 5**3**2 depends on associativity of ** : Racket's (scheme's) prefix function
;; calling syntax only allows for pairs of arguments for expt.
Line 869 ⟶ 1,127:
(require (only-in srfi/1 reduce reduce-right))
(reduce expt 1 '(5 3 2))
(reduce-right expt 1 '(5 3 2))</
{{out}}
<pre>prefix
Line 887 ⟶ 1,145:
Note that the reduction forms automatically go right-to-left because the base operator is right-associative. Most other operators are left-associative and would automatically reduce left-to-right instead.
<syntaxhighlight lang="raku"
sub demo($x) { say " $x\t───► ", EVAL $x }
Line 901 ⟶ 1,159:
demo '(5³)²';
demo '5³²';
</syntaxhighlight>
{{out}}
Line 918 ⟶ 1,176:
=={{header|Red}}==
In Red, operators simply evaluate left to right. As this differs from mathematical order of operations, Red provides the <code>math</code> function which evaluates a block using math rules instead of Red's default evaluation. One could also use the <code>power</code> function, sidestepping the issue of evaluation order entirely. All three approaches are shown.
<
exprs: [
Line 933 ⟶ 1,191:
print [mold/only expr "=" math expr "using math"]
]
]</
{{out}}
<pre>
Line 947 ⟶ 1,205:
=={{header|REXX}}==
<
/*┌────────────────────────────────────────────────────────────────────┐
│ The REXX language uses ** for exponentiation. │
Line 957 ⟶ 1,215:
say ' (5**3)**2 ───► ' (5**3)**2
say ' 5**(3**2) ───► ' 5**(3**2)
/*stick a fork in it, we're done.*/</
'''output'''
<pre>
Line 969 ⟶ 1,227:
In the Ring it is impossible to show the result of: 5^3^2
<
see "(5^3)^2 =>" + pow(pow(5,3),2) + nl
see "5^(3^2) =>" + pow(5,pow(3,2)) + nl
</syntaxhighlight>
Output:
<pre>
(5^3)^2 =>15625
5^(3^2) =>1953125
</pre>
=={{header|RPL}}==
When using reverse Polish notation, there is no parenthesis: the user must decide the exponentiation order.
When using algebraic notation:
'5^3^2' →NUM
'(5^3)^2' →NUM
'5^(3^2)' →NUM
{{out}}
<pre>
3: 15625
2: 15625
1: 1953125
</pre>
=={{header|Ruby}}==
<
ar.each{|exp| puts "#{exp}:\t#{eval exp}"}
</syntaxhighlight>
{{out}}
<pre>
Line 993 ⟶ 1,264:
=={{header|Rust}}==
<
println!("5**3**2 = {:7}", 5u32.pow(3).pow(2));
println!("(5**3)**2 = {:7}", (5u32.pow(3)).pow(2));
println!("5**(3**2) = {:7}", 5u32.pow(3u32.pow(2)));
}</
{{out}}
<pre>
Line 1,003 ⟶ 1,274:
(5**3)**2 = 15625
5**(3**2) = 1953125
</pre>
=={{header|S-BASIC}}==
The exponentiation operator ^ works on both integer and real operands. Numeric constants in expressions are taken to be of type real, which is useful here, because the third result exceeds S-BASIC's manximum integer value of 32767.
<syntaxhighlight lang = "BASIC">
print "5^3^2 : "; 5 ^ 3 ^ 2
print "(5^3)^2 : "; (5 ^ 3) ^ 2
print "5^(3^2) : "; 5 ^ (3 ^ 2)
end
</syntaxhighlight>
{{out}}
<pre>
5^3^2 : 15625
(5^3)^2 : 15625
5^(3^2) : 1.95312E+6
</pre>
Line 1,009 ⟶ 1,296:
=={{header|Seed7}}==
<
const proc: main is func
Line 1,016 ⟶ 1,303:
writeln("(5**3)**2 = " <& (5**3)**2);
writeln("5**(3**2) = " <& 5**(3**2));
end func;</
{{out}}
Line 1,027 ⟶ 1,314:
=={{header|Sidef}}==
In Sidef, the whitespace between the operands and the operator controls the precedence of the operation.
<
'5**3**2',
'(5**3)**2',
Line 1,039 ⟶ 1,326:
a.each {|e|
"%-12s == %s\n".printf(e, eval(e))
}</
{{out}}
<pre>
Line 1,052 ⟶ 1,339:
=={{header|Simula}}==
<
OutText("(5**3)**2: "); OutInt((5**3)**2, 0); Outimage;
OutText("5**(3**2): "); OutInt(5**(3**2), 0); Outimage</
{{out}}
<pre>5** 3 **2: 15625
Line 1,063 ⟶ 1,350:
Works in Smalltalk/X ¹
<p>Smalltalk strictly evaluates left to right; operators are not known to the language/parser, but instead message sends to the receiver on the left side (aka: virtual function calls) .
<
Transcript show:'(5**3)**2 => '; showCR: (5**3)**2.
Transcript show:'5**(3**2) => '; showCR: 5**(3**2).</
{{out}}
<pre>
Line 1,076 ⟶ 1,363:
=={{header|Stata}}==
<
15625
Line 1,083 ⟶ 1,370:
. di (5^(3^2))
1953125</
Likewise in Mata:
<
15625
Line 1,094 ⟶ 1,381:
. mata (5^(3^2))
1953125</
Line 1,101 ⟶ 1,388:
Swift doesn't have an exponentiation operator, however it's possible to define one, including the precedence and associativity.
<
associativity: left
higherThan: MultiplicationPrecedence
Line 1,137 ⟶ 1,424:
print(5 ** 3 ** 2)
print((5 ** 3) ** 2)
print(5 ** (3 ** 2))</
{{out}}
Line 1,146 ⟶ 1,433:
=={{header|Tcl}}==
<
puts "${expression}:\t[expr $expression]"
}</
{{out}}
<pre>
Line 1,158 ⟶ 1,445:
=={{header|VBA}}==
<
Debug.Print "5^3^2", 5 ^ 3 ^ 2
Debug.Print "(5^3)^2", (5 ^ 3) ^ 2
Debug.Print "5^(3^2)", 5 ^ (3 ^ 2)
End Sub</
<pre>5^3^2 15625
(5^3)^2 15625
Line 1,169 ⟶ 1,456:
=={{header|VBScript}}==
<syntaxhighlight lang="vb">
WScript.StdOut.WriteLine "5^3^2 => " & 5^3^2
WScript.StdOut.WriteLine "(5^3)^2 => " & (5^3)^2
WScript.StdOut.WriteLine "5^(3^2) => " & 5^(3^2)
</syntaxhighlight>
{{Out}}
Line 1,183 ⟶ 1,470:
=={{header|Verbexx}}==
<
@SAY "5**3**2 = " ( 5**3**2 );
Line 1,193 ⟶ 1,480:
5**3**2 = 1953125
(5**3)**2 = 15625
5**(3**2) = 1953125</
=={{header|Wren}}==
{{libheader|Wren-fmt}}
Wren doesn't have an exponentiation operator as such but the Num class has a ''pow'' method which does the same thing.
<
var ops = [ "5**3**2", "(5**3)**2", "5**(3**2)" ]
var results = [ 5.pow(3).pow(2), (5.pow(3)).pow(2), 5.pow(3.pow(2)) ]
for (i in 0...ops.count) {
}</
{{out}}
Line 1,211 ⟶ 1,498:
(5**3)**2 -> 15625
5**(3**2) -> 1953125
</pre>
=={{header|XPL0}}==
XPL0 doesn't have an exponentiation operator, but it does have a Pow intrinsic (in the 32-bit versions).
<syntaxhighlight lang "XPL0">[Format(1, 0);
Text(0, "5**3**2 = "); RlOut(0, Pow(5., Pow(3., 2.))); CrLf(0); \right associative
Text(0, "(5**3)**2 = "); RlOut(0, Pow(Pow(5., 3.), 2.)); CrLf(0);
Text(0, "5**(3**2) = "); RlOut(0, Pow(5., Pow(3., 2.))); CrLf(0);
]</syntaxhighlight>
{{out}}
<pre>
5**3**2 = 1953125
(5**3)**2 = 15625
5**(3**2) = 1953125
</pre>
Line 1,216 ⟶ 1,517:
{{trans|C}}
zkl does not have an exponentiation operator but floats have a pow method.
<
println("(5 ^ 3) ^ 2 = %,d".fmt((5.0).pow(3).pow(2)));
println("5 ^ (3 ^ 2) = %,d".fmt((5.0).pow((3.0).pow(2))));</
{{out}}
<pre>
|