sqrt A (should all be same)

Average Error: 51.8% → 100.0%

Time: 2.6s

Precision: binary64

Cost: 6528.00

Math

\[\sqrt{x \cdot x + x \cdot x} \]

↓

\[\mathsf{hypot}\left(x, x\right) \]

FPCore

(FPCore (x) :precision binary64 (sqrt (+ (* x x) (* x x))))

↓

(FPCore (x) :precision binary64 (hypot x x))

C

double code(double x) {
	return sqrt(((x * x) + (x * x)));
}

↓

double code(double x) {
	return hypot(x, x);
}

Java

public static double code(double x) {
	return Math.sqrt(((x * x) + (x * x)));
}

↓

public static double code(double x) {
	return Math.hypot(x, x);
}

Python

def code(x):
	return math.sqrt(((x * x) + (x * x)))

↓

def code(x):
	return math.hypot(x, x)

Julia

function code(x)
	return sqrt(Float64(Float64(x * x) + Float64(x * x)))
end

↓

function code(x)
	return hypot(x, x)
end

MATLAB

function tmp = code(x)
	tmp = sqrt(((x * x) + (x * x)));
end

↓

function tmp = code(x)
	tmp = hypot(x, x);
end

Wolfram

code[x_] := N[Sqrt[N[(N[(x * x), $MachinePrecision] + N[(x * x), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]

↓

code[x_] := N[Sqrt[x ^ 2 + x ^ 2], $MachinePrecision]

Derivation

1. Initial program 51.8

   \[\sqrt{x \cdot x + x \cdot x} \]

2. Simplified 100.0

   \[\leadsto \color{blue}{\mathsf{hypot}\left(x, x\right)} \]
   Proof

   [Start] 51.8	\[ \sqrt{x \cdot x + x \cdot x} \]
   hypot-def [=>] 100.0	\[ \color{blue}{\mathsf{hypot}\left(x, x\right)} \]

3. Final simplification 100.0

   \[\leadsto \mathsf{hypot}\left(x, x\right) \]

Alternatives

Alternative 1
Error	12.9%
Cost	452.00

\[\begin{array}{l} \mathbf{if}\;x \leq -5 \cdot 10^{-310}:\\ \;\;\;\;4 \cdot \left(x \cdot x\right)\\ \mathbf{else}:\\ \;\;\;\;x + x\\ \end{array} \]

Alternative 2
Error	12.9%
Cost	452.00

\[\begin{array}{l} \mathbf{if}\;x \leq -5 \cdot 10^{-310}:\\ \;\;\;\;x \cdot \left(x + x\right)\\ \mathbf{else}:\\ \;\;\;\;x + x\\ \end{array} \]

Alternative 3
Error	6.4%
Cost	192.00

\[x + -2 \]

Alternative 4
Error	11.4%
Cost	192.00

\[x + x \]

Alternative 5
Error	1.7%
Cost	64.00

\[-1 \]

Reproduce

herbie shell --seed 2023093 
(FPCore (x)
  :name "sqrt A (should all be same)"
  :precision binary64
  (sqrt (+ (* x x) (* x x))))