Exception for ENA, Section 1.4, Exercise 4a

\[-1 \leq x \land x \leq 1\]

Math

\[\frac{x - \sin x}{\tan x} \]

FPCore

(FPCore (x) :precision binary64 (/ (- x (sin x)) (tan x)))

C

double code(double x) {
	return (x - sin(x)) / tan(x);
}

Fortran

real(8) function code(x)
    real(8), intent (in) :: x
    code = (x - sin(x)) / tan(x)
end function

Java

public static double code(double x) {
	return (x - Math.sin(x)) / Math.tan(x);
}

Python

def code(x):
	return (x - math.sin(x)) / math.tan(x)

Julia

function code(x)
	return Float64(Float64(x - sin(x)) / tan(x))
end

MATLAB

function tmp = code(x)
	tmp = (x - sin(x)) / tan(x);
end

Wolfram

code[x_] := N[(N[(x - N[Sin[x], $MachinePrecision]), $MachinePrecision] / N[Tan[x], $MachinePrecision]), $MachinePrecision]

Reproduce

Please include this information when filing a bug report:

herbie shell --seed 2023033 
(FPCore (x)
  :name "ENA, Section 1.4, Exercise 4a"
  :precision binary64
  :pre (and (<= -1.0 x) (<= x 1.0))

  :herbie-target
  (* 0.16666666666666666 (* x x))

  (/ (- x (sin x)) (tan x)))

Backtrace

map: contract violation expected: list? given: #<eof>		L	C
gen-map	/usr/share/racket/collects/racket/private/map.rkt	257	2
run-egglog	/home/nightlies/herbie/oflatt-egglog-ctx/src/egglog/run-egglog.rkt	1456	0
run-simplify-input	/home/nightlies/herbie/oflatt-egglog-ctx/src/core/simplify.rkt	73	0
simplify-batch	/home/nightlies/herbie/oflatt-egglog-ctx/src/core/simplify.rkt	48	0
(unnamed)	/usr/share/racket/collects/racket/contract/private/arrow-higher-order.rkt	379	33
simplify!	/home/nightlies/herbie/oflatt-egglog-ctx/src/patch.rkt	246	0
patch-table-run	/home/nightlies/herbie/oflatt-egglog-ctx/src/patch.rkt	318	0
(unnamed)	/usr/share/racket/collects/racket/contract/private/arrow-val-first.rkt	486	18
run-iter!	/home/nightlies/herbie/oflatt-egglog-ctx/src/mainloop.rkt	262	0
mutate!	/home/nightlies/herbie/oflatt-egglog-ctx/src/mainloop.rkt	372	0
run-improve!	/home/nightlies/herbie/oflatt-egglog-ctx/src/mainloop.rkt	320	0
run-herbie	/home/nightlies/herbie/oflatt-egglog-ctx/src/sandbox.rkt	57	0
(unnamed)	/home/nightlies/herbie/oflatt-egglog-ctx/src/sandbox.rkt	133	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