Zero to the zero power: Difference between revisions
(Zero to the zero power en Asymptote) |
|||
(33 intermediate revisions by 22 users not shown) | |||
Line 2:
[[Category:Simple]]
{{omit from|6502 Assembly|There is no built in multiplication, let alone exponentiation. Thus the outcome is decided by the programmer not the language.}}
{{omit from|8080 Assembly|See 6502 Assembly.}}
{{omit from|Computer/zero Assembly|See 6502 Assembly.}}
{{omit from|Z80 Assembly|See 6502 Assembly.}}
{{omit from|68000 Assembly|There is no built-in exponentiation so the programmer's implementation decides the outcome.}}
{{omit from|8086 Assembly|There is no built-in exponentiation so the programmer's implementation decides the outcome.}}
{{omit from|MIPS Assembly|There is no built-in exponentiation so the programmer's implementation decides the outcome.}}
{{omit from|ARM Assembly|See 8086 Assembly.}}
Some computer programming languages are not exactly consistent (with other computer programming languages)
<br>when ''raising zero to the zeroth power'': <b><big>0<sup>0</sup></big></b>
Line 25 ⟶ 29:
;See also:
* The Wiki entry: [[wp:
* The Wiki entry: [[wp:
* The MathWorld™ entry: [http://mathworld.wolfram.com/ExponentLaws.html exponent laws].
** Also, in the above MathWorld™ entry, see formula ('''9'''): <math>x^0=1</math>.
Line 33 ⟶ 37:
=={{header|11l}}==
<syntaxhighlight lang
{{out}}
Line 41 ⟶ 45:
=={{header|8th}}==
<
0 0 ^ .
</syntaxhighlight>
{{out}}
1
Line 52 ⟶ 56:
=={{header|Action!}}==
{{libheader|Action! Tool Kit}}
<
PROC Main()
Line 65 ⟶ 69:
PrintR(z) Print("=")
PrintRE(res)
RETURN</
{{out}}
[https://gitlab.com/amarok8bit/action-rosetta-code/-/raw/master/images/Zero_to_the_zero_power.png Screenshot from Atari 8-bit computer]
Line 73 ⟶ 77:
=={{header|Ada}}==
<
Ada.Long_Long_Integer_Text_IO, Ada.Float_Text_IO, Ada.Long_Float_Text_IO,
Ada.Long_Long_Float_Text_IO;
Line 104 ⟶ 108:
Put (LLF ** Zero); New_Line;
end Test5;
</syntaxhighlight>
{{out}}
<pre>Integer 0^0 = 1
Line 116 ⟶ 120:
=={{header|ALGOL 68}}==
{{works with|ALGOL 68G|Any - tested with release 2.6.win32}}
<
</syntaxhighlight>
{{out}}
<pre>
Line 124 ⟶ 128:
=={{header|APL}}==
<
1</
=={{header|AppleScript}}==
<syntaxhighlight lang
{{output}}
<syntaxhighlight lang
=={{header|Applesoft BASIC}}==
Line 141 ⟶ 145:
=={{header|Arturo}}==
<
print 0.0 ^ 0</
{{out}}
Line 150 ⟶ 154:
=={{header|Asymptote}}==
<
=={{header|AutoHotkey}}==
<syntaxhighlight lang
{{out}}
<pre>1</pre>
=={{header|AWK}}==
<syntaxhighlight lang="awk">
# syntax: GAWK -f ZERO_TO_THE_ZERO_POWER.AWK
BEGIN {
Line 164 ⟶ 168:
exit(0)
}
</syntaxhighlight>
{{out}}
<pre>
Line 171 ⟶ 175:
=={{header|BaCon}}==
<syntaxhighlight lang
{{out}}
Line 179 ⟶ 183:
=={{header|BASIC}}==
==={{header|BASIC256}}===
<
==={{header|Chipmunk Basic}}===
<syntaxhighlight lang="qbasic">10 print "0 ^ 0 = ";0^0</syntaxhighlight>
==={{header|MSX Basic}}===
<syntaxhighlight lang="qbasic">10 PRINT "0 ^ 0 = "; 0 ^ 0</syntaxhighlight>
==={{header|QBasic}}===
{{works with|QBasic|1.1}}
{{works with|QuickBasic|4.5}}
<
==={{header|Run BASIC}}===
{{works with|Just BASIC}}
{{works with|Liberty BASIC}}
<syntaxhighlight lang="lb">print "0 ^ 0 = "; 0 ^ 0</syntaxhighlight>
==={{header|True BASIC}}===
{{works with|QBasic}}
<
END</
==={{header|XBasic}}===
{{works with|Windows XBasic}}
<syntaxhighlight lang="xbasic">PROGRAM "progname"
VERSION "0.0000"
IMPORT "xma" 'required for POWER
DECLARE FUNCTION Entry ()
FUNCTION Entry ()
PRINT "0 ^ 0 = "; 0 ** 0
PRINT "0 ^ 0 = "; POWER(0, 0)
END FUNCTION
END PROGRAM</syntaxhighlight>
==={{header|ZX Spectrum Basic}}===
<syntaxhighlight lang="zxbasic">PRINT 0↑0</syntaxhighlight>
{{out}}
<pre>
1
0 OK, 0:1
</pre>
=={{header|BBC BASIC}}==
<
{{out}}
Line 201 ⟶ 240:
=={{header|Bc}}==
<syntaxhighlight lang="bc">
0 ^ 0
</syntaxhighlight>
{{out}}
1
Line 212 ⟶ 251:
Note that the result is potentially dependent on the underlying language of the interpreter, but all those tested so far have returned 1. Interpreters that don't support '''Befunge-98''', or don't support this fingerprint, should just terminate (possibly with a warning).
<
{{out}}
<pre>1.000000</pre>
=={{header|Binary Lambda Calculus}}==
In lambda calculus, <code>\n. n n</code> is a function mapping a Church numeral n to the Church numeral n^n. The following BLC program computes this for n=0 by using its empty input as a Church numeral (since nil coincides with Church numeral 0), and outputting in unary (i.e as a string of 0^0 1s), as generated from https://github.com/tromp/AIT/blob/master/rosetta/exp00.lam :
<pre>0001010110100000010110111011010</pre>
Output:
<pre>1</pre>
=={{header|BQN}}==
BQN doesn't specify the details of arithmetic functions; existing implementations use IEEE doubles and the <code>pow</code> function, giving a result of 1.
<syntaxhighlight lang
{{out}}
<pre>1</pre>
=={{header|Bracmat}}==
<syntaxhighlight lang
{{out}}
<pre>1</pre>
=={{header|Burlesque}}==
<
blsq ) 0.0 0.0?^
1.0
blsq ) 0 0?^
1
</syntaxhighlight>
=={{header|C}}==
Line 240 ⟶ 289:
This example uses the standard <code>pow</code> function in the math library.
0^0 is given as 1.
<
#include <math.h>
#include <complex.h>
Line 250 ⟶ 299:
printf("0+0i ^ 0+0i = %f+%fi\n", creal(c), cimag(c));
return 0;
}</
{{out}}
Line 259 ⟶ 308:
=={{header|C sharp|C#}}==
<
namespace ZeroToTheZeroeth
Line 271 ⟶ 320:
}
}
}</
{{out}}
Line 279 ⟶ 328:
=={{header|C++}}==
<
#include <cmath>
#include <complex>
Line 289 ⟶ 338:
std::pow(std::complex<double>(0),std::complex<double>(0)) << std::endl;
return 0;
}</
{{out}}
Line 298 ⟶ 347:
=={{header|Caché ObjectScript}}==
<
// default behavior is incorrect:
set (x,y) = 0
Line 307 ⟶ 356:
w !,"0 to the 0th power (right): "_(x**y)
quit</
{{out}}<pre>SAMPLES>do ^ZEROPOW
Line 329 ⟶ 378:
1 in my case could just be an implementation detail.
<
zz_int: int := 0 ** 0
zz_real: real := 0.0 ** 0.0
Line 336 ⟶ 385:
stream$putl(po, "integer 0**0: " || int$unparse(zz_int))
stream$putl(po, "real 0**0: " || f_form(zz_real, 1, 1))
end start_up</
{{out}}
<pre>integer 0**0: 1
Line 342 ⟶ 391:
=={{header|COBOL}}==
<
program-id. zero-power-zero-program.
data division.
Line 350 ⟶ 399:
compute n = 0**0.
display n upon console.
stop run.</
{{out}}
<pre>1</pre>
Line 356 ⟶ 405:
=={{header|ColdFusion}}==
=== Classic tag based CFML ===
<
<cfset zeroPowerTag = 0^0>
<cfoutput>"#zeroPowerTag#"</cfoutput>
</syntaxhighlight>
{{Output}}
<pre>
Line 366 ⟶ 415:
=== Script Based CFML ===
<
zeroPower = 0^0;
writeOutput( zeroPower );
</cfscript></
{{Output}}
<pre>
Line 393 ⟶ 442:
=={{header|Crystal}}==
<
puts "Negative Int32: #{-0_i32**-0_i32}"
puts "Float32: #{0_f32**0_f32}"
puts "Negative Float32: #{-0_f32**-0_f32}"</
{{Output}}
Line 405 ⟶ 454:
=={{header|D}}==
<
import std.stdio, std.math, std.bigint, std.complex;
Line 416 ⟶ 465:
writeln("BigInt: ", 0.BigInt ^^ 0);
writeln("Complex: ", complex(0.0, 0.0) ^^ 0);
}</
{{out}}
<pre>Int: 1
Line 426 ⟶ 475:
BigInt: 1
Complex: 1+0i</pre>
=={{header|Dart}}==
<syntaxhighlight lang="dart">import 'dart:math';
void main() {
var resul = pow(0, 0);
print("0 ^ 0 = $resul");
}</syntaxhighlight>
{{out}}
<pre>0 ^ 0 = 1</pre>
=={{header|Dc}}==
<
</syntaxhighlight>
{{Output}}
<pre>
Line 440 ⟶ 499:
=={{header|EasyLang}}==
<syntaxhighlight lang="text">print pow 0 0</
=={{header|EchoLisp}}==
<
;; trying the 16 combinations
;; all return the integer 1
Line 451 ⟶ 510:
(for* ((z1 zeroes) (z2 zeroes)) (write (expt z1 z2)))
→ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
</syntaxhighlight>
=={{header|Eiffel}}==
<syntaxhighlight lang
{{out}}
<pre>1</pre>
=={{header|Elena}}==
ELENA
<
public program()
{
console.printLine("0^0 is ",0.power
}</
{{out}}
<pre>
Line 473 ⟶ 532:
=={{header|Elixir}}==
Elixir uses Erlang's <code>:math</code> for power operations and can handle zero to the zero power.
<syntaxhighlight lang="elixir">
:math.pow(0,0)
</syntaxhighlight>
{{out}}
1.0
=={{header|Emacs Lisp}}==
<syntaxhighlight lang
{{out}}
1
=={{header|EMal}}==
<syntaxhighlight lang="emal">
writeLine(0 ** 0) # an integer
writeLine(0.0 ** 0.0) # a real
</syntaxhighlight>
{{out}}
<pre>
1
1.0
</pre>
=={{header|ERRE}}==
<syntaxhighlight lang="erre">
.....
PRINT(0^0)
.....
</syntaxhighlight>
{{out}}
<pre> 1
Line 501 ⟶ 571:
=={{header|Factor}}==
<
0 0 ^
C{ 0 0 } C{ 0 0 } ^complex</
{{out}}
<pre>--- Data stack:
Line 511 ⟶ 581:
=={{header|Falcon}}==
'''VBA/Python programmer's approach not sure if it's the most falconic way'''
<
/* created by Aykayayciti Earl Lamont Montgomery
April 9th, 2018 */
Line 520 ⟶ 590:
> "z=", z
</syntaxhighlight>
{{out}}
<pre>
Line 528 ⟶ 598:
=={{header|Fermat}}==
<syntaxhighlight lang
{{out}}<pre>1</pre>
=={{header|Forth}}==
<syntaxhighlight lang
{{out}}
Line 539 ⟶ 609:
Of course in an embedded program we would be tempted to "pre-calculate" the answer :-)
<
{{Output}}
Line 548 ⟶ 618:
=={{header|Fortran}}==
<syntaxhighlight lang="fortran">
program zero
double precision :: i, j
Line 560 ⟶ 630:
write(*,*) 'When complex numbers are used, we have (0.0+0.0i)^(0.0+0.0i) = ', z1**z2
end program
</syntaxhighlight>
{{out}}
<pre>
Line 569 ⟶ 639:
=={{header|FreeBASIC}}==
<
Print "0 ^ 0 ="; 0 ^ 0
Sleep</
{{out}}
Line 580 ⟶ 650:
=={{header|Frink}}==
<syntaxhighlight lang
{{out}}
Line 589 ⟶ 659:
=={{header|FutureBasic}}==
<
print 0^0
HandleEvents</syntaxhighlight>
Output:
<pre>
Line 601 ⟶ 671:
=={{header|Gambas}}==
'''[https://gambas-playground.proko.eu/?gist=7d505dbe89227e9b4423f92ef12d6829 Click this link to run this code]'''
<
Print 0 ^ 0
End</
Output:
<pre>
1
</pre>
=={{header|GAP}}==
<syntaxhighlight lang="gap">0^0;</syntaxhighlight>
{{out}}<pre>1</pre>
=={{header|Go}}==
Go does not have an exponentiation operator but has functions in the standard library for three types, float64, complex128, and big.Int.
As of Go 1.3, all are documented to return 1.
<
import (
Line 628 ⟶ 702:
fmt.Println("big integer:", b.Exp(&b, &b, nil))
fmt.Println("complex: ", cmplx.Pow(0, 0))
}</
{{out}}
<pre>
Line 635 ⟶ 709:
complex: (1+0i)
</pre>
=={{header|Golfscript}}==
<syntaxhighlight lang="golfscript">0 0?</syntaxhighlight>
{{out}}
<pre>1</pre>
=={{header|Groovy}}==
{{trans|Java}}
Test:
<syntaxhighlight lang
{{out}}
<pre>1</pre>
=={{header|GW-BASIC}}==
<syntaxhighlight lang
{{out}}<pre>1</pre>
=={{header|Haskell}}==
<
main
main = mapM_ print
(0 :+ 0) ** (0 :+ 0)
]</syntaxhighlight>
{{out}}
<pre>1
1.0
1.0
1.0
1.0 :+ 0.0
=={{header|HolyC}}==
<
Print("0 ` 0 = %5.3f\n", a);</
{{out}}
Line 679 ⟶ 758:
"Works" in both languages:
<
write(0^0)
end</
{{out}}
Line 697 ⟶ 776:
=={{header|J}}==
<
1</
Note also that this is the multiplicative identity (which means that it's consistent with <code>1*0</code> representing <code>0^1</code> and with <code>1*0*0</code> representing <code>0^2</code> and with <code>1*0*0*0</code> representing <code>0^3</code> and with <code>1*2*2*2</code> representing <code>2^3</code> and so on. Also, this is the result of finding the product of an empty list:
<syntaxhighlight lang="J"> */''
1</syntaxhighlight>
(In <code><nowiki>*/''</nowiki></code> we're finding the product of a list which contains no characters. This is, of course, the same as the product of a list which contains no numbers when both lists contain neither. That said, characters are outside the domain of multiplication in J, so if the list had contained any characters the product would have been an error rather than a result.)
=={{header|Java}}==
<
{{out}}
<pre>1.0</pre>
Line 709 ⟶ 795:
{{Works with|Node.js}}
In interactive mode:
<
1</
===exponentiation operator (**)===
<
1</
=={{header|jq}}==
{{works with|jq|1.5}}
'''Also works with gojq and fq'''
<pre>
$ jq -n 'pow(0;0)'
1
</pre>
It is also worth noting that in jq, gojq, and fq, `pow(0; infinite)` yields 0.
=={{header|Jsish}}==
<
{{out}}
<pre>1</pre>
Line 732 ⟶ 817:
=={{header|Julia}}==
Try all combinations of complex, float, rational, integer and boolean.
<
const types = (Complex, Float64, Rational, Int, Bool)
Line 740 ⟶ 825:
r = zb ^ ze
@printf("%10s ^ %-10s = %7s ^ %-7s = %-12s (%s)\n", Tb, Te, zb, ze, r, typeof(r))
end</
{{out}}
Line 770 ⟶ 855:
=={{header|K}}==
<syntaxhighlight lang="k">
0^0
1.0
</syntaxhighlight>
=={{header|Klingphix}}==
<
dup not (
[ drop sign dup 0 equal [ drop 1 ] if ]
Line 785 ⟶ 870:
0 0 mypower print nl
"End " input</
{{out}}
<pre>1
Line 791 ⟶ 876:
=={{header|Kotlin}}==
<syntaxhighlight lang="kotlin">import kotlin.math.pow
fun main(
println(
}</
{{out}}
<pre>
</pre>
=={{header|Lambdatalk}}==
<syntaxhighlight lang="scheme">
{pow 0 0}
-> 1
{exp 0 0}
-> 1
</syntaxhighlight>
=={{header|LDPL}}==
<syntaxhighlight lang="ldpl">data:
x is number
procedure:
raise 0 to 0 in x
display x lf
</syntaxhighlight>
{{out}}
<pre>
1
</pre>
=={{header|Liberty BASIC}}==
<syntaxhighlight lang="lb">
'********
print 0^0
'********
</syntaxhighlight>
{{out}}
<pre>1</pre>
Line 821 ⟶ 919:
=={{header|Locomotive Basic}}==
<syntaxhighlight lang
{{out}}
<pre> 1</pre>
Line 827 ⟶ 925:
=={{header|Lua}}==
No need to try different data types or with / without decimal points as all numbers in Lua are stored in double-precision floating-point format.
<syntaxhighlight lang
{{out}}
<pre>1</pre>
Line 833 ⟶ 931:
=={{header|M2000 Interpreter}}==
M2000 use ** and ^ for power.
<syntaxhighlight lang="m2000 interpreter">
Module Checkit {
x=0
Line 840 ⟶ 938:
}
Checkit
</syntaxhighlight>
=={{header|Maple}}==
<syntaxhighlight lang
{{out}}
<pre>1</pre>
However, for consistency with IEEE-754 numerics, we also have a NaN result for the equivalent floating-point exponentiation:
<syntaxhighlight lang
{{out}}
<pre>Float(undefined)</pre>
=={{header|Mathematica}}/{{header|Wolfram Language}}==
<syntaxhighlight lang
{{out}}
<pre>Indeterminate</pre>
=={{header|MATLAB}} / {{header|Octave}}==
<syntaxhighlight lang="matlab">0^0
complex(0,0)^0</
{{out}}
<pre>1
1</pre>
=={{header|Maxima}}==
<syntaxhighlight lang
{{out}}<pre> 0
expt: undefined: 0</pre>
=={{header|Mercury}}==
<
:- interface.
Line 886 ⟶ 984:
io.format(" float.pow(0.0, 0) = %.1f\n", [f(pow(0.0, 0))], !IO).
:- end_module zero_to_the_zero_power.</
{{out}}
<pre> int.pow(0, 0) = 1
Line 893 ⟶ 991:
=={{header|Microsoft Small Basic}}==
<
{{out}}<pre>1</pre>
=={{header|min}}==
{{works with|min|0.19.3}}
<syntaxhighlight lang
{{out}}
<pre>
Line 905 ⟶ 1,003:
=={{header|MiniScript}}==
<
{{out}}
<pre>
Line 912 ⟶ 1,010:
=={{header|МК-61/52}}==
<syntaxhighlight lang="text">Сx ^ x^y С/П</
The result is error message.
=={{header|Nanoquery}}==
<syntaxhighlight lang
{{out}}
<pre>1</pre>
Line 924 ⟶ 1,022:
Neko uses the C math library for exponentiation, Zero to the zero in math.pow(x, y) is treated as being 1.
<syntaxhighlight lang="actionscript">/**
Zero to the zeroth power, in Neko
*/
Line 930 ⟶ 1,028:
var math_pow = $loader.loadprim("std@math_pow", 2)
$print(math_pow(0, 0), "\n")</
{{out}}
Line 938 ⟶ 1,036:
=={{header|NetRexx}}==
<
Say '0**0='||x**x</
{{out}}
<pre>0**0=1</pre>
=={{header|NewLISP}}==
<syntaxhighlight lang
{{out}}
<pre>1</pre>
Line 952 ⟶ 1,050:
Create an exponentiation table for all type combinations (of integer <code>0</code>, float <code>0.0</code> and boolean <code>o</code>):
<
+--+--+--+
| 1|1.| 1|
Line 959 ⟶ 1,057:
+--+--+--+
| 1|1.| 1|
+--+--+--+</
=={{header|Nim}}==
<
echo pow(0.0, 0.0) # Floating point exponentiation.
echo 0 ^ 0 # Integer exponentiation.</
{{out}}
<pre>1.0
Line 985 ⟶ 1,083:
=={{header|Oforth}}==
<syntaxhighlight lang
{{out}}
Line 993 ⟶ 1,091:
=={{header|Ol}}==
<
(print "0^0: " (expt 0 0))
(print "0.0^0: " (expt (inexact 0) 0))
</syntaxhighlight>
{{out}}
<pre>
Line 1,004 ⟶ 1,102:
=={{header|ooRexx}}==
<
* 21.04.2014 Walter Pachl
**********************************************************************/
Say 'rxCalcpower(0,0) ->' rxCalcpower(0,0)
Say '0**0 ->' 0**0
::requires rxmath library</
{{out}}
<pre>
Line 1,018 ⟶ 1,116:
=={{header|Openscad}}==
<syntaxhighlight lang
=={{header|PARI/GP}}==
0 raised to the power of exact 0 is
<
0.^0
0^0.</
{{out}}
<pre>%1 = 1
Line 1,036 ⟶ 1,134:
=={{header|Pascal}}==
{{works with|Free Pascal}} {{Libheader|math}}
<
uses
math;
Line 1,042 ⟶ 1,140:
write('0.0 ^ 0 :',IntPower(0.0,0):4:2);
writeln(' 0.0 ^ 0.0 :',Power(0.0,0.0):4:2);
end.</
;output:
<pre>0.0 ^ 0 :1.00 0.0 ^ 0.0 :1.00</pre>
=={{header|Perl}}==
<
use Math::Complex;
print cplx(0,0) ** cplx(0,0), "\n";</
{{out}}
<pre>
Line 1,060 ⟶ 1,158:
=={{header|Phix}}==
{{libheader|Phix/basics}}
<!--<
<span style="color: #0000FF;">?</span><span style="color: #7060A8;">power</span><span style="color: #0000FF;">(</span><span style="color: #000000;">0</span><span style="color: #0000FF;">,</span><span style="color: #000000;">0</span><span style="color: #0000FF;">)</span>
<span style="color: #7060A8;">requires</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"0.8.4"</span><span style="color: #0000FF;">)</span> <span style="color: #000080;font-style:italic;">-- (now fixed/crashes on earlier versions)</span>
Line 1,069 ⟶ 1,167:
<span style="color: #000000;">sb</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">complex_sprint</span><span style="color: #0000FF;">(</span><span style="color: #000000;">b</span><span style="color: #0000FF;">,</span><span style="color: #004600;">true</span><span style="color: #0000FF;">)</span>
<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"%s ^ %s = %s\n"</span><span style="color: #0000FF;">,{</span><span style="color: #000000;">sa</span><span style="color: #0000FF;">,</span><span style="color: #000000;">sa</span><span style="color: #0000FF;">,</span><span style="color: #000000;">sb</span><span style="color: #0000FF;">})</span>
<!--</
{{out}}
<pre>
Line 1,077 ⟶ 1,175:
=={{header|Phixmonti}}==
<
dup not if
. sign dup 0 == if . 1 endif
Line 1,085 ⟶ 1,183:
enddef
0 0 mypower print</
{{out}}
<pre>1</pre>
=={{header|PHP}}==
<
echo pow(0,0);
echo 0 ** 0; // PHP 5.6+ only
?></
{{out}}
<pre>
Line 1,101 ⟶ 1,199:
=={{header|PicoLisp}}==
<syntaxhighlight lang="picolisp">
(** 0 0)
</syntaxhighlight>
{{out}}
1
=={{header|Pike}}==
<
{{Out}}
<pre>
Line 1,115 ⟶ 1,213:
=={{header|PL/I}}==
<
Dcl a dec float(10) Init(1);
Dcl b dec float(10) Init(0);
Line 1,121 ⟶ 1,219:
Put skip list('0**1=',b**a);
Put skip list('0**0=',b**b);
End;</
{{out}}
<pre>
Line 1,132 ⟶ 1,230:
=={{header|Plain English}}==
<
Start up.
Put 0 into a number.
Line 1,139 ⟶ 1,237:
Write the string to the console.
Wait for the escape key.
Shut down.</
{{out}}
<pre>
Line 1,147 ⟶ 1,245:
=={{header|PowerShell}}==
<
Output :
Line 1,156 ⟶ 1,254:
=={{header|PureBasic}}==
<syntaxhighlight lang="purebasic">
If OpenConsole()
PrintN("Zero to the zero power is " + Pow(0,0))
Line 1,164 ⟶ 1,262:
CloseConsole()
EndIf
</syntaxhighlight>
{{out}}
Line 1,172 ⟶ 1,270:
=={{header|Pyret}}==
<syntaxhighlight lang
{{out}}
1
Line 1,178 ⟶ 1,276:
=={{header|Python}}==
===Python3===
<
from fractions import Fraction
from itertools import product
Line 1,188 ⟶ 1,286:
except:
ans = '<Exception raised>'
print(f'{i!r:>15} ** {j!r:<15} = {ans!r}')</
{{out}}
<pre> 0 ** 0 = 1
Line 1,256 ⟶ 1,354:
===Python2===
<
from fractions import Fraction
for n in (Decimal(0), Fraction(0, 1), complex(0), float(0), int(0)):
Line 1,267 ⟶ 1,365:
except:
n2 = '<Raised exception>'
print('%8s: ** -> %r; pow -> %r' % (n.__class__.__name__, n1, n2))</
{{out}}
<pre>
Line 1,278 ⟶ 1,376:
=={{header|QB64}}==
<syntaxhighlight lang
{{out}}
<pre>1</pre>
Alternatively:
<
l& = 0 'Long integer
s! = 0.0 'Single precision floating point
Line 1,296 ⟶ 1,394:
Print b` ^ b`
Print bb%% ^ bb%%
Print isf&& ^ isf&&</
{{out}}
NB: Values with 0 decimals are trimmed by Print's casting from number value to String.
Line 1,310 ⟶ 1,408:
As a dialogue in the Quackery shell.
<
...
Stack: 1
</syntaxhighlight>
=={{header|R}}==
<syntaxhighlight lang
{{out}}
<pre>1</pre>
Line 1,323 ⟶ 1,421:
=={{header|Racket}}==
<
;; as many zeros as I can think of...
(define zeros (list
Line 1,336 ⟶ 1,434:
(printf "(~a)^(~a) = ~s~%" z p
(with-handlers [(exn:fail:contract:divide-by-zero? exn-message)]
(expt z p))))</
{{out}}
Line 1,380 ⟶ 1,478:
{{works with|Rakudo|2018.03}}
<syntaxhighlight lang="raku"
say '-------- -------- -------- --------';
for 0, 0.0, FatRat.new(0), 0e0, 0+0i {
printf "%8s %8s %8s %8s\n", .^name, $_, $_**$_, exp($_,$_);
}</
{{out}}
Line 1,400 ⟶ 1,498:
=={{header|Red}}==
Shown using the operator, the function, and the <code>math</code> mini-DSL that uses the order of operations from mathematics:
<
print 0 ** 0
print power 0 0
print math [0 ** 0]</
{{out}}
<pre>
Line 1,412 ⟶ 1,510:
=={{header|Relation}}==
<syntaxhighlight lang="relation">
echo pow(0,0)
// 1
</syntaxhighlight>
=={{header|REXX}}==
<
say '0 ** 0 (zero to the zeroth power) ───► ' 0**0</
<br>using PC/REXX
<br>using Personal REXX
Line 1,450 ⟶ 1,548:
=={{header|Ring}}==
<
x = 0
y = 0
z = pow(x,y)
see "z=" + z + nl # z=1
</syntaxhighlight>
=={{header|RPL}}==
0 0 ^
====Output for HP-48G and older models====
1: 1
====Output for HP-49 and newer models====
1: ?
=={{header|Ruby}}==
<
[0, 0.0, Complex(0), Rational(0), BigDecimal("0")].each do |n|
printf "%10s: ** -> %s\n" % [n.class, n**n]
end</
{{out}}
<pre>
Line 1,473 ⟶ 1,578:
=={{header|Rust}}==
<
println!("{}",0u32.pow(0));
}</
{{out}}
Line 1,481 ⟶ 1,586:
=={{header|S-lang}}==
<syntaxhighlight lang
{{out}}
<pre>1.0</pre>
=={{header|Scala}}==
{{libheader|Scala}}<
=={{header|Scheme}}==
<
(display (expt 0.0 0.0)) (newline)
(display (expt 0+0i 0+0i)) (newline)</
{{out}}
<pre>1
Line 1,498 ⟶ 1,603:
=={{header|Seed7}}==
<
include "float.s7i";
include "complex.s7i";
Line 1,509 ⟶ 1,614:
writeln("0.0+0i ** 0 = " <& complex(0.0) ** 0);
end func;
</syntaxhighlight>
{{out}}
Line 1,520 ⟶ 1,625:
=={{header|SenseTalk}}==
<
set b to 0
put a to the power of b
// Prints: 1</
=={{header|Sidef}}==
<
say n**n
}</
{{out}}
<pre>
Line 1,538 ⟶ 1,643:
Taking the 0'th root of a number and raising it back to the zero power, we also get a 1:
<
say ((0**(1/0))**0) # => 1</
=={{header|Sinclair ZX81 BASIC}}==
<syntaxhighlight lang
{{out}}
<pre>1</pre>
Line 1,548 ⟶ 1,653:
=={{header|Smalltalk}}==
<
0 raisedTo: 0
0.0 raisedTo: 0.0
</syntaxhighlight>
{{out}}
<pre>
Line 1,559 ⟶ 1,664:
=={{header|smart BASIC}}==
<syntaxhighlight lang
{{out}}
Line 1,568 ⟶ 1,673:
=={{header|SNOBOL4}}==
<
END</
=={{header|SQL}}==
<syntaxhighlight lang="sql">
SQL> select power(0,0) from dual;
</syntaxhighlight>
{{out}}
<pre>
Line 1,591 ⟶ 1,696:
=={{header|Stata}}==
<
1</
=={{header|Swift}}==
<
print(pow(0.0,0.0))</
{{out}}
<pre>1.0</pre>
=={{header|Symsyn}}==
<syntaxhighlight lang="symsyn">
(0^0) []
</syntaxhighlight>
{{out}}
<pre> 1 </pre>
Line 1,609 ⟶ 1,714:
=={{header|Tcl}}==
Interactively…
<
1
% expr 0.0**0.0
1.0</
=={{header|TI SR-56}}==
<syntaxhighlight lang="text">0 Yx 0 =</syntaxhighlight>
{{out}}
<pre> 1 </pre>
=={{header|TI-83_BASIC}}==
<syntaxhighlight lang
{{out}}
<pre>ERROR:DOMAIN</pre>
=={{header|uBasic/4tH}}==
<syntaxhighlight lang="text">Print 0^0</
{{out}}
<pre>1
Line 1,628 ⟶ 1,739:
=={{header|Ursa}}==
Cygnus/X Ursa is written in Java, and as a result returns 1.0 when raising 0 to the 0.
<
1.0</
=={{header|VBA}}==
<
x = 0
y = 0
z = 0 ^ 0
Debug.Print "z ="; z
End Sub</
<pre>z = 1</pre>
=={{header|VBScript}}==
<syntaxhighlight lang
{{Out}}
<pre>1</pre>
Line 1,647 ⟶ 1,758:
=={{header|Verilog}}==
<
initial begin
$display("0 ^ 0 = ", 0**0);
$finish ;
end
endmodule</
{{out}}
<pre>0 ^ 0 = 1</pre>
Line 1,658 ⟶ 1,769:
=={{header|Visual Basic .NET}}==
<
Sub Main()
Console.Write(0^0)
End Sub
End Module</
{{out}}
<pre>1</pre>
=={{header|V (Vlang)}}==
<
// Tectonics: v run zero-to-the-zero-power.v
module main
Line 1,677 ⟶ 1,788:
pub fn main() {
println(math.pow(0, 0))
}</
{{out}}<pre>prompt$ v run rosetta/zero-to-the-zero-power.v
1.</pre>
=={{header|Wren}}==
<syntaxhighlight lang
{{out}}
Line 1,690 ⟶ 1,801:
=={{header|XLISP}}==
<
[1] (expt 0 0)
1
[2] </
=={{header|XPL0}}==
<
{{out}}
<pre> 1.00000</pre>
=={{header|Zig}}==
<syntaxhighlight lang="zig">const std = @import("std");
pub fn main() !void {
const stdout = std.io.getStdOut().writer();
try stdout.print("0^0 = {d:.8}\n", .{std.math.pow(f32, 0, 0)});
}</syntaxhighlight>
{{out}}
<pre>0^0 = 1.00000000</pre>
=={{header|zkl}}==
<
var BN=Import("zklBigNum"); // big ints
BN(0).pow(0) //--> 1</
|
Revision as of 14:50, 1 March 2024
You are encouraged to solve this task according to the task description, using any language you may know.
Some computer programming languages are not exactly consistent (with other computer programming languages)
when raising zero to the zeroth power: 00
- Task
Show the results of raising zero to the zeroth power.
If your computer language objects to 0**0 or 0^0 at compile time, you may also try something like:
x = 0 y = 0 z = x**y say 'z=' z
Show the result here.
And of course use any symbols or notation that is supported in your computer programming language for exponentiation.
- See also
- The Wiki entry: Zero to the power of zero.
- The Wiki entry: Zero to the power of zero: History.
- The MathWorld™ entry: exponent laws.
- Also, in the above MathWorld™ entry, see formula (9): .
- The OEIS entry: The special case of zero to the zeroth power
11l
print(0 ^ 0)
- Output:
1
8th
0 0 ^ .
- Output:
1
Action!
INCLUDE "D2:REAL.ACT" ;from the Action! Tool Kit
PROC Main()
REAL z,res
Put(125) PutE() ;clear the screen
IntToReal(0,z)
Power(z,z,res)
PrintR(z) Print("^")
PrintR(z) Print("=")
PrintRE(res)
RETURN
- Output:
Screenshot from Atari 8-bit computer
0^0=.9999999998
Ada
with Ada.Text_IO, Ada.Integer_Text_IO, Ada.Long_Integer_Text_IO,
Ada.Long_Long_Integer_Text_IO, Ada.Float_Text_IO, Ada.Long_Float_Text_IO,
Ada.Long_Long_Float_Text_IO;
use Ada.Text_IO, Ada.Integer_Text_IO, Ada.Long_Integer_Text_IO,
Ada.Long_Long_Integer_Text_IO, Ada.Float_Text_IO, Ada.Long_Float_Text_IO,
Ada.Long_Long_Float_Text_IO;
procedure Test5 is
I : Integer := 0;
LI : Long_Integer := 0;
LLI : Long_Long_Integer := 0;
F : Float := 0.0;
LF : Long_Float := 0.0;
LLF : Long_Long_Float := 0.0;
Zero : Natural := 0;
begin
Put ("Integer 0^0 = ");
Put (I ** Zero, 2); New_Line;
Put ("Long Integer 0^0 = ");
Put (LI ** Zero, 2); New_Line;
Put ("Long Long Integer 0^0 = ");
Put (LLI ** Zero, 2); New_Line;
Put ("Float 0.0^0 = ");
Put (F ** Zero); New_Line;
Put ("Long Float 0.0^0 = ");
Put (LF ** Zero); New_Line;
Put ("Long Long Float 0.0^0 = ");
Put (LLF ** Zero); New_Line;
end Test5;
- Output:
Integer 0^0 = 1 Long Integer 0^0 = 1 Long Long Integer 0^0 = 1 Float 0.0^0 = 1.00000E+00 Long Float 0.0^0 = 1.00000000000000E+00 Long Long Float 0.0^0 = 1.00000000000000000E+00
ALGOL 68
print( ( 0 ^ 0, newline ) )
- Output:
+1
APL
0*0
1
AppleScript
return 0 ^ 0
- Output:
1.0
Applesoft BASIC
]? 0^0 1
Arturo
print 0 ^ 0
print 0.0 ^ 0
- Output:
1 1.0
Asymptote
write("0 ^ 0 = ", 0 ** 0);
AutoHotkey
MsgBox % 0 ** 0
- Output:
1
AWK
# syntax: GAWK -f ZERO_TO_THE_ZERO_POWER.AWK
BEGIN {
print(0 ^ 0)
exit(0)
}
- Output:
1
BaCon
PRINT POW(0, 0)
- Output:
prompt$ ./zerotothezero 1
BASIC
BASIC256
print "0 ^ 0 = "; 0 ^ 0
Chipmunk Basic
10 print "0 ^ 0 = ";0^0
MSX Basic
10 PRINT "0 ^ 0 = "; 0 ^ 0
QBasic
PRINT "0 ^ 0 ="; 0 ^ 0
Run BASIC
print "0 ^ 0 = "; 0 ^ 0
True BASIC
PRINT "0 ^ 0 ="; 0 ^ 0
END
XBasic
PROGRAM "progname"
VERSION "0.0000"
IMPORT "xma" 'required for POWER
DECLARE FUNCTION Entry ()
FUNCTION Entry ()
PRINT "0 ^ 0 = "; 0 ** 0
PRINT "0 ^ 0 = "; POWER(0, 0)
END FUNCTION
END PROGRAM
ZX Spectrum Basic
PRINT 0↑0
- Output:
1 0 OK, 0:1
BBC BASIC
PRINT 0^0
- Output:
1
Bc
0 ^ 0
- Output:
1
Befunge
Befunge-93 doesn't have explicit support for exponentiation, but there are a couple of fingerprint extensions for Befunge-98 which add that functionality. The example below makes use of the FPDP fingerprint (double precision floating point).
Note that the result is potentially dependent on the underlying language of the interpreter, but all those tested so far have returned 1. Interpreters that don't support Befunge-98, or don't support this fingerprint, should just terminate (possibly with a warning).
"PDPF"4#@(0F0FYP)@
- Output:
1.000000
Binary Lambda Calculus
In lambda calculus, \n. n n
is a function mapping a Church numeral n to the Church numeral n^n. The following BLC program computes this for n=0 by using its empty input as a Church numeral (since nil coincides with Church numeral 0), and outputting in unary (i.e as a string of 0^0 1s), as generated from https://github.com/tromp/AIT/blob/master/rosetta/exp00.lam :
0001010110100000010110111011010
Output:
1
BQN
BQN doesn't specify the details of arithmetic functions; existing implementations use IEEE doubles and the pow
function, giving a result of 1.
0⋆0
- Output:
1
Bracmat
0^0
- Output:
1
Burlesque
blsq ) 0.0 0.0?^
1.0
blsq ) 0 0?^
1
C
This example uses the standard pow
function in the math library.
0^0 is given as 1.
#include <stdio.h>
#include <math.h>
#include <complex.h>
int main()
{
printf("0 ^ 0 = %f\n", pow(0,0));
double complex c = cpow(0,0);
printf("0+0i ^ 0+0i = %f+%fi\n", creal(c), cimag(c));
return 0;
}
- Output:
0 ^ 0 = 1.000000 0+0i ^ 0+0i = nan+nani
C#
using System;
namespace ZeroToTheZeroeth
{
class Program
{
static void Main(string[] args)
{
double k = Math.Pow(0, 0);
Console.Write("0^0 is {0}", k);
}
}
}
- Output:
0^0 is 1
C++
#include <iostream>
#include <cmath>
#include <complex>
int main()
{
std::cout << "0 ^ 0 = " << std::pow(0,0) << std::endl;
std::cout << "0+0i ^ 0+0i = " <<
std::pow(std::complex<double>(0),std::complex<double>(0)) << std::endl;
return 0;
}
- Output:
0 ^ 0 = 1 0+0i ^ 0+0i = (nan,nan)
Caché ObjectScript
ZEROPOW
// default behavior is incorrect:
set (x,y) = 0
w !,"0 to the 0th power (wrong): "_(x**y) ; will output 0
// if one or both of the values is a double, this works
set (x,y) = $DOUBLE(0)
w !,"0 to the 0th power (right): "_(x**y)
quit
- Output:
SAMPLES>do ^ZEROPOW0 to the 0th power (wrong): 0
0 to the 0th power (right): 1
Clojure
user=> (use 'clojure.math.numeric-tower) user=> (expt 0 0) 1 ; alternative java-interop route: user=> (Math/pow 0 0) 1.0
CLU
The CLU reference manual doesn't mention the issue, so the fact that it returns 1 in my case could just be an implementation detail.
start_up = proc ()
zz_int: int := 0 ** 0
zz_real: real := 0.0 ** 0.0
po: stream := stream$primary_output()
stream$putl(po, "integer 0**0: " || int$unparse(zz_int))
stream$putl(po, "real 0**0: " || f_form(zz_real, 1, 1))
end start_up
- Output:
integer 0**0: 1 real 0**0: 1.0
COBOL
identification division.
program-id. zero-power-zero-program.
data division.
working-storage section.
77 n pic 9.
procedure division.
compute n = 0**0.
display n upon console.
stop run.
- Output:
1
ColdFusion
Classic tag based CFML
<cfset zeroPowerTag = 0^0>
<cfoutput>"#zeroPowerTag#"</cfoutput>
- Output:
"1"
Script Based CFML
<cfscript>
zeroPower = 0^0;
writeOutput( zeroPower );
</cfscript>
- Output:
1
Commodore BASIC
Commodore computers use the up arrow key ↑ as the exponent operator.
- Output:
ready. print 0↑0 1 ready. █
Common Lisp
> (expt 0 0) 1
Crystal
puts "Int32: #{0_i32**0_i32}"
puts "Negative Int32: #{-0_i32**-0_i32}"
puts "Float32: #{0_f32**0_f32}"
puts "Negative Float32: #{-0_f32**-0_f32}"
- Output:
Int32: 1 Negative Int32: 1 Float32: 1.0 Negative Float32: 1.0
D
void main() {
import std.stdio, std.math, std.bigint, std.complex;
writeln("Int: ", 0 ^^ 0);
writeln("Ulong: ", 0UL ^^ 0UL);
writeln("Float: ", 0.0f ^^ 0.0f);
writeln("Double: ", 0.0 ^^ 0.0);
writeln("Real: ", 0.0L ^^ 0.0L);
writeln("pow: ", pow(0, 0));
writeln("BigInt: ", 0.BigInt ^^ 0);
writeln("Complex: ", complex(0.0, 0.0) ^^ 0);
}
- Output:
Int: 1 Ulong: 1 Float: 1 Double: 1 Real: 1 pow: 1 BigInt: 1 Complex: 1+0i
Dart
import 'dart:math';
void main() {
var resul = pow(0, 0);
print("0 ^ 0 = $resul");
}
- Output:
0 ^ 0 = 1
Dc
0 0^p
- Output:
1
Delphi
See Pascal.
EasyLang
print pow 0 0
EchoLisp
;; trying the 16 combinations
;; all return the integer 1
(lib 'bigint)
(define zeroes '(integer: 0 inexact=float: 0.000 complex: 0+0i bignum: #0))
(for* ((z1 zeroes) (z2 zeroes)) (write (expt z1 z2)))
→ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
Eiffel
print (0^0)
- Output:
1
Elena
ELENA 6.x
import extensions;
public program()
{
console.printLine("0^0 is ",0.power(0))
}
- Output:
0^0 is 0
Elixir
Elixir uses Erlang's :math
for power operations and can handle zero to the zero power.
:math.pow(0,0)
- Output:
1.0
Emacs Lisp
(expt 0 0)
- Output:
1
EMal
writeLine(0 ** 0) # an integer
writeLine(0.0 ** 0.0) # a real
- Output:
1 1.0
ERRE
.....
PRINT(0^0)
.....
- Output:
1
F#
In the REPL:
> let z = 0.**0.;; val z : float = 1.0
Factor
USING: math.functions.private ; ! ^complex
0 0 ^
C{ 0 0 } C{ 0 0 } ^complex
- Output:
--- Data stack: NAN: 8000000000000 C{ NAN: 8000000000000 NAN: 8000000000000 }
Falcon
VBA/Python programmer's approach not sure if it's the most falconic way
/* created by Aykayayciti Earl Lamont Montgomery
April 9th, 2018 */
x = 0
y = 0
z = x**y
> "z=", z
- Output:
z=1 [Finished in 0.2s]
Fermat
0^0
- Output:
1
Forth
0e 0e f** f.
- Output:
1.
Of course in an embedded program we would be tempted to "pre-calculate" the answer :-)
: ^0 DROP 1 ;
- Output:
0 ^0 . 1 ok
Fortran
program zero
double precision :: i, j
double complex :: z1, z2
i = 0.0D0
j = 0.0D0
z1 = (0.0D0,0.0D0)
z2 = (0.0D0,0.0D0)
write(*,*) 'When integers are used, we have 0^0 = ', 0**0
write(*,*) 'When double precision numbers are used, we have 0.0^0.0 = ', i**j
write(*,*) 'When complex numbers are used, we have (0.0+0.0i)^(0.0+0.0i) = ', z1**z2
end program
- Output:
When integers are used, we have 0^0 = 1 When double precision numbers are used, we have 0.0^0.0 = 1.0000000000000000 When complex numbers are used, we have (0.0+0.0i)^(0.0+0.0i) = ( NaN, NaN)
FreeBASIC
' FB 1.05.0 Win64
Print "0 ^ 0 ="; 0 ^ 0
Sleep
- Output:
0 ^ 0 = 1
Frink
println[0^0]
- Output:
1
FutureBasic
window 1
print 0^0
HandleEvents
Output:
1
Gambas
Click this link to run this code
Public Sub Main()
Print 0 ^ 0
End
Output:
1
GAP
0^0;
- Output:
1
Go
Go does not have an exponentiation operator but has functions in the standard library for three types, float64, complex128, and big.Int. As of Go 1.3, all are documented to return 1.
package main
import (
"fmt"
"math"
"math/big"
"math/cmplx"
)
func main() {
fmt.Println("float64: ", math.Pow(0, 0))
var b big.Int
fmt.Println("big integer:", b.Exp(&b, &b, nil))
fmt.Println("complex: ", cmplx.Pow(0, 0))
}
- Output:
float64: 1 big integer: 1 complex: (1+0i)
Golfscript
0 0?
- Output:
1
Groovy
Test:
println 0**0
- Output:
1
GW-BASIC
PRINT 0^0
- Output:
1
Haskell
import Data.Complex ( Complex((:+)) )
main :: IO ()
main = mapM_ print [
0 ^ 0,
0.0 ^ 0,
0 ^^ 0,
0 ** 0,
(0 :+ 0) ^ 0,
(0 :+ 0) ** (0 :+ 0)
]
- Output:
1 1.0 1.0 1.0 1.0 :+ 0.0 1.0 :+ 0.0
HolyC
F64 a = 0 ` 0;
Print("0 ` 0 = %5.3f\n", a);
- Output:
0 ` 0 = 1.000
Icon and Unicon
"Works" in both languages:
procedure main()
write(0^0)
end
- Output:
->z2z Run-time error 204 File z2z.icn; Line 2 real overflow, underflow, or division by zero Traceback: main() {0 ^ 0} from line 2 in z2z.icn ->
J
0 ^ 0
1
Note also that this is the multiplicative identity (which means that it's consistent with 1*0
representing 0^1
and with 1*0*0
representing 0^2
and with 1*0*0*0
representing 0^3
and with 1*2*2*2
representing 2^3
and so on. Also, this is the result of finding the product of an empty list:
*/''
1
(In */''
we're finding the product of a list which contains no characters. This is, of course, the same as the product of a list which contains no numbers when both lists contain neither. That said, characters are outside the domain of multiplication in J, so if the list had contained any characters the product would have been an error rather than a result.)
Java
System.out.println(Math.pow(0, 0));
- Output:
1.0
JavaScript
Math.pow
In interactive mode:
> Math.pow(0, 0);
1
exponentiation operator (**)
> 0**0
1
jq
Also works with gojq and fq
$ jq -n 'pow(0;0)' 1
It is also worth noting that in jq, gojq, and fq, `pow(0; infinite)` yields 0.
Jsish
puts(Math.pow(0,0));
- Output:
1
Julia
Try all combinations of complex, float, rational, integer and boolean.
using Printf
const types = (Complex, Float64, Rational, Int, Bool)
for Tb in types, Te in types
zb, ze = zero(Tb), zero(Te)
r = zb ^ ze
@printf("%10s ^ %-10s = %7s ^ %-7s = %-12s (%s)\n", Tb, Te, zb, ze, r, typeof(r))
end
- Output:
Complex ^ Complex = 0 + 0im ^ 0 + 0im = 1.0 + 0.0im (Complex{Float64}) Complex ^ Float64 = 0 + 0im ^ 0.0 = 1.0 + 0.0im (Complex{Float64}) Complex ^ Rational = 0 + 0im ^ 0//1 = 1.0 + 0.0im (Complex{Float64}) Complex ^ Int64 = 0 + 0im ^ 0 = 1 + 0im (Complex{Int64}) Complex ^ Bool = 0 + 0im ^ false = 1 + 0im (Complex{Int64}) Float64 ^ Complex = 0.0 ^ 0 + 0im = 1.0 + 0.0im (Complex{Float64}) Float64 ^ Float64 = 0.0 ^ 0.0 = 1.0 (Float64) Float64 ^ Rational = 0.0 ^ 0//1 = 1.0 (Float64) Float64 ^ Int64 = 0.0 ^ 0 = 1.0 (Float64) Float64 ^ Bool = 0.0 ^ false = 1.0 (Float64) Rational ^ Complex = 0//1 ^ 0 + 0im = 1.0 + 0.0im (Complex{Float64}) Rational ^ Float64 = 0//1 ^ 0.0 = 1.0 (Float64) Rational ^ Rational = 0//1 ^ 0//1 = 1.0 (Float64) Rational ^ Int64 = 0//1 ^ 0 = 1//1 (Rational{Int64}) Rational ^ Bool = 0//1 ^ false = 1//1 (Rational{Int64}) Int64 ^ Complex = 0 ^ 0 + 0im = 1.0 + 0.0im (Complex{Float64}) Int64 ^ Float64 = 0 ^ 0.0 = 1.0 (Float64) Int64 ^ Rational = 0 ^ 0//1 = 1.0 (Float64) Int64 ^ Int64 = 0 ^ 0 = 1 (Int64) Int64 ^ Bool = 0 ^ false = 1 (Int64) Bool ^ Complex = false ^ 0 + 0im = 1.0 + 0.0im (Complex{Float64}) Bool ^ Float64 = false ^ 0.0 = 1.0 (Float64) Bool ^ Rational = false ^ 0//1 = 1.0 (Float64) Bool ^ Int64 = false ^ 0 = true (Bool) Bool ^ Bool = false ^ false = true (Bool)
K
0^0
1.0
Klingphix
:mypower
dup not (
[ drop sign dup 0 equal [ drop 1 ] if ]
[ power ]
) if
;
0 0 mypower print nl
"End " input
- Output:
1 End
Kotlin
import kotlin.math.pow
fun main() {
println(0.0.pow(0))
}
- Output:
1.0
Lambdatalk
{pow 0 0}
-> 1
{exp 0 0}
-> 1
LDPL
data:
x is number
procedure:
raise 0 to 0 in x
display x lf
- Output:
1
Liberty BASIC
'********
print 0^0
'********
- Output:
1
Locomotive Basic
print 0🠅0
- Output:
1
Lua
No need to try different data types or with / without decimal points as all numbers in Lua are stored in double-precision floating-point format.
print(0^0)
- Output:
1
M2000 Interpreter
M2000 use ** and ^ for power.
Module Checkit {
x=0
y=0
Print x**y=1, x^y=1 ' True True
}
Checkit
Maple
0^0
- Output:
1
However, for consistency with IEEE-754 numerics, we also have a NaN result for the equivalent floating-point exponentiation:
0^0.0
- Output:
Float(undefined)
Mathematica/Wolfram Language
0^0
- Output:
Indeterminate
MATLAB / Octave
0^0
complex(0,0)^0
- Output:
1 1
Maxima
0^0;
- Output:
0 expt: undefined: 0
Mercury
:- module zero_to_the_zero_power.
:- interface.
:- import_module io.
:- pred main(io::di, io::uo) is det.
:- implementation.
:- import_module float, int, integer, list, string.
main(!IO) :-
io.format(" int.pow(0, 0) = %d\n", [i(pow(0, 0))], !IO),
io.format("integer.pow(zero, zero) = %s\n",
[s(to_string(pow(zero, zero)))], !IO),
io.format(" float.pow(0.0, 0) = %.1f\n", [f(pow(0.0, 0))], !IO).
:- end_module zero_to_the_zero_power.
- Output:
int.pow(0, 0) = 1 integer.pow(zero, zero) = 1 float.pow(0.0, 0) = 1.0
Microsoft Small Basic
TextWindow.WriteLine(Math.Power(0,0))
- Output:
1
min
0 0 pow puts
- Output:
1.0
MiniScript
print "The result of zero to the zero power is " + 0^0
- Output:
The result of zero to the zero power is 1
МК-61/52
Сx ^ x^y С/П
The result is error message.
Nanoquery
println 0^0
- Output:
1
Neko
Neko uses the C math library for exponentiation, Zero to the zero in math.pow(x, y) is treated as being 1.
/**
Zero to the zeroth power, in Neko
*/
var math_pow = $loader.loadprim("std@math_pow", 2)
$print(math_pow(0, 0), "\n")
- Output:
prompt$ nekoc zero-to-the-zero.neko prompt$ neko zero-to-the-zero.n 1
NetRexx
x=0
Say '0**0='||x**x
- Output:
0**0=1
NewLISP
(pow 0 0)
- Output:
1
Nial
Create an exponentiation table for all type combinations (of integer 0
, float 0.0
and boolean o
):
0 0.0 o outer power 0 0.0 o
+--+--+--+
| 1|1.| 1|
+--+--+--+
|1.|1.|1.|
+--+--+--+
| 1|1.| 1|
+--+--+--+
Nim
import math
echo pow(0.0, 0.0) # Floating point exponentiation.
echo 0 ^ 0 # Integer exponentiation.
- Output:
1.0 1
OCaml
In the interpreter:
# 0.0 ** 0.0;; - : float = 1. # Complex.pow Complex.zero Complex.zero;; - : Complex.t = {Complex.re = nan; Complex.im = nan} # #load "nums.cma";; # open Num;; # Int 0 **/ Int 0;; - : Num.num = Int 1
Oforth
0 0 pow println
- Output:
1
Ol
(print "0^0: " (expt 0 0))
(print "0.0^0: " (expt (inexact 0) 0))
- Output:
0^0: 1 0.0^0: 1
ooRexx
/**********************************************************************
* 21.04.2014 Walter Pachl
**********************************************************************/
Say 'rxCalcpower(0,0) ->' rxCalcpower(0,0)
Say '0**0 ->' 0**0
::requires rxmath library
- Output:
rxCalcpower(0,0) -> 1 0**0 -> 1
Openscad
echo (0^0);
PARI/GP
0 raised to the power of exact 0 is 1, but 0 cannot be raised to the power of an inexact 0:
0^0
0.^0
0^0.
- Output:
%1 = 1 %2 = 1 *** at top-level: 0^0. *** ^--- *** _^_: domain error in gpow(0,n): n <= 0 *** Break loop: type 'break' to go back to GP prompt
Pascal
program ZToZ;
uses
math;
begin
write('0.0 ^ 0 :',IntPower(0.0,0):4:2);
writeln(' 0.0 ^ 0.0 :',Power(0.0,0.0):4:2);
end.
- output
0.0 ^ 0 :1.00 0.0 ^ 0.0 :1.00
Perl
print 0 ** 0, "\n";
use Math::Complex;
print cplx(0,0) ** cplx(0,0), "\n";
- Output:
1 1
Phix
?power(0,0) requires("0.8.4") -- (now fixed/crashes on earlier versions) include complex.e complex a = complex_new(0,0), b = complex_power(a,a) string sa = complex_sprint(a,true), sb = complex_sprint(b,true) printf(1,"%s ^ %s = %s\n",{sa,sa,sb})
- Output:
1 0+0i ^ 0+0i = 1+0i
Phixmonti
def mypower
dup not if
. sign dup 0 == if . 1 endif
else
power
endif
enddef
0 0 mypower print
- Output:
1
PHP
<?php
echo pow(0,0);
echo 0 ** 0; // PHP 5.6+ only
?>
- Output:
1 1
PicoLisp
(** 0 0)
- Output:
1
Pike
write( pow(0, 0) +"\n" );
- Output:
1
PL/I
zhz: Proc Options(Main);
Dcl a dec float(10) Init(1);
Dcl b dec float(10) Init(0);
Put skip list('1**0=',a**b);
Put skip list('0**1=',b**a);
Put skip list('0**0=',b**b);
End;
- Output:
1**0= 1.000000000E+0000 0**1= 0.000000000E+0000 0**0= IBM0682I ONCODE=1553 X in EXPONENT(X) was invalid. At offset +0000025B in procedure with entry ZHZ
Plain English
To run:
Start up.
Put 0 into a number.
Raise the number to 0.
Convert the number to a string.
Write the string to the console.
Wait for the escape key.
Shut down.
- Output:
1
PowerShell
Write-Host "0 ^ 0 = " ([math]::pow(0,0))
Output :
0 ^ 0 = 1
PureBasic
If OpenConsole()
PrintN("Zero to the zero power is " + Pow(0,0))
PrintN("")
PrintN("Press any key to close the console")
Repeat: Delay(10) : Until Inkey() <> ""
CloseConsole()
EndIf
- Output:
Zero to the zero power is 1
Pyret
num-expt(0, 0)
- Output:
1
Python
Python3
from decimal import Decimal
from fractions import Fraction
from itertools import product
zeroes = [0, 0.0, 0j, Decimal(0), Fraction(0, 1), -0.0, -0.0j, Decimal(-0.0)]
for i, j in product(zeroes, repeat=2):
try:
ans = i**j
except:
ans = '<Exception raised>'
print(f'{i!r:>15} ** {j!r:<15} = {ans!r}')
- Output:
0 ** 0 = 1 0 ** 0.0 = 1.0 0 ** 0j = (1+0j) 0 ** Decimal('0') = '<Exception raised>' 0 ** Fraction(0, 1) = 1 0 ** -0.0 = 1.0 0 ** (-0-0j) = (1+0j) 0 ** Decimal('-0') = '<Exception raised>' 0.0 ** 0 = 1.0 0.0 ** 0.0 = 1.0 0.0 ** 0j = (1+0j) 0.0 ** Decimal('0') = '<Exception raised>' 0.0 ** Fraction(0, 1) = 1.0 0.0 ** -0.0 = 1.0 0.0 ** (-0-0j) = (1+0j) 0.0 ** Decimal('-0') = '<Exception raised>' 0j ** 0 = (1+0j) 0j ** 0.0 = (1+0j) 0j ** 0j = (1+0j) 0j ** Decimal('0') = '<Exception raised>' 0j ** Fraction(0, 1) = (1+0j) 0j ** -0.0 = (1+0j) 0j ** (-0-0j) = (1+0j) 0j ** Decimal('-0') = '<Exception raised>' Decimal('0') ** 0 = '<Exception raised>' Decimal('0') ** 0.0 = '<Exception raised>' Decimal('0') ** 0j = '<Exception raised>' Decimal('0') ** Decimal('0') = '<Exception raised>' Decimal('0') ** Fraction(0, 1) = '<Exception raised>' Decimal('0') ** -0.0 = '<Exception raised>' Decimal('0') ** (-0-0j) = '<Exception raised>' Decimal('0') ** Decimal('-0') = '<Exception raised>' Fraction(0, 1) ** 0 = Fraction(1, 1) Fraction(0, 1) ** 0.0 = 1.0 Fraction(0, 1) ** 0j = (1+0j) Fraction(0, 1) ** Decimal('0') = '<Exception raised>' Fraction(0, 1) ** Fraction(0, 1) = Fraction(1, 1) Fraction(0, 1) ** -0.0 = 1.0 Fraction(0, 1) ** (-0-0j) = (1+0j) Fraction(0, 1) ** Decimal('-0') = '<Exception raised>' -0.0 ** 0 = 1.0 -0.0 ** 0.0 = 1.0 -0.0 ** 0j = (1+0j) -0.0 ** Decimal('0') = '<Exception raised>' -0.0 ** Fraction(0, 1) = 1.0 -0.0 ** -0.0 = 1.0 -0.0 ** (-0-0j) = (1+0j) -0.0 ** Decimal('-0') = '<Exception raised>' (-0-0j) ** 0 = (1+0j) (-0-0j) ** 0.0 = (1+0j) (-0-0j) ** 0j = (1+0j) (-0-0j) ** Decimal('0') = '<Exception raised>' (-0-0j) ** Fraction(0, 1) = (1+0j) (-0-0j) ** -0.0 = (1+0j) (-0-0j) ** (-0-0j) = (1+0j) (-0-0j) ** Decimal('-0') = '<Exception raised>' Decimal('-0') ** 0 = '<Exception raised>' Decimal('-0') ** 0.0 = '<Exception raised>' Decimal('-0') ** 0j = '<Exception raised>' Decimal('-0') ** Decimal('0') = '<Exception raised>' Decimal('-0') ** Fraction(0, 1) = '<Exception raised>' Decimal('-0') ** -0.0 = '<Exception raised>' Decimal('-0') ** (-0-0j) = '<Exception raised>' Decimal('-0') ** Decimal('-0') = '<Exception raised>'
Python2
from decimal import Decimal
from fractions import Fraction
for n in (Decimal(0), Fraction(0, 1), complex(0), float(0), int(0)):
try:
n1 = n**n
except:
n1 = '<Raised exception>'
try:
n2 = pow(n, n)
except:
n2 = '<Raised exception>'
print('%8s: ** -> %r; pow -> %r' % (n.__class__.__name__, n1, n2))
- Output:
Decimal: ** -> '<Raised exception>'; pow -> '<Raised exception>' Fraction: ** -> Fraction(1, 1); pow -> Fraction(1, 1) complex: ** -> (1+0j); pow -> (1+0j) float: ** -> 1.0; pow -> 1.0 int: ** -> 1; pow -> 1
QB64
Print 0 ^ 0
- Output:
1
Alternatively:
i% = 0 'Integer
l& = 0 'Long integer
s! = 0.0 'Single precision floating point
d# = 0.0 'Double precision floating point
b` = 0 '_Bit
bb%% = 0 '_Byte
isf&& = 0 '_Integer64
Print i% ^ i%
Print l& ^ l&
Print s! ^ s!
Print d# ^ d#
Print b` ^ b`
Print bb%% ^ bb%%
Print isf&& ^ isf&&
- Output:
NB: Values with 0 decimals are trimmed by Print's casting from number value to String.
1 1 1 1 1 1 1
Quackery
As a dialogue in the Quackery shell.
/O> 0 0 **
...
Stack: 1
R
print(0^0)
- Output:
1
Racket
#lang racket
;; as many zeros as I can think of...
(define zeros (list
0 ; unspecified number type
0. ; hinted as float
#e0 ; explicitly exact
#i0 ; explicitly inexact
0+0i ; exact complex
0.+0.i ; float inexact
))
(for*((z zeros) (p zeros))
(printf "(~a)^(~a) = ~s~%" z p
(with-handlers [(exn:fail:contract:divide-by-zero? exn-message)]
(expt z p))))
- Output:
(0)^(0) = 1 (0)^(0.0) = 1.0 (0)^(0) = 1 (0)^(0.0) = 1.0 (0)^(0) = 1 (0)^(0.0+0.0i) = "expt: undefined for 0 and 0.0+0.0i" (0.0)^(0) = 1 (0.0)^(0.0) = 1.0 (0.0)^(0) = 1 (0.0)^(0.0) = 1.0 (0.0)^(0) = 1 (0.0)^(0.0+0.0i) = +nan.0+nan.0i (0)^(0) = 1 (0)^(0.0) = 1.0 (0)^(0) = 1 (0)^(0.0) = 1.0 (0)^(0) = 1 (0)^(0.0+0.0i) = "expt: undefined for 0 and 0.0+0.0i" (0.0)^(0) = 1 (0.0)^(0.0) = 1.0 (0.0)^(0) = 1 (0.0)^(0.0) = 1.0 (0.0)^(0) = 1 (0.0)^(0.0+0.0i) = +nan.0+nan.0i (0)^(0) = 1 (0)^(0.0) = 1.0 (0)^(0) = 1 (0)^(0.0) = 1.0 (0)^(0) = 1 (0)^(0.0+0.0i) = "expt: undefined for 0 and 0.0+0.0i" (0.0+0.0i)^(0) = 1 (0.0+0.0i)^(0.0) = 1.0+0.0i (0.0+0.0i)^(0) = 1 (0.0+0.0i)^(0.0) = 1.0+0.0i (0.0+0.0i)^(0) = 1 (0.0+0.0i)^(0.0+0.0i) = +nan.0+nan.0i
Raku
(formerly Perl 6)
say ' type n n**n exp(n,n)';
say '-------- -------- -------- --------';
for 0, 0.0, FatRat.new(0), 0e0, 0+0i {
printf "%8s %8s %8s %8s\n", .^name, $_, $_**$_, exp($_,$_);
}
- Output:
type n n**n exp(n,n) -------- -------- -------- -------- Int 0 1 1 Rat 0 1 1 FatRat 0 1 1 Num 0 1 1 Complex 0+0i 1+0i 1+0i
Red
Shown using the operator, the function, and the math
mini-DSL that uses the order of operations from mathematics:
Red[]
print 0 ** 0
print power 0 0
print math [0 ** 0]
- Output:
1 1 1
Relation
echo pow(0,0)
// 1
REXX
/*REXX program shows the results of raising zero to the zeroth power.*/
say '0 ** 0 (zero to the zeroth power) ───► ' 0**0
using PC/REXX
using Personal REXX
using REGINA
using ooRexx
- Output:
0 ** 0 (zero to the zeroth power) ───► 1
using R4
- Output:
Error 26 : Invalid whole number (SYNTAX) Information: 0 ** 0 is undefined Error occurred in statement# 2 Statement source: say '0 ** 0 (zero to the zeroth power) ───► ' 0**0 Statement context: C:\ZERO_TO0.REX, procedure: ZERO_TO0
using ROO
- Output:
Error 26 : Invalid whole number (SYNTAX) Information: 0 ** 0 is undefined Error occurred in statement# 2 Statement source: say '0 ** 0 (zero to the zeroth power) ───► ' 0**0 Statement context: C:\ZERO_TO0.REX, procedure: ZERO_TO0
Ring
x = 0
y = 0
z = pow(x,y)
see "z=" + z + nl # z=1
RPL
0 0 ^
Output for HP-48G and older models
1: 1
Output for HP-49 and newer models
1: ?
Ruby
require 'bigdecimal'
[0, 0.0, Complex(0), Rational(0), BigDecimal("0")].each do |n|
printf "%10s: ** -> %s\n" % [n.class, n**n]
end
- Output:
Integer: ** -> 1 Float: ** -> 1.0 Complex: ** -> 1+0i Rational: ** -> 1/1 BigDecimal: ** -> 0.1e1
Rust
fn main() {
println!("{}",0u32.pow(0));
}
- Output:
1
S-lang
print(0^0);
- Output:
1.0
Scala
assert(math.pow(0, 0) == 1, "Scala blunder, should go back to school !")
Scheme
(display (expt 0 0)) (newline)
(display (expt 0.0 0.0)) (newline)
(display (expt 0+0i 0+0i)) (newline)
- Output:
1 1.0 1.0
Seed7
$ include "seed7_05.s7i";
include "float.s7i";
include "complex.s7i";
const proc: main is func
begin
writeln("0 ** 0 = " <& 0 ** 0);
writeln("0.0 ** 0 = " <& 0.0 ** 0);
writeln("0.0 ** 0.0 = " <& 0.0 ** 0.0);
writeln("0.0+0i ** 0 = " <& complex(0.0) ** 0);
end func;
- Output:
0 ** 0 = 1 0.0 ** 0 = 1.0 0.0 ** 0.0 = 1.0 0.0+0i ** 0 = 1.0+0.0i
SenseTalk
set a to 0
set b to 0
put a to the power of b
// Prints: 1
Sidef
[0, Complex(0, 0)].each {|n|
say n**n
}
- Output:
1 1
Taking the 0'th root of a number and raising it back to the zero power, we also get a 1:
say 0.root(0).pow(0) # => 1
say ((0**(1/0))**0) # => 1
Sinclair ZX81 BASIC
PRINT 0**0
- Output:
1
Smalltalk
0 raisedTo: 0
0.0 raisedTo: 0.0
- Output:
1 1.0
smart BASIC
PRINT 0^0
- Output:
1
SNOBOL4
OUTPUT = (0 ** 0)
END
SQL
SQL> select power(0,0) from dual;
- Output:
POWER(0,0) ---------- 1
Standard ML
In the interpreter:
- Math.pow (0.0, 0.0); val it = 1.0 : real
Stata
. display 0^0
1
Swift
import Darwin
print(pow(0.0,0.0))
- Output:
1.0
Symsyn
(0^0) []
- Output:
1
Tcl
Interactively…
% expr 0**0
1
% expr 0.0**0.0
1.0
TI SR-56
0 Yx 0 =
- Output:
1
TI-83_BASIC
0^0
- Output:
ERROR:DOMAIN
uBasic/4tH
Print 0^0
- Output:
1 0 OK, 0:9
Ursa
Cygnus/X Ursa is written in Java, and as a result returns 1.0 when raising 0 to the 0.
> out (pow 0 0) endl console
1.0
VBA
Public Sub zero()
x = 0
y = 0
z = 0 ^ 0
Debug.Print "z ="; z
End Sub
- Output:
z = 1
VBScript
WScript.Echo 0 ^ 0
- Output:
1
Verilog
module main;
initial begin
$display("0 ^ 0 = ", 0**0);
$finish ;
end
endmodule
- Output:
0 ^ 0 = 1
Visual Basic .NET
Module Program
Sub Main()
Console.Write(0^0)
End Sub
End Module
- Output:
1
V (Vlang)
// Zero to the zero power, in V
// Tectonics: v run zero-to-the-zero-power.v
module main
import math
// starts here
// V does not include an exponentiation operator, but uses a math module
pub fn main() {
println(math.pow(0, 0))
}
- Output:
prompt$ v run rosetta/zero-to-the-zero-power.v 1.
Wren
System.print(0.pow(0))
- Output:
1
XLISP
XLISP 3.3, September 6, 2002 Copyright (c) 1984-2002, by David Betz
[1] (expt 0 0)
1
[2]
XPL0
RlOut(0, Pow(0., 0.))
- Output:
1.00000
Zig
const std = @import("std");
pub fn main() !void {
const stdout = std.io.getStdOut().writer();
try stdout.print("0^0 = {d:.8}\n", .{std.math.pow(f32, 0, 0)});
}
- Output:
0^0 = 1.00000000
zkl
(0.0).pow(0) //--> 1.0
var BN=Import("zklBigNum"); // big ints
BN(0).pow(0) //--> 1
- Programming Tasks
- Solutions by Programming Task
- Simple
- 6502 Assembly/Omit
- 8080 Assembly/Omit
- Computer/zero Assembly/Omit
- Z80 Assembly/Omit
- 68000 Assembly/Omit
- 8086 Assembly/Omit
- MIPS Assembly/Omit
- ARM Assembly/Omit
- 11l
- 8th
- AArch64 Assembly/Omit
- Action!
- Action! Tool Kit
- Ada
- ALGOL 68
- APL
- AppleScript
- Applesoft BASIC
- Arturo
- Asymptote
- AutoHotkey
- AWK
- BaCon
- BASIC
- BASIC256
- Chipmunk Basic
- MSX Basic
- QBasic
- Run BASIC
- True BASIC
- XBasic
- ZX Spectrum Basic
- BBC BASIC
- Bc
- Befunge
- Binary Lambda Calculus
- BQN
- Bracmat
- Burlesque
- C
- C sharp
- C++
- Caché ObjectScript
- Clojure
- CLU
- COBOL
- ColdFusion
- Commodore BASIC
- Common Lisp
- Crystal
- D
- Dart
- Dc
- Delphi
- EasyLang
- EchoLisp
- Eiffel
- Elena
- Elixir
- Emacs Lisp
- EMal
- ERRE
- F Sharp
- Factor
- Falcon
- Fermat
- Forth
- Fortran
- FreeBASIC
- Frink
- FutureBasic
- Gambas
- GAP
- Go
- Golfscript
- Groovy
- GW-BASIC
- Haskell
- HolyC
- Icon
- Unicon
- J
- Java
- JavaScript
- Jq
- Jsish
- Julia
- K
- Klingphix
- Kotlin
- Lambdatalk
- LDPL
- Liberty BASIC
- Locomotive Basic
- Lua
- M2000 Interpreter
- Maple
- Mathematica
- Wolfram Language
- MATLAB
- Octave
- Maxima
- Mercury
- Microsoft Small Basic
- Min
- MiniScript
- МК-61/52
- Nanoquery
- Neko
- NetRexx
- NewLISP
- Nial
- Nim
- OCaml
- Oforth
- Ol
- OoRexx
- Openscad
- PARI/GP
- Pascal
- Math
- Perl
- Phix
- Phix/basics
- Phixmonti
- PHP
- PicoLisp
- Pike
- PL/I
- Plain English
- PowerShell
- PureBasic
- Pyret
- Python
- QB64
- Quackery
- R
- Racket
- Raku
- Red
- Relation
- REXX
- Ring
- RPL
- Ruby
- Rust
- S-lang
- Scala
- Scheme
- Seed7
- SenseTalk
- Sidef
- Sinclair ZX81 BASIC
- Smalltalk
- Smart BASIC
- SNOBOL4
- SQL
- Standard ML
- Stata
- Swift
- Symsyn
- Tcl
- TI SR-56
- TI-83 BASIC
- UBasic/4tH
- Ursa
- VBA
- VBScript
- Verilog
- Visual Basic .NET
- V (Vlang)
- Wren
- XLISP
- XPL0
- Zig
- Zkl