Skip to content

Instantly share code, notes, and snippets.

@samth
Created July 8, 2019 19:55
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/6cc1633e255d6317cd3e9f5094b38048 to your computer and use it in GitHub Desktop.
Save samth/6cc1633e255d6317cd3e9f5094b38048 to your computer and use it in GitHub Desktop.
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.8869765f0)) (make-rectangular -1/2 1.7976931348623157e+308))
not same result untyped: -3.701631435361851+1.4821969375237e-322i typed: +nan.0+0.0i
(/ (bitwise-not (exact-round 0.9279912613796584)) (flcos (real->double-flonum -1)) (+ (make-rectangular 1 3.95252516673e-323)))
not same result untyped: -0.0+0.0i typed: +nan.0+0.0i
(/ (make-rectangular -1.7976931348623157e+308 -1.0118355f-14))
not same result untyped: -0.2-0.0i typed: +nan.0-0.0i
(/ (make-rectangular -5 1.976262583365e-323))
not same result untyped: -2.3480354116285495e-300+3.8135844445325736e+24i typed: -0.0+nan.0i
(/ -1144.6757051834838 1.8702761f-23 (make-rectangular 9.8813129168249e-324 -16.04883f0))
not same result untyped: 2.5922170946555414-1.4821969375237e-323i typed: +nan.0-0.0i
(/ 4 (cosh (make-rectangular 1 9.8813129168249e-324)))
not same result untyped: -inf.0+6.995070031226716e-16i typed: +nan.0+0.0i
(/ -1.797693134862314e+308 (flexp (real->double-flonum 0)) (make-rectangular (sqrt 5.0788827f0) (min 1.976262583365e-323)))
not same result untyped: 9.8813129168249e-323-2.0i typed: 0.0+nan.0i
(/ (+ (make-rectangular 2.4703282292062e-323 -1/2) (* (exact-round 0) (exact-round -6.85372f0) (exact-round -1/2))))
not same result untyped: 0.4655272429403348-0.0i typed: +nan.0-0.0i
(/ (make-rectangular 2.1481019965316337 9.8813129168249e-324))
not same result untyped: -0.0-2.401298355227e-29i typed: -0.0+nan.0i
(/ (+ (real->double-flonum -9.6051934f-29) (real->double-flonum 0)) (make-rectangular 1.4821969375237e-323 4))
not same result untyped: 1.6613238486024958e-13-0.0i typed: +nan.0-0.0i
(/ (make-rectangular 6.019296f+12 9.8813129168249e-324))
not same result untyped: -9.0651197858688e-54-inf.0i typed: -0.0+nan.0i
(/ (min (real->double-flonum 3) (real->double-flonum -1.7976931348623157e+308) (real->double-flonum 3/2)) (make-rectangular 1.976262583365e-323 1.9796724097581277e+19))
not same result untyped: -1.3451028894671461e+26+5.316553022460099e-297i typed: +nan.0+0.0i
(/ (tan (real->double-flonum 9)) 3.3626845f-27 (make-rectangular 1 3.95252516673e-323))
not same result untyped: 8.686650436982806+2.1244822771174e-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)) (/ 5.928787750095e-323 -15/13)) (unsafe-fl* (real->double-flonum 1) (flatan (real->double-flonum 7.9906573f+31))))
not same result untyped: 3.9599205859678287e-16-0.0i typed: +nan.0-0.0i
(/ (make-rectangular (/ (real->double-flonum 3.9599206f-16)) (unsafe-flabs (real->double-flonum 9.8813129168249e-324))))
not same result untyped: 0.9883340732341583-4.9406564584125e-324i typed: +nan.0-0.0i
(/ (make-rectangular 1.0118036f0 4.9406564584125e-324))
not same result untyped: 0.0-0.0i typed: +nan.0-0.0i
(/ (min 4 -1) (make-rectangular -1.7976931348623157e+308 -0.48362154f0))
not same result untyped: -9.8813129168249e-324-2.2222222222222223i typed: -0.0+nan.0i
(/ (unsafe-flmin (real->double-flonum 1) (real->double-flonum 5/8)) (/ 1 -32/3) (make-rectangular 1.4821969375237e-323 3))
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
(/ (flcos (real->double-flonum 0)) (make-rectangular -1.7976931348623157e+308 1.4821969375237e-323))
not same result untyped: 0.0+0.0i typed: 0.0+nan.0i
(/ (/ (real->double-flonum -1.4275423f0)) (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 -4.9406564584125e-324 0.02826022f0)) -0.03135514535167072)
not same result untyped: -4.9406564584125e-323-5.142412567138672i typed: -0.0+nan.0i
(/ (flmin (real->double-flonum -15) (real->double-flonum -51.424126f0)) (add1 4) (make-rectangular 1.976262583365e-323 2))
not same result untyped: 4.849907969653664+3.162020133384e-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.4821969375237e-323)))
not same result untyped: -2.9660799222078487e+62+0.0i typed: -2.9660799222078487e+62+nan.0i
(- (/ -0.3713432f0 (make-rectangular 4.9406564584125e-324 -1.797693134862315e+308)) (flexpt (max (real->double-flonum 1.4994744f-21)) (real->double-flonum -3)))
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.4815276f-19) (real->double-flonum 3/2)) (ceiling -1.7976931348623157e+308)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment