Skip to content

Instantly share code, notes, and snippets.

@samth
Created July 8, 2019 20:42
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save samth/24fbcb3304b84ad1f6d4d53f153c8168 to your computer and use it in GitHub Desktop.
Save samth/24fbcb3304b84ad1f6d4d53f153c8168 to your computer and use it in GitHub Desktop.
not same result untyped: +nan.0+nan.0i typed: +nan.0+0.0i
(/ 2.3454025 (flmin (real->double-flonum 1.797693134862315e+308) (real->double-flonum -1.2848677e+32)) (make-rectangular +nan.0 0.0))
not same result untyped: -0.0-0.0i typed: -0.0+nan.0i
(/ (+ (real->double-flonum 0.41378116537811604) (real->double-flonum 1)) (round (real->double-flonum 1.8869765)) (make-rectangular -1/2 1.7976931348623157e+308))
not same result untyped: 0.0-0.0i typed: 0.0+nan.0i
(/ (+ (exact-round 1.8655746e+35) (exact-round 1)) 2.0324421e-21 (make-rectangular 4 1.7976931348623157e+308))
not same result untyped: -3.701631435361851+1.5e-322i typed: +nan.0+0.0i
(/ (bitwise-not (exact-round 0.9279912613796584)) (flcos (real->double-flonum -1)) (+ (make-rectangular 1 4e-323)))
not same result untyped: -0.0+0.0i typed: +nan.0+0.0i
(/ (make-rectangular -1.7976931348623157e+308 -1.0118355e-14))
not same result untyped: -0.2-0.0i typed: +nan.0-0.0i
(/ (make-rectangular -5 2e-323))
not same result untyped: -2.3480354005364233e-300-3.8135844188303834e+24i typed: -0.0+nan.0i
(/ -1144.6757051834838 1.8702761e-23 (make-rectangular 1e-323 -16.04883))
not same result untyped: 2.5922170946555414-1.5e-323i typed: +nan.0-0.0i
(/ 4 (cosh (make-rectangular 1 1e-323)))
not same result untyped: 0.0-0.0i typed: +nan.0-0.0i
(/ 1.7976931348623141e+308 (make-rectangular (min 1.5e-323 +inf.0 -1.7976931348623147e+308) -0.766481613292698) (unsafe-fl+ (sub1 (real->double-flonum 0.6712944)) (real->double-flonum 0.0)))
not same result untyped: -7.976850792053209e+307+6.995069365946365e-16i typed: +nan.0+0.0i
(/ -1.797693134862314e+308 (flexp (real->double-flonum 0)) (make-rectangular (sqrt 5.0788827) (min 2e-323)))
not same result untyped: +nan.0+nan.0i typed: +inf.0+0.0i
(/ (make-polar 0.0 (max (real->double-flonum 2) (real->double-flonum 30.317604))))
not same result untyped: +nan.0+nan.0i typed: -inf.0+nan.0i
(/ -8.302019e-6 (make-polar 0.0 5.560084769914483) (abs (real->double-flonum 0)))
not same result untyped: +nan.0+nan.0i typed: +inf.0+0.0i
(/ (* 0.0 (make-rectangular -7 6e-323) -1.7976931348623155e+308))
not same result untyped: 1e-322+2.0i typed: 0.0+nan.0i
(/ (+ (make-rectangular 2.5e-323 -1/2) (* (exact-round 0) (exact-round -6.85372) (exact-round -1/2))))
not same result untyped: 0.4655272429403348-0.0i typed: +nan.0-0.0i
(/ (make-rectangular 2.1481019965316337 1e-323))
not same result untyped: -0.0+2.40129835e-29i typed: -0.0+nan.0i
(/ (+ (real->double-flonum -9.6051934e-29) (real->double-flonum 0)) (make-rectangular 1.5e-323 4))
not same result untyped: 1.6613238491677433e-13-0.0i typed: +nan.0-0.0i
(/ (make-rectangular 6.019296e+12 1e-323))
not same result untyped: +nan.0+nan.0i typed: -inf.0+0.0i
(/ -5 2/7 (make-polar -0.0 (fltan (real->double-flonum -3.833043e+21))))
not same result untyped: -9.0651197858688e-54+9.080760665255492e+288i typed: -0.0+nan.0i
(/ (min (real->double-flonum 3) (real->double-flonum -1.7976931348623157e+308) (real->double-flonum 3/2)) (make-rectangular 2e-323 1.9796724097581277e+19))
not same result untyped: -1.3451028767099911e+26+5.316552972037123e-297i typed: +nan.0+0.0i
(/ (tan (real->double-flonum 9)) 3.3626845e-27 (make-rectangular 1 4e-323))
not same result untyped: +nan.0+nan.0i typed: +inf.0-0.0i
(/ (/ 1e-323 (make-rectangular 4 -1.7976931348623145e+308) (add1 (exact-round -0.0))))
not same result untyped: +nan.0+nan.0i typed: -inf.0-0.0i
(/ (make-polar -0.0 -0.0))
not same result untyped: 8.686650436982806+2.1e-322i typed: +nan.0+0.0i
(/ (sinh (sqr 2)) (make-rectangular (max (real->double-flonum 21/40) (real->double-flonum 2) (real->double-flonum -1)) (/ 6e-323 -15/13)) (unsafe-fl* (real->double-flonum 1) (flatan (real->double-flonum 7.9906573e+31))))
not same result untyped: 3.9599206e-16-0.0i typed: +nan.0-0.0i
(/ (make-rectangular (/ (real->double-flonum 3.9599206e-16)) (unsafe-flabs (real->double-flonum 1e-323))))
not same result untyped: +nan.0+nan.0i typed: +inf.0+0.0i
(/ (make-rectangular (floor 5e-324) -0.0))
not same result untyped: 0.9883340996217054-5e-324i typed: +nan.0-0.0i
(/ (make-rectangular 1.0118036 5e-324))
not same result untyped: 0.0-0.0i typed: +nan.0-0.0i
(/ (min 4 -1) (make-rectangular -1.7976931348623157e+308 -0.48362154))
not same result untyped: -1e-323+2.2222222222222223i typed: -0.0+nan.0i
(/ (unsafe-flmin (real->double-flonum 1) (real->double-flonum 5/8)) (/ 1 -32/3) (make-rectangular 1.5e-323 3))
not same result untyped: +nan.0+nan.0i typed: -inf.0-0.0i
(/ (make-polar (max (real->double-flonum 0.0) (real->double-flonum -2.400264341701695e+14)) (- (real->double-flonum 3) (real->double-flonum 1/2))))
not same result untyped: 0.0-0.0i typed: 0.0+nan.0i
(/ (make-rectangular 4/5 1.797693134862315e+308))
not same result untyped: 0.0-0.0i typed: +nan.0-0.0i
(/ (sqr 3) (make-rectangular 1.7976931348623151e+308 (cos 1.7976931348623147e+308)))
not same result untyped: +nan.0+inf.0i typed: -0.0+inf.0i
(/ (sub1 0.8550388) (+ (+ 5.5293337e-15 1.6585703248349453) (gcd (exact-round 0) (exact-round 1)) (+ (real->double-flonum 2) (real->double-flonum -1/2))) (sin (make-rectangular 0.0 8.4e-323)))
not same result untyped: -0.0-0.0i typed: +nan.0-0.0i
(/ (flcos (real->double-flonum 0)) (make-rectangular -1.7976931348623157e+308 1.5e-323))
not same result untyped: 0.0-0.0i typed: 0.0+nan.0i
(/ (/ (real->double-flonum -1.4275423)) (make-rectangular -2.85069689139348e-54 -1.7976931348623151e+308))
not same result untyped: -0.0-0.0i typed: -0.0+nan.0i
(* -0.0 (/ (make-rectangular -5e-324 0.02826022)) -0.03135514535167072)
not same result untyped: -0.0+0.0i typed: +nan.0+0.0i
(/ 2 (make-rectangular 1.7976931348623155e+308 1) (sub1 (real->double-flonum 0.034460585393126276)))
not same result untyped: -5e-323+5.1424126i typed: -0.0+nan.0i
(/ (flmin (real->double-flonum -15) (real->double-flonum -51.424126)) (add1 4) (make-rectangular 2e-323 2))
not same result untyped: 4.849907969653664+3.1e-322i typed: +nan.0+0.0i
(- (cos (min (exact-round -9/5) (exact-round 7))) (/ 3.9495411046506046 (flceiling (real->double-flonum 3)) (make-rectangular -1/4 1.5e-323)))
not same result untyped: -2.966079813663431e+62-0.0i typed: -2.966079813663431e+62+nan.0i
(- (/ -0.3713432 (make-rectangular 5e-324 -1.797693134862315e+308)) (flexpt (max (real->double-flonum 1.4994744e-21)) (real->double-flonum -3)))
not same result untyped: +nan.0+nan.0i typed: -inf.0-0.0i
(/ (unsafe-flsqrt (real->double-flonum 7)) (make-polar (unsafe-fl* (real->double-flonum 0) (real->double-flonum 1.3238051e-30)) (ceiling (real->double-flonum 3))))
not same result untyped: +nan.0+nan.0i typed: +inf.0-0.0i
(/ (max (exact-round -3) (exact-round 1)) 2 (make-polar 0.0 (fltan (real->double-flonum 0))))
not same result untyped: 0.0-0.0i typed: 0.0+nan.0i
(/ (cos (real->double-flonum 2)) (make-rectangular (flmin (real->double-flonum -7.4815276e-19) (real->double-flonum 3/2)) (ceiling -1.7976931348623157e+308)))
type-before = (U 0 1 Byte-Larger-Than-One Float-Nan Float-Negative-Zero Float-Positive-Zero Positive-Fixnum-Not-Index Positive-Float-No-NaN Positive-Index-Not-Byte Positive-Integer-Not-Fixnum Positive-Rational-Not-Integer Positive-Single-Flonum-No-Nan Single-Flonum-Nan Single-Flonum-Negative-Zero Single-Flonum-Positive-Zero)
type-after = -inf.0
(round (expt -0.0 -1))
type-before = (U Float-Nan Float-Negative-Zero Float-Positive-Zero Positive-Float-No-NaN)
type-after = -inf.0
(expt (sinh -0.0) (floor (real->double-flonum -1/9)))
type-before = (U 1 Float-Nan Float-Negative-Zero Float-Positive-Zero Positive-Float-No-NaN)
type-after = -inf.0
(expt -0.0 (floor -2/3))
type-before = (U 1 Float-Nan Float-Negative-Zero Float-Positive-Zero Positive-Float-No-NaN)
type-after = -inf.0
(expt -0.0 -1)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment