Anonymous user
Exponentiation operator: Difference between revisions
→{{header|PL/I}}
Line 704:
<lang PL/I>
declare exp generic
(iexp when (fixed
fexp when (float, fixed)
iexp: procedure (m, n) returns (fixed binary (31));
declare (m, n) fixed binary (31) nonassignable;
Line 716:
return (exp);
end iexp;
fexp: procedure (a, n) returns (float (15));
declare (a float, n fixed binary (31)) nonassignable;
declare exp float initial (a), i fixed binary;
Line 725:
end;
return (exp);
end fexp;</lang>
=={{header|PowerShell}}==
| |||