sqrt A (should all be same)

Average Error: 47.44% → 0.03%

Time: 2.3s

Precision: binary64

Cost: 6528

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 47.44

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

2. Simplified 0.03

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

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

3. Final simplification 0.03

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

Alternatives

Alternative 1
Error	90.89%
Cost	324

\[\begin{array}{l} \mathbf{if}\;x \leq 4:\\ \;\;\;\;2\\ \mathbf{else}:\\ \;\;\;\;x + -2\\ \end{array} \]

Alternative 2
Error	86.84%
Cost	324

\[\begin{array}{l} \mathbf{if}\;x \leq -4.1 \cdot 10^{-206}:\\ \;\;\;\;2\\ \mathbf{else}:\\ \;\;\;\;x + x\\ \end{array} \]

Alternative 3
Error	98.33%
Cost	64

\[-1 \]

Alternative 4
Error	96.19%
Cost	64

\[0 \]

Alternative 5
Error	94.61%
Cost	64

\[2 \]

Reproduce

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