Exception for Difference of squares

• 45.2% of points produce a very large (infinite) output. You may want to add a precondition.

Specification

Math

\[\begin{array}{l} \\ a \cdot a - b \cdot b \end{array} \]

FPCore

(FPCore (a b) :precision binary64 (- (* a a) (* b b)))

C

double code(double a, double b) {
	return (a * a) - (b * b);
}

Fortran

real(8) function code(a, b)
    real(8), intent (in) :: a
    real(8), intent (in) :: b
    code = (a * a) - (b * b)
end function

Java

public static double code(double a, double b) {
	return (a * a) - (b * b);
}

Python

def code(a, b):
	return (a * a) - (b * b)

Julia

function code(a, b)
	return Float64(Float64(a * a) - Float64(b * b))
end

MATLAB

function tmp = code(a, b)
	tmp = (a * a) - (b * b);
end

Wolfram

code[a_, b_] := N[(N[(a * a), $MachinePrecision] - N[(b * b), $MachinePrecision]), $MachinePrecision]

Reproduce

herbie shell --seed 2024246 
(FPCore (a b)
  :name "Difference of squares"
  :precision binary64

  :alt
  (! :herbie-platform default (* (+ a b) (- a b)))

  (- (* a a) (* b b)))

Please file a bug report with this information.

Backtrace

map: contract violation expected: list? given: '((-.f64 (*.f64 a a) (*.f64 b b)) . #hasheq((errs . (1 1 1 1 1 1 1 1 1 1 1 1 18439988674268495873 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2251799813685249 1 1 1 1 1 1 1 1 1 1 1 1 1 18439988674268495873 1 1 1 1 1 1 1 1 1 1 1 1 2 1 1 225179981368524...		L	C
gen-map	/usr/local/racket/collects/racket/private/map.rkt	257	2
actual-errors	/home/nightlies/herbie/zane-concrete-values/src/core/explain.rkt	35	0
generate-timelines	/home/nightlies/herbie/zane-concrete-values/src/core/explain.rkt	493	0
explain!	/home/nightlies/herbie/zane-concrete-values/src/core/mainloop.rkt	322	0
run-improve!	/home/nightlies/herbie/zane-concrete-values/src/core/mainloop.rkt	44	0
get-alternatives/report	/home/nightlies/herbie/zane-concrete-values/src/api/sandbox.rkt	186	0
(unnamed)	/home/nightlies/herbie/zane-concrete-values/src/api/sandbox.rkt	282	6
(unnamed)	/usr/local/racket/share/pkgs/profile-lib/main.rkt	40	10
profile-thunk	/usr/local/racket/share/pkgs/profile-lib/main.rkt	9	0
(unnamed)	/usr/local/racket/collects/racket/engine.rkt	42	24