Exception for Diagrams.Solve.Polynomial:quartForm from diagrams-solve-0.1, A

Math

\[x - \frac{3}{8} \cdot y \]

FPCore

(FPCore (x y) :precision binary64 (- x (* (/ 3.0 8.0) y)))

C

double code(double x, double y) {
	return x - ((3.0 / 8.0) * y);
}

Fortran

real(8) function code(x, y)
    real(8), intent (in) :: x
    real(8), intent (in) :: y
    code = x - ((3.0d0 / 8.0d0) * y)
end function

Java

public static double code(double x, double y) {
	return x - ((3.0 / 8.0) * y);
}

Python

def code(x, y):
	return x - ((3.0 / 8.0) * y)

Julia

function code(x, y)
	return Float64(x - Float64(Float64(3.0 / 8.0) * y))
end

MATLAB

function tmp = code(x, y)
	tmp = x - ((3.0 / 8.0) * y);
end

Wolfram

code[x_, y_] := N[(x - N[(N[(3.0 / 8.0), $MachinePrecision] * y), $MachinePrecision]), $MachinePrecision]

Reproduce

Please include this information when filing a bug report:

herbie shell --seed 2023241 
(FPCore (x y)
  :name "Diagrams.Solve.Polynomial:quartForm  from diagrams-solve-0.1, A"
  :precision binary64
  (- x (* (/ 3.0 8.0) y)))

Backtrace

inexact?: contract violation expected: number? given: (ival (bf "-2.098578716467387692404358116883839070632e323228496") (bf "2.098578716467387692404358116883839070632e323228496"))		L	C
real->bigfloat	/usr/share/racket/pkgs/math-lib/math/private/bigfloat/mpfr.rkt	470	0
...row-higher-order.rkt:375:33	/usr/share/racket/collects/racket/contract/private/arrow-higher-order.rkt	375	33
arg->precision	/home/nightlies/herbie/arb-support/src/programs.rkt	138	11
f	/home/nightlies/herbie/arb-support/src/programs.rkt	190	2
(unnamed)	/home/nightlies/herbie/arb-support/src/ground-truth.rkt	23	2
search-step	/home/nightlies/herbie/arb-support/src/searchreals.rkt	37	0
find-intervals	/home/nightlies/herbie/arb-support/src/searchreals.rkt	87	0
make-sampler	/home/nightlies/herbie/arb-support/src/sampling.rkt	94	0
sample-points	/home/nightlies/herbie/arb-support/src/ground-truth.rkt	64	0
setup-context!	/home/nightlies/herbie/arb-support/src/mainloop.rkt	293	0
get-alternatives/report	/home/nightlies/herbie/arb-support/src/sandbox.rkt	148	0
(unnamed)	/home/nightlies/herbie/arb-support/src/sandbox.rkt	247	6
(unnamed)	/usr/share/racket/pkgs/profile-lib/main.rkt	40	10
profile-thunk	/usr/share/racket/pkgs/profile-lib/main.rkt	9	0
(unnamed)	/usr/share/racket/collects/racket/engine.rkt	42	24