Skip to content

Instantly share code, notes, and snippets.

@samth

samth/bad-future.rkt

Created April 1, 2020 17:50
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/190f98e0424e982cc81f59832259d70e to your computer and use it in GitHub Desktop.
Save samth/190f98e0424e982cc81f59832259d70e to your computer and use it in GitHub Desktop.
Download ZIP
Raw
bad-future.rkt
#lang racket/base
(require racket/future racket/flonum)
(let ((f0
(future
(λ ()
(let ((i 1))
(unless (zero? i)
(if (fl<
(apply
fl-
(list
(apply
fl/
(list
(flmin
(flsin
(flasin
(apply
fl*
(list
(flmax
(fl* (fl* 1.0 1.0) (flexp (sqrt 2)))
(flmin (fl* 2.0 1.0) (fltruncate (sqrt 2))))
(apply
flmin
(list
(flmax (fl+ -1.0 -1.0) (flatan 1.0))
(flcos (apply fl* (list 2.0 -1.0)))))))))
(apply
fl*
(list
-1.0
(flfloor
(apply
flmax
(list
(flexp
(fl/
(apply fl/ (list -1.0 -1.0))
(fl- 1.0 (sqrt 2))))
(apply
fl+
(list
(apply
fl/
(list (fl/ 2.0 -1.0) (flmin (sqrt 2) 1.0)))
(flmax (flceiling 2.0) (flceiling 1.0))))))))))
(flceiling
(fl-
(fl/
(flround 2.0)
(flexp
(apply
fl-
(list (fllog (sqrt 2)) (flround (sqrt 2))))))
2.0))))
2.0))
(fl/
-1.0
(apply
flmin
(list
-1.0
(fl+
2.0
(flsqrt
(fl*
1.0
(flmax
(flsqrt
(fl-
(apply flmax (list 1.0 2.0))
(apply fl- (list 1.0 -1.0))))
(apply
fl/
(list
(flceiling 2.0)
(apply
fl-
(list
(fl+ -1.0 -1.0)
(flmin 1.0 (sqrt 2))))))))))))))
(let-values (((a b)
(values
(apply
fl+
(list
(fllog
(flmin
(fl-
2.0
(flmin (flsin (sqrt 2)) (flacos 1.0)))
-1.0))
(flfloor -1.0)))
(begin
(string?
(begin
(if (fl>=
(fl+
(flexp 2.0)
(fl*
(apply flmin (list (sqrt 2) 1.0))
(fl- 1.0 1.0)))
1.0)
(hash-ref
(make-hash)
'not-there
(λ ()
(hash-ref
(make-hash)
'not-there
(λ ()
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (sqrt 2) 'passed))))))
(begin
(sqrt 2)
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin 1.0 'passed))
(mpair?
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (sqrt 2) 'passed)))))
(begin
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin
(fl= (values 1.0 1.0))
'passed)))))
(not
(number?
(number?
(if (fl>
(fllog (fl/ -1.0 1.0))
(flmin
(fl/ (sqrt 2) 1.0)
(fl+ -1.0 2.0)))
(begin
2.0
1.0
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (sqrt 2) 'passed)))
(hash-ref
(make-hash)
'not-there
(λ ()
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin -1.0 'passed))))))))
(let-values (((a b)
(if (let-values (((a b)
(hash-ref
(make-hash)
'not-there
(λ ()
(if (with-handlers
((exn:fail?
(λ (x)
'failed)))
(begin
-1.0
'passed))
(values
(sqrt 2)
2.0)
(if 2.0
(values
(sqrt
2)
2.0)
(values
2.0
1.0)))))))
a)
(values
(begin
2.0
(let-values (((a b)
(hash-ref
(make-hash)
'not-there
(λ ()
(values
(sqrt 2)
(sqrt
2))))))
a)
(char? 1.0)
(let-values (((a b)
(values
1.0
(sqrt 2))))
a))
(begin
(with-handlers
((exn:fail?
(λ (x) 'failed)))
(begin
(sqrt 2)
'passed))))
(if (let-values (((a b)
(hash-ref
(make-hash)
'not-there
(λ ()
(if 1.0
(values
2.0
(sqrt
2))
(values
2.0
1.0))))))
a)
(hash-ref
(make-hash)
'not-there
(λ ()
(values
(let-values (((a b)
(values
1.0
2.0)))
a)
(let-values (((a b)
(values
-1.0
1.0)))
a))))
(if (symbol?
(with-handlers
((exn:fail?
(λ (x) 'failed)))
(begin
(sqrt 2)
'passed)))
(hash-ref
(make-hash)
'not-there
(λ ()
(if 1.0
(values 1.0 -1.0)
(values 2.0 -1.0))))
(if (hash-ref
(make-hash)
'not-there
(λ () 2.0))
(values 1.0 1.0)
(if 2.0
(values -1.0 1.0)
(values
2.0
2.0))))))))
a)
(hash-ref
(make-hash)
'not-there
(λ ()
(begin
(hash-ref
(make-hash)
'not-there
(λ ()
(hash-ref
(make-hash)
'not-there
(λ ()
(begin
(begin (sqrt 2))
(let-values (((a b)
(values 2.0 1.0)))
a))))))
(begin
(begin
(fixnum?
(hash-ref
(make-hash)
'not-there
(λ () 2.0)))
(begin
(hash-ref
(make-hash)
'not-there
(λ () 2.0))
(let-values (((a b)
(values -1.0 2.0)))
a))
(if (fl<=
2.0
(apply fl* (list 2.0 1.0)))
2.0
(begin -1.0))
(begin
(if (fl>= 1.0 (sqrt 2))
2.0
(sqrt 2))
-1.0
(if (fl< -1.0 (sqrt 2)) -1.0 -1.0)
1.0
(hash-ref
(make-hash)
'not-there
(λ () (sqrt 2))))
(begin (begin -1.0)))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin
(values (sqrt 2) (values))
'passed))
(if (fl>=
(apply
fl+
(list
(flsqrt 2.0)
(flfloor 2.0)))
(apply fl* (list 2.0 2.0)))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (begin 2.0) 'passed))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (values) 'passed))))
(apply
fl/
(list
(apply
flmax
(list
(apply fl* (list 1.0 2.0))
(apply fl/ (list 1.0 2.0))))
(flasin 1.0))))))
(begin
(if (fl>
(fllog
(flmax
(fltruncate -1.0)
(flacos (flmax -1.0 -1.0))))
(apply
fl/
(list
2.0
(fl+
(flmin
(apply
fl-
(list (sqrt 2) (sqrt 2)))
(apply
fl/
(list (sqrt 2) (sqrt 2))))
(flabs 2.0)))))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin
(values
(exact-integer? (sqrt 2))
(if (fl>= 1.0 -1.0) (sqrt 2) -1.0))
'passed))
(begin
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (values (begin 1.0)) 'passed))))
(if (fl=
2.0
(apply
flmax
(list
(fl+
(fllog
(apply flmax (list 1.0 (sqrt 2))))
1.0)
1.0)))
(hash-ref
(make-hash)
'not-there
(λ ()
(if (fl> (fltan -1.0) 1.0)
(hash-ref
(make-hash)
'not-there
(λ () (number? 1.0)))
(hash-ref
(make-hash)
'not-there
(λ ()
(let-values (((a b)
(values
(sqrt 2)
(sqrt 2))))
a))))))
(begin
(if (fl<
1.0
(apply
fl+
(list
(apply
fl+
(list (sqrt 2) (sqrt 2)))
(flmax 2.0 -1.0))))
(let-values (((a b)
(if -1.0
(values -1.0 (sqrt 2))
(values 1.0 -1.0))))
a)
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (values 2.0 2.0) 'passed)))))
(let-values (((a b)
(hash-ref
(make-hash)
'not-there
(λ ()
(if (eof-object?
(with-handlers
((exn:fail?
(λ (x) 'failed)))
(begin 2.0 'passed)))
(if (let-values (((a b)
(values
(sqrt
2)
-1.0)))
a)
(values 1.0 (sqrt 2))
(if -1.0
(values 1.0 (sqrt 2))
(values 2.0 -1.0)))
(values
(let-values (((a b)
(values
1.0
(sqrt
2))))
a)
(let-values (((a b)
(values
-1.0
-1.0)))
a)))))))
a)
(flmax
(apply
flmax
(list 1.0 (flsqrt (fl- 2.0 -1.0))))
(flmax (flabs (flasin 2.0)) (sqrt 2)))
(hash-ref
(make-hash)
'not-there
(λ ()
(let-values (((a b)
(values
(with-handlers
((exn:fail?
(λ (x) 'failed)))
(begin (values) 'passed))
(with-handlers
((exn:fail?
(λ (x) 'failed)))
(begin
(if (sqrt 2)
2.0
(sqrt 2))
'passed)))))
a)))
(fl-
-1.0
(apply
fl-
(list
(sqrt 2)
(flmin (flceiling 2.0) (fltan -1.0)))))
(if (fl<=
(fl+
(apply
fl+
(list
(flround (fl+ 2.0 (sqrt 2)))
(apply
flmax
(list
(fl* 2.0 -1.0)
(flmax 2.0 2.0)))))
(apply
fl-
(list
(flceiling (flmax 2.0 1.0))
1.0)))
2.0)
(hash-ref
(make-hash)
'not-there
(λ ()
(if (fl>=
(fl/ (flfloor 2.0) (sqrt 2))
(apply
flmax
(list
(apply
fl*
(list (sqrt 2) (sqrt 2)))
(flmax -1.0 1.0))))
1.0
(if (fl<= 1.0 (flmax 2.0 2.0))
(if (fl< -1.0 2.0) (sqrt 2) 2.0)
-1.0))))
(begin
(begin
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (values 1.0 2.0) 'passed)))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin
(fl<= (values 1.0 2.0))
'passed))))
(box?
(if (fl<=
(fl+
(fl/
2.0
(apply fl* (list (sqrt 2) 2.0)))
(flmin -1.0 (fltan 1.0)))
(sqrt 2))
(procedure?
(begin
(if (fl< (sqrt 2) 2.0) 2.0 -1.0)
(hash-ref
(make-hash)
'not-there
(λ () 1.0))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin 2.0 'passed))
(let-values (((a b)
(values (sqrt 2) -1.0)))
a)))
(syntax? (flexp -1.0))))
(let-values (((a b)
(hash-ref
(make-hash)
'not-there
(λ ()
(hash-ref
(make-hash)
'not-there
(λ ()
(values
(if (fl>=
-1.0
(sqrt 2))
(sqrt 2)
-1.0)
(if (fl> 1.0 -1.0)
2.0
2.0))))))))
a))
(inexact-real?
(hash-ref
(make-hash)
'not-there
(λ ()
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (fl-) 'passed)))))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (flmax) 'passed))
(flmax
-1.0
(apply
flmax
(list
(sqrt 2)
(flceiling
(flasin (flmax (sqrt 2) -1.0))))))
(hash-ref
(make-hash)
'not-there
(λ ()
(let-values (((a b)
(values
(if (fl>=
(flfloor
(apply
fl*
(list
(sqrt 2)
(sqrt 2))))
(apply
fl-
(list (sqrt 2) -1.0)))
(real?
(with-handlers
((exn:fail?
(λ (x) 'failed)))
(begin 2.0 'passed)))
(vector?
(if (fl>= 2.0 2.0)
2.0
(sqrt 2))))
(apply
fl-
(list
(fl+ 2.0 1.0)
(flasin 1.0))))))
a)))
(hash-ref
(make-hash)
'not-there
(λ ()
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin
(values
(values
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (sqrt 2) 'passed))))
'passed))))
(real?
(pair?
(begin
(let-values (((a b)
(hash-ref
(make-hash)
'not-there
(λ ()
(if (sqrt 2)
(values -1.0 1.0)
(values
(sqrt 2)
2.0))))))
a)
(begin
(symbol?
(hash-ref
(make-hash)
'not-there
(λ () 1.0))))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (begin (values)) 'passed)))))
(if (fl>=
(flabs
(flmin
(apply
fl-
(list
(apply
flmin
(list
2.0
(apply flmin (list 2.0 (sqrt 2)))))
(fl-
(fl- 1.0 (sqrt 2))
(apply fl+ (list -1.0 1.0)))))
(fl*
(fl/
(flcos 2.0)
(apply fl+ (list -1.0 (sqrt 2))))
(fltruncate (flsqrt 2.0)))))
(fl+
(flacos
(flcos
(apply
flmin
(list
(apply fl* (list (sqrt 2) 1.0))
(apply fl+ (list 2.0 2.0))))))
(apply
fl*
(list
(apply
fl/
(list
(flatan (apply fl* (list 2.0 -1.0)))
(flcos (flround -1.0))))
(apply flmax (list 2.0 (sqrt 2)))))))
(begin
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin
(begin
(values)
(values (values 2.0 1.0))
(values)
(begin (values))
(if (if -1.0 (sqrt 2) -1.0)
(if 2.0 1.0 -1.0)
1.0))
'passed)))
(hash-ref
(make-hash)
'not-there
(λ () (fl/ -1.0 (flabs (fl- 2.0 2.0))))))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin
(if (if (fl=
(apply
fl/
(list
(apply flmin (list -1.0 -1.0))
(flceiling 1.0)))
(apply
fl-
(list
(fl+ (sqrt 2) -1.0)
(fltan -1.0))))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (values -1.0 -1.0) 'passed))
(vector?
(hash-ref
(make-hash)
'not-there
(λ () 1.0))))
(hash-ref
(make-hash)
'not-there
(λ ()
(values
(hash-ref
(make-hash)
'not-there
(λ () 1.0))
(hash-ref
(make-hash)
'not-there
(λ () (sqrt 2))))))
(if (begin
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin -1.0 'passed)))
(hash-ref
(make-hash)
'not-there
(λ () (values 2.0 1.0)))
(hash-ref
(make-hash)
'not-there
(λ ()
(if -1.0
(values (sqrt 2) -1.0)
(values 1.0 -1.0))))))
'passed))
(begin
(hash-ref
(make-hash)
'not-there
(λ ()
(if (fl>=
(fl+
(flabs (sqrt 2))
(apply
fl*
(list
(flfloor -1.0)
(apply
fl*
(list 2.0 (sqrt 2))))))
1.0)
(let-values (((a b)
(hash-ref
(make-hash)
'not-there
(λ ()
(values
(sqrt 2)
2.0)))))
a)
(flasin 2.0))))
(let-values (((a b)
(hash-ref
(make-hash)
'not-there
(λ ()
(values
(let-values (((a b)
(hash-ref
(make-hash)
'not-there
(λ ()
(values
1.0
-1.0)))))
a)
(with-handlers
((exn:fail?
(λ (x) 'failed)))
(begin
(->fl)
'passed)))))))
a)
(if (fl<
(apply
fl*
(list
(fl+
1.0
(flmax
1.0
(apply fl* (list 1.0 2.0))))
(apply
flmin
(list
-1.0
(flmin
(flmax (sqrt 2) 2.0)
(apply fl- (list -1.0 -1.0)))))))
(apply
flmin
(list
(sqrt 2)
(flacos (flasin (flexp 2.0))))))
(hash-ref
(make-hash)
'not-there
(λ () (flround (flround 1.0))))
(symbol?
(let-values (((a b)
(if (with-handlers
((exn:fail?
(λ (x) 'failed)))
(begin 1.0 'passed))
(if (sqrt 2)
(values 1.0 1.0)
(values 1.0 1.0))
(if 2.0
(values 1.0 (sqrt 2))
(values 2.0 1.0)))))
a)))
(if (fl>
(fllog (sqrt 2))
(flexp
(fltan
(flsin
(apply
flmin
(list (sqrt 2) (sqrt 2)))))))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin
(values
(flsqrt)
(if (fl< (sqrt 2) -1.0) 1.0 1.0))
'passed))
(if (fl<=
(sqrt 2)
(flsin
(fl+ (fl+ -1.0 1.0) (fl+ 2.0 2.0))))
(begin
(let-values (((a b)
(if 2.0
(values 2.0 (sqrt 2))
(values
2.0
(sqrt 2)))))
a))
(flmax
(sqrt 2)
(apply fl- (list 2.0 1.0)))))
(boolean?
(if (fl<
(fl+ 2.0 1.0)
(apply
fl*
(list
(sqrt 2)
(apply
fl-
(list -1.0 (fl+ -1.0 -1.0))))))
(if (fl>=
(fl- (flcos 2.0) 2.0)
(flasin (flasin 2.0)))
(hash-ref
(make-hash)
'not-there
(λ () (begin (sqrt 2))))
(apply fl/ (list 1.0 1.0)))
(if (fl=
(flatan (flmax 2.0 2.0))
(apply
fl-
(list
(flsqrt -1.0)
(apply fl* (list 1.0 1.0)))))
(flmin (sqrt 2) 1.0)
(let-values (((a b)
(hash-ref
(make-hash)
'not-there
(λ ()
(values
-1.0
(sqrt 2))))))
a))))
(hash-ref
(make-hash)
'not-there
(λ ()
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin
(values 1.0 (begin -1.0))
'passed)))))
(hash-ref
(make-hash)
'not-there
(λ ()
(fixnum?
(if (fl>
(flsqrt
(apply
fl/
(list
(apply fl/ (list -1.0 (sqrt 2)))
(flsqrt (sqrt 2)))))
(apply
fl*
(list
1.0
(apply
flmax
(list
(flmin (sqrt 2) 2.0)
-1.0)))))
(let-values (((a b)
(if (syntax? (sqrt 2))
(hash-ref
(make-hash)
'not-there
(λ ()
(values
(sqrt 2)
1.0)))
(hash-ref
(make-hash)
'not-there
(λ ()
(values
-1.0
1.0))))))
a)
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin
(let-values (((a b)
(values 2.0 2.0)))
a)
'passed))))))
(hash-ref
(make-hash)
'not-there
(λ ()
(if (fl<
(apply
fl/
(list
1.0
(flatan
(apply
fl+
(list
2.0
(apply
flmax
(list 2.0 -1.0)))))))
(flexp
(apply
fl+
(list
(apply
flmax
(list
(flmax -1.0 1.0)
(fl+ 1.0 -1.0)))
(flmax
(apply fl/ (list 1.0 -1.0))
(apply fl+ (list -1.0 1.0)))))))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (values) 'passed))
(let-values (((a b)
(if (hash-ref
(make-hash)
'not-there
(λ ()
(with-handlers
((exn:fail?
(λ (x) 'failed)))
(begin
1.0
'passed))))
(values
(begin 2.0)
(let-values (((a b)
(values
1.0
1.0)))
a))
(if (begin 1.0)
(hash-ref
(make-hash)
'not-there
(λ ()
(values
(sqrt 2)
-1.0)))
(hash-ref
(make-hash)
'not-there
(λ ()
(values
2.0
1.0)))))))
a))))
(if (fl<
(flacos 2.0)
(fl/
1.0
(fl/
(apply
fl+
(list
(apply
flmin
(list
(apply flmax (list (sqrt 2) -1.0))
(fllog 2.0)))
(apply
flmin
(list (flexp 2.0) (flcos 2.0)))))
(apply fl/ (list 2.0 (sqrt 2))))))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin
(flcos
(let-values (((a b)
(if 1.0
(values (sqrt 2) 1.0)
(values 2.0 (sqrt 2)))))
a))
'passed))
(if (fl= (flsin (flabs 1.0)) 2.0)
(begin
(begin
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (values) 'passed))
(hash-ref
(make-hash)
'not-there
(λ () 1.0))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin 2.0 'passed)))
(hash-ref
(make-hash)
'not-there
(λ ()
(apply fl- (list 2.0 (sqrt 2))))))
(real?
(hash-ref
(make-hash)
'not-there
(λ ()
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (flmax) 'passed)))))))
(let-values (((a b)
(hash-ref
(make-hash)
'not-there
(λ ()
(if (if (fl=
-1.0
(apply
flmin
(list
(flcos 2.0)
(apply
flmax
(list
-1.0
2.0)))))
(begin (begin 1.0))
(fixnum? -1.0))
(hash-ref
(make-hash)
'not-there
(λ ()
(values
(let-values (((a b)
(values
(sqrt 2)
-1.0)))
a)
(begin 2.0))))
(hash-ref
(make-hash)
'not-there
(λ ()
(if (if (fl>
-1.0
(sqrt 2))
-1.0
-1.0)
(hash-ref
(make-hash)
'not-there
(λ ()
(values 2.0 2.0)))
(if 1.0
(values
(sqrt 2)
(sqrt 2))
(values
2.0
-1.0))))))))))
a)
(flsin
(apply
fl/
(list
1.0
(fl*
(sqrt 2)
(fl+
(flatan (sqrt 2))
(apply fl- (list (sqrt 2) 1.0)))))))
(begin
(begin
(let-values (((a b)
(if (hash-ref
(make-hash)
'not-there
(λ ()
(if (fl<=
2.0
(sqrt 2))
2.0
2.0)))
(values
(with-handlers
((exn:fail?
(λ (x) 'failed)))
(begin -1.0 'passed))
(if (fl>=
(sqrt 2)
(sqrt 2))
1.0
2.0))
(if (with-handlers
((exn:fail?
(λ (x) 'failed)))
(begin 1.0 'passed))
(if 1.0
(values 2.0 -1.0)
(values 2.0 2.0))
(hash-ref
(make-hash)
'not-there
(λ ()
(values
-1.0
1.0)))))))
a)
(hash-ref
(make-hash)
'not-there
(λ ()
(hash-ref
(make-hash)
'not-there
(λ ()
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin
(values 1.0 2.0)
'passed))))))
(let-values (((a b)
(if (begin
(sqrt 2)
(let-values (((a b)
(values
2.0
2.0)))
a))
(if (sqrt 2)
(hash-ref
(make-hash)
'not-there
(λ ()
(values
(sqrt 2)
(sqrt 2))))
(if (sqrt 2)
(values
(sqrt 2)
(sqrt 2))
(values 1.0 2.0)))
(hash-ref
(make-hash)
'not-there
(λ ()
(values -1.0 1.0))))))
a)
(let-values (((a b)
(hash-ref
(make-hash)
'not-there
(λ ()
(if (hash-ref
(make-hash)
'not-there
(λ () 1.0))
(values 1.0 -1.0)
(if -1.0
(values
(sqrt 2)
(sqrt 2))
(values
-1.0
1.0)))))))
a)
(if (fl=
(fl+
(flmax (flmax -1.0 -1.0) 1.0)
(apply
fl*
(list
(apply flmin (list 1.0 -1.0))
(flmax -1.0 2.0))))
(flfloor 2.0))
(begin
(hash-ref
(make-hash)
'not-there
(λ ()
(let-values (((a b)
(values -1.0 1.0)))
a))))
(if (fl=
(apply
fl*
(list (flabs 2.0) (fl- 1.0 1.0)))
-1.0)
(let-values (((a b)
(hash-ref
(make-hash)
'not-there
(λ ()
(values 2.0 1.0)))))
a)
(begin
(let-values (((a b)
(values
(sqrt 2)
1.0)))
a)
(if (fl<= (sqrt 2) -1.0)
2.0
(sqrt 2))
(let-values (((a b)
(values
(sqrt 2)
-1.0)))
a)))))
(if (fl<=
(fl*
(apply
fl+
(list
(apply
fl/
(list
(fl- (sqrt 2) -1.0)
(sqrt 2)))
(fl-
(flmin (sqrt 2) (sqrt 2))
(fl/ 2.0 -1.0))))
(flexp 1.0))
(apply
flmin
(list
-1.0
(apply
flmax
(list
2.0
(flmax
(flceiling (sqrt 2))
(fl- (sqrt 2) (sqrt 2))))))))
(let-values (((a b)
(values
(apply
flmin
(list (sqrt 2) (sqrt 2)))
(if (fl=
2.0
(fl/ (sqrt 2) 2.0))
(begin (sqrt 2))
2.0))))
a)
(eof-object?
(hash-ref
(make-hash)
'not-there
(λ ()
(hash-ref
(make-hash)
'not-there
(λ () (begin 2.0)))))))
(fllog
(fl-
(fl- (flasin 2.0) (flacos (sqrt 2)))
(apply
flmax
(list
(apply flmax (list (sqrt 2) -1.0))
2.0))))
(hash-ref
(make-hash)
'not-there
(λ ()
(if (fl=
(fl*
(sqrt 2)
(apply
fl-
(list
(fl+ 1.0 -1.0)
(fl+ (sqrt 2) 1.0))))
(apply
fl+
(list
(apply
flmax
(list
(apply fl+ (list -1.0 2.0))
(sqrt 2)))
(flmin
(flsqrt -1.0)
(fl* 1.0 1.0)))))
(let-values (((a b)
(values
(if (fl> (sqrt 2) 2.0)
1.0
-1.0)
(let-values (((a b)
(values
1.0
(sqrt
2))))
a))))
a)
(if (fl> (flfloor 2.0) (flabs 1.0))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (sqrt 2) 'passed))
(flexp 1.0))))))
(eof-object?
(hash-ref
(make-hash)
'not-there
(λ ()
(let-values (((a b)
(if (procedure? (begin 1.0))
(values (begin 2.0) -1.0)
(hash-ref
(make-hash)
'not-there
(λ ()
(if 1.0
(values
(sqrt 2)
(sqrt 2))
(values
1.0
1.0)))))))
a))))
(begin
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin
(begin
(values
(begin 1.0)
(begin (values 1.0 1.0))
(flfloor)
(values)
(values))
(hash-ref
(make-hash)
'not-there
(λ ()
(hash-ref
(make-hash)
'not-there
(λ ()
(values (sqrt 2) (sqrt 2))))))
(values (sqrt 2) (begin 2.0))
(fl+)
(begin (flfloor (flmin) (begin -1.0)))
(->fl
(not 1.0)
(->fl)
(->fl)
(values (values 2.0 2.0))
(fl/ 1.0))
(values
(let-values (((a b)
(values -1.0 1.0)))
a)
(procedure? 1.0))
(values)
(values
(if (fl<= 2.0 (sqrt 2)) 2.0 1.0)
(begin 2.0))
(values
(hash-ref
(make-hash)
'not-there
(λ () 2.0))
(begin -1.0))
(begin
(hash-ref
(make-hash)
'not-there
(λ () (values 2.0 2.0)))
(values
(values)
(values -1.0 -1.0)
(values))
(hash-ref
(make-hash)
'not-there
(λ () (values (sqrt 2) 1.0)))
(begin -1.0 (flasin))
(values))
(begin
(hash-ref
(make-hash)
'not-there
(λ () 1.0))
(begin -1.0)
(let-values (((a b)
(values
-1.0
(sqrt 2))))
a)
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin -1.0 'passed))))
'passed))
(let-values (((a b)
(hash-ref
(make-hash)
'not-there
(λ ()
(hash-ref
(make-hash)
'not-there
(λ ()
(values
(begin -1.0)
(begin 1.0))))))))
a)
(begin
(if (fl<=
(flceiling (flabs (flabs 1.0)))
(fl*
(sqrt 2)
(flacos
(apply fl+ (list 1.0 -1.0)))))
(hash-ref
(make-hash)
'not-there
(λ () (syntax? 2.0)))
(apply
fl+
(list
(apply fl+ (list 2.0 -1.0))
(flcos -1.0))))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin
(symbol? (number? (sqrt 2)))
'passed))
(if (fl>
(sqrt 2)
(flmax
(apply
flmax
(list 2.0 (fl+ 1.0 (sqrt 2))))
(apply
flmax
(list (fl/ -1.0 2.0) 2.0))))
(hash-ref
(make-hash)
'not-there
(λ ()
(begin
(syntax? 2.0)
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin 2.0 'passed)))))
(begin
(sqrt 2)
(bytes? (bytes? 2.0))
(let-values (((a b)
(hash-ref
(make-hash)
'not-there
(λ ()
(values 1.0 1.0)))))
a)
(bytes?
(let-values (((a b)
(values
(sqrt 2)
-1.0)))
a))
(begin
(let-values (((a b)
(values
(sqrt 2)
(sqrt 2))))
a)
(begin (sqrt 2))
(if (fl<= -1.0 2.0) 2.0 1.0)
(if (fl> 1.0 -1.0) (sqrt 2) -1.0))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (begin (sqrt 2)) 'passed))
(if (fl>
(apply
fl/
(list (sqrt 2) (sqrt 2)))
2.0)
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin 1.0 'passed))
(if (fl< 2.0 -1.0) (sqrt 2) -1.0))))
(if (fl<
(apply
fl/
(list
(fl*
(flmax 1.0 (sqrt 2))
(flatan -1.0))
(fl+ (flcos (sqrt 2)) 1.0)))
(apply
fl+
(list
(flatan (fllog (sqrt 2)))
(apply fl* (list (sqrt 2) 1.0)))))
-1.0
(if (fl>=
1.0
(apply
fl*
(list
(apply fl/ (list 1.0 2.0))
(sqrt 2))))
(if (fl>=
1.0
(apply fl+ (list 2.0 (sqrt 2))))
(hash-ref
(make-hash)
'not-there
(λ () (sqrt 2)))
(let-values (((a b)
(values
2.0
(sqrt 2))))
a))
(let-values (((a b)
(if 1.0
(values 1.0 -1.0)
(values
2.0
(sqrt 2)))))
a)))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin
(if (fl= (sqrt 2) (flasin 2.0))
(hash-ref
(make-hash)
'not-there
(λ () 1.0))
(hash-ref
(make-hash)
'not-there
(λ () (sqrt 2))))
'passed)))
(procedure?
(let-values (((a b)
(if (hash-ref
(make-hash)
'not-there
(λ () -1.0))
(if (with-handlers
((exn:fail?
(λ (x) 'failed)))
(begin 1.0 'passed))
(hash-ref
(make-hash)
'not-there
(λ ()
(values
1.0
(sqrt 2))))
(hash-ref
(make-hash)
'not-there
(λ ()
(values
(sqrt 2)
2.0))))
(hash-ref
(make-hash)
'not-there
(λ ()
(values
(sqrt 2)
2.0))))))
a))
(let-values (((a b)
(values
1.0
(with-handlers
((exn:fail?
(λ (x) 'failed)))
(begin
(values
(values (sqrt 2) -1.0)
(values))
'passed)))))
a)
(if (fl=
(fl+
(fllog
(fl- (flmax 2.0 1.0) (flexp 1.0)))
(flcos
(flmin
(flmin 2.0 (sqrt 2))
(apply fl- (list 2.0 1.0)))))
(fl- (flsin 1.0) (flsqrt 2.0)))
(char? (procedure? (sqrt 2)))
(sqrt 2))
(hash-ref
(make-hash)
'not-there
(λ ()
(hash-ref
(make-hash)
'not-there
(λ ()
(let-values (((a b)
(hash-ref
(make-hash)
'not-there
(λ ()
(hash-ref
(make-hash)
'not-there
(λ ()
(values
-1.0
-1.0)))))))
a)))))
(if (fl>=
2.0
(apply
fl+
(list
-1.0
(fl/
(flceiling -1.0)
(flmin
(apply
fl+
(list (sqrt 2) (sqrt 2)))
1.0)))))
(flatan (fl+ -1.0 (flacos (sqrt 2))))
(hash-ref
(make-hash)
'not-there
(λ ()
(hash-ref
(make-hash)
'not-there
(λ ()
(begin
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (sqrt 2) 'passed))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (sqrt 2) 'passed))))))))
(apply
flmax
(list
(apply
fl-
(list
2.0
(fllog (flmax (sqrt 2) (sqrt 2)))))
(sqrt 2)))
(hash-ref
(make-hash)
'not-there
(λ ()
(begin
(flabs (flmax 2.0 1.0))
(real? (mpair? (not -1.0)))
(let-values (((a b)
(values
(begin 2.0)
(if (fl< -1.0 1.0)
1.0
(sqrt 2)))))
a)
(flmin (apply fl+ (list -1.0 2.0)) 1.0)
(begin
(let-values (((a b)
(if 2.0
(values -1.0 2.0)
(values 1.0 1.0))))
a)
(if (fl>
(fl+ 2.0 2.0)
(flmax 2.0 -1.0))
(begin 1.0)
-1.0)
(if (fl>
(fl* -1.0 (sqrt 2))
(apply
flmax
(list 1.0 (sqrt 2))))
(hash-ref
(make-hash)
'not-there
(λ () 2.0))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin 2.0 'passed)))
(let-values (((a b)
(if (sqrt 2)
(values -1.0 -1.0)
(values 1.0 -1.0))))
a)
(eof-object? (eof-object? -1.0)))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (values -1.0 2.0) 'passed))
(let-values (((a b)
(hash-ref
(make-hash)
'not-there
(λ ()
(values
(sqrt 2)
(sqrt 2))))))
a))))
(string?
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (values 1.0 -1.0) 'passed))
'passed)))
(fixnum?
(symbol?
(boolean?
(let-values (((a b)
(values (sqrt 2) -1.0)))
a))))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin
(hash-ref
(make-hash)
'not-there
(λ ()
(begin
(begin 2.0)
(hash-ref
(make-hash)
'not-there
(λ () 1.0)))))
'passed))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin
(values
(let-values (((a b)
(if -1.0
(values (sqrt 2) 1.0)
(values 1.0 -1.0))))
a)
(bytes? (begin -1.0)))
'passed))
(real? (fl+ (flasin (fl/ 1.0 2.0)) 2.0))
(hash-ref
(make-hash)
'not-there
(λ ()
(if (fl= (sqrt 2) 1.0)
(hash-ref
(make-hash)
'not-there
(λ () (not (vector? -1.0))))
(if (fl=
(fltan 2.0)
(fl/
(apply flmax (list (sqrt 2) 1.0))
(fltruncate -1.0)))
(apply flmax (list 1.0 2.0))
(if (fl>
(apply fl/ (list (sqrt 2) 1.0))
(apply flmax (list -1.0 1.0)))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin 2.0 'passed))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin 1.0 'passed))))))))
(if (fl<
(flatan -1.0)
(apply
flmin
(list
(apply
fl/
(list
(apply
flmin
(list
(sqrt 2)
(flmax
(fl/ -1.0 2.0)
(flfloor (sqrt 2)))))
(apply
fl/
(list
-1.0
(flfloor (flfloor 2.0))))))
(flatan -1.0))))
(exact-integer?
(box? (fltruncate (flmin (sqrt 2) 2.0))))
(hash-ref
(make-hash)
'not-there
(λ ()
(if (fl<=
(flexp -1.0)
(flmin
(fltan (fl+ 2.0 1.0))
(apply
flmin
(list (flexp (sqrt 2)) 1.0))))
(begin
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin -1.0 'passed))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (begin 1.0) 'passed))
(mpair? (begin (sqrt 2))))
(if (fl<
(apply fl- (list 1.0 1.0))
(apply
flmax
(list
(flsqrt -1.0)
(flacos (sqrt 2)))))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (if 2.0 1.0 2.0) 'passed))
(inexact-real?
(if (fl<= 1.0 2.0) -1.0 2.0)))))))
(begin
(hash-ref
(make-hash)
'not-there
(λ ()
(hash-ref
(make-hash)
'not-there
(λ ()
(let-values (((a b)
(hash-ref
(make-hash)
'not-there
(λ ()
(values 2.0 2.0)))))
a)))))
(fl+
(sqrt 2)
(flmax
(sqrt 2)
(flatan
(apply fl/ (list (sqrt 2) (sqrt 2))))))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin
(->fl
(begin
(begin
(sqrt 2)
(values 2.0 -1.0)
(sqrt 2)
(flround)
(values (sqrt 2) (sqrt 2)))
(hash-ref
(make-hash)
'not-there
(λ () (values -1.0 (sqrt 2))))
(values
(if 2.0 (sqrt 2) -1.0)
(fl>)
(values)))
(if (let-values (((a b)
(values 1.0 1.0)))
a)
(values 2.0 2.0)
(if 1.0
(values (sqrt 2) 2.0)
(values 2.0 1.0)))
(fltan (if (values) (begin 2.0) (fl<)))
(begin (values (->fl))))
'passed))
(hash-ref
(make-hash)
'not-there
(λ ()
(begin
(let-values (((a b)
(values
(eof-object? (sqrt 2))
(begin -1.0))))
a)
2.0
(real?
(hash-ref
(make-hash)
'not-there
(λ ()
(let-values (((a b)
(values 1.0 2.0)))
a)))))))
(let-values (((a b)
(if (with-handlers
((exn:fail?
(λ (x) 'failed)))
(begin
(fl<=
(values (sqrt 2) 2.0)
(if 2.0 (sqrt 2) 2.0))
'passed))
(if (flacos 2.0)
(if -1.0
(if (sqrt 2)
(values 2.0 -1.0)
(values
(sqrt 2)
-1.0))
(hash-ref
(make-hash)
'not-there
(λ ()
(values 1.0 2.0))))
(if (number? 2.0)
(if -1.0
(values 1.0 (sqrt 2))
(values -1.0 2.0))
(if -1.0
(values
(sqrt 2)
(sqrt 2))
(values
-1.0
(sqrt 2)))))
(hash-ref
(make-hash)
'not-there
(λ ()
(hash-ref
(make-hash)
'not-there
(λ ()
(values
(sqrt 2)
-1.0))))))))
a))
(hash-ref (make-hash) 'not-there (λ () 1.0))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin
(inexact-real?
(begin
(let-values (((a b) (values 1.0 2.0)))
a)
(syntax?
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (sqrt 2) 'passed)))))
'passed))
(hash-ref
(make-hash)
'not-there
(λ ()
(let-values (((a b)
(if (bytes?
(begin
(mpair? 2.0)
(if (fl= 2.0 1.0)
1.0
2.0)))
(if (begin (syntax? -1.0))
(if (if (fl> -1.0 2.0)
1.0
2.0)
(hash-ref
(make-hash)
'not-there
(λ ()
(values -1.0 -1.0)))
(if (sqrt 2)
(values 2.0 2.0)
(values 1.0 1.0)))
(values
(begin -1.0)
(begin 2.0)))
(values
(begin
(hash-ref
(make-hash)
'not-there
(λ () -1.0)))
(let-values (((a b)
(if (sqrt 2)
(values
(sqrt 2)
2.0)
(values
2.0
-1.0))))
a)))))
a)))
(number?
(begin
(apply
flmin
(list
-1.0
(fl/
1.0
(apply flmax (list -1.0 (sqrt 2))))))
(hash-ref
(make-hash)
'not-there
(λ ()
(let-values (((a b)
(values
(with-handlers
((exn:fail?
(λ (x) 'failed)))
(begin
(sqrt 2)
'passed))
(let-values (((a b)
(values
-1.0
(sqrt
2))))
a))))
a)))
(sqrt 2)
(let-values (((a b)
(hash-ref
(make-hash)
'not-there
(λ ()
(values
(with-handlers
((exn:fail?
(λ (x) 'failed)))
(begin 1.0 'passed))
1.0)))))
a)
(if (fl= (sqrt 2) 2.0)
(hash-ref
(make-hash)
'not-there
(λ ()
(let-values (((a b)
(values 1.0 -1.0)))
a)))
(let-values (((a b)
(values
(with-handlers
((exn:fail?
(λ (x) 'failed)))
(begin 1.0 'passed))
(begin 1.0))))
a))
(if (fl>
(flsin (fl/ (sqrt 2) 1.0))
(flcos
(apply
fl*
(list
(apply flmin (list -1.0 2.0))
(fl* -1.0 -1.0)))))
(hash-ref
(make-hash)
'not-there
(λ ()
(let-values (((a b)
(if 2.0
(values -1.0 -1.0)
(values
(sqrt 2)
2.0))))
a)))
(begin
(if (fl>=
(apply fl/ (list 2.0 -1.0))
(fltan 2.0))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin 2.0 'passed))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (sqrt 2) 'passed)))
(hash-ref
(make-hash)
'not-there
(λ () (begin (sqrt 2))))
(let-values (((a b)
(values -1.0 -1.0)))
a)
(if (fl< (flasin -1.0) (sqrt 2))
(hash-ref
(make-hash)
'not-there
(λ () -1.0))
(if (fl>= -1.0 1.0) -1.0 (sqrt 2)))
(hash-ref
(make-hash)
'not-there
(λ ()
(if (fl< (sqrt 2) (sqrt 2))
2.0
2.0)))))
(hash-ref
(make-hash)
'not-there
(λ ()
(apply
flmin
(list (fl- 2.0 -1.0) (flabs 2.0)))))))
(hash-ref
(make-hash)
'not-there
(λ ()
(begin
(let-values (((a b)
(if (if (fl> 2.0 1.0)
(if (fl= 2.0 1.0)
-1.0
-1.0)
(begin 1.0))
(hash-ref
(make-hash)
'not-there
(λ ()
(if 1.0
(values
(sqrt 2)
1.0)
(values 2.0 -1.0))))
(values
(begin 2.0)
(if (fl>= (sqrt 2) 1.0)
2.0
-1.0)))))
a)
(fixnum?
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin
(if -1.0
(if 1.0 2.0 2.0)
(if 2.0 2.0 (sqrt 2)))
'passed)))
(hash-ref
(make-hash)
'not-there
(λ ()
(if (fl=
-1.0
(flround
(apply fl- (list -1.0 1.0))))
(begin
(hash-ref
(make-hash)
'not-there
(λ () -1.0)))
(fl+ 1.0 1.0))))
(apply
fl/
(list
(flatan (fllog 2.0))
(apply
flmax
(list
(flmin -1.0 (sqrt 2))
-1.0)))))))
(let-values (((a b)
(hash-ref
(make-hash)
'not-there
(λ ()
(hash-ref
(make-hash)
'not-there
(λ ()
(values
(with-handlers
((exn:fail?
(λ (x) 'failed)))
(begin
(sqrt 2)
'passed))
(let-values (((a b)
(hash-ref
(make-hash)
'not-there
(λ ()
(values
(sqrt
2)
(sqrt
2))))))
a))))))))
a)
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (fl<=) 'passed))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (values) 'passed))
'passed))
(let-values (((a b)
(if (hash-ref
(make-hash)
'not-there
(λ ()
(begin
(fixnum?
(let-values (((a b)
(values
2.0
-1.0)))
a))
(if (fl>
(fl- 1.0 (sqrt 2))
(apply
flmin
(list
(sqrt 2)
(sqrt 2))))
(hash-ref
(make-hash)
'not-there
(λ () (sqrt 2)))
(pair? 2.0)))))
(values
(flcos (fl* 2.0 -1.0))
(begin
(flatan (sqrt 2))
(begin
(with-handlers
((exn:fail?
(λ (x) 'failed)))
(begin 1.0 'passed)))
(begin
(if (fl< 2.0 (sqrt 2))
2.0
2.0)
(if (fl>= 1.0 -1.0)
2.0
2.0))
(if (fl=
(flceiling -1.0)
1.0)
(let-values (((a b)
(values
1.0
2.0)))
a)
1.0)
(let-values (((a b)
(values
2.0
2.0)))
a)))
(values
(hash-ref
(make-hash)
'not-there
(λ ()
(if (fl>
1.0
(flmax -1.0 1.0))
1.0
(mpair? (sqrt 2)))))
(let-values (((a b)
(hash-ref
(make-hash)
'not-there
(λ ()
(if 1.0
(values
2.0
-1.0)
(values
2.0
-1.0))))))
a)))))
a)
(begin
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin
(begin
(begin (fl> (values (sqrt 2) 1.0))))
'passed))
(begin
(begin
(real?
(let-values (((a b)
(if (sqrt 2)
(values 1.0 1.0)
(values
(sqrt 2)
(sqrt 2)))))
a)))
(let-values (((a b)
(if (if (fl>=
(apply
fl*
(list
2.0
(sqrt 2)))
-1.0)
2.0
(pair? 1.0))
(hash-ref
(make-hash)
'not-there
(λ ()
(if 1.0
(values
-1.0
(sqrt 2))
(values 2.0 -1.0))))
(if (if (fl<= 2.0 -1.0)
1.0
-1.0)
(values (sqrt 2) 1.0)
(hash-ref
(make-hash)
'not-there
(λ ()
(values
-1.0
(sqrt 2))))))))
a)
(boolean?
(hash-ref
(make-hash)
'not-there
(λ () (fl* 2.0 2.0))))
(begin
(begin
(vector?
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin -1.0 'passed))))
(if (fl>
1.0
(apply
fl/
(list
(apply
fl/
(list (sqrt 2) (sqrt 2)))
(flfloor (sqrt 2)))))
(begin (syntax? 2.0))
(let-values (((a b)
(values 2.0 -1.0)))
a))
(begin
(hash-ref
(make-hash)
'not-there
(λ () (begin 2.0)))
(begin (string? (sqrt 2)))
(pair? 1.0)
(begin
(number? (sqrt 2))
(sqrt 2)
(syntax? (sqrt 2))
(let-values (((a b)
(values
(sqrt 2)
(sqrt 2))))
a)
(begin (sqrt 2))
(begin -1.0)
(if (fl= 2.0 1.0) -1.0 2.0)
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin 1.0 'passed))
(if (fl>= 2.0 -1.0) -1.0 1.0)
(let-values (((a b)
(values -1.0 -1.0)))
a)
(inexact-real? 2.0))
(begin
-1.0
(syntax? 1.0)
(let-values (((a b)
(values
1.0
(sqrt 2))))
a))
(begin
(let-values (((a b)
(values
(sqrt 2)
-1.0)))
a)
(bytes? 2.0)
(mpair? 2.0))
(pair? 2.0)
(if (fl= 2.0 (fl/ -1.0 (sqrt 2)))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin 1.0 'passed))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin -1.0 'passed)))
(if (fl> -1.0 -1.0)
(begin -1.0)
(if (fl<= -1.0 1.0) 1.0 2.0)))
(begin
(syntax?
(let-values (((a b)
(values 2.0 2.0)))
a))
(let-values (((a b)
(if (sqrt 2)
(values -1.0 -1.0)
(values -1.0 1.0))))
a)
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin
(if 1.0 -1.0 (sqrt 2))
'passed))
1.0
(if (fl<=
(flacos -1.0)
(flmin (sqrt 2) (sqrt 2)))
(procedure? (sqrt 2))
(let-values (((a b)
(values
1.0
(sqrt 2))))
a))
(let-values (((a b)
(if 2.0
(values 1.0 -1.0)
(values
-1.0
(sqrt 2)))))
a))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (begin (sqrt 2)) 'passed))
(number? (inexact-real? 1.0))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (values) 'passed))))
(begin
1.0
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin
(begin (values 2.0 (sqrt 2)))
'passed))
(hash-ref
(make-hash)
'not-there
(λ ()
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin 2.0 'passed))))
(begin
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (sqrt 2) 'passed))
'passed))
(syntax?
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (if 1.0 -1.0 -1.0) 'passed)))
(if (fl>=
(flsqrt (flsqrt (sqrt 2)))
(flsin (fl/ -1.0 2.0)))
(hash-ref
(make-hash)
'not-there
(λ ()
(if (fl> -1.0 (sqrt 2))
-1.0
-1.0)))
(if (fl<= 1.0 (fllog 1.0))
(exact-integer? 1.0)
(let-values (((a b)
(values 2.0 1.0)))
a))))
(not
(begin
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (->fl) 'passed))
(begin
2.0
(let-values (((a b)
(values
(sqrt 2)
(sqrt 2))))
a)
(let-values (((a b)
(values -1.0 -1.0)))
a))))
(begin
(fixnum?
(box?
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin 2.0 'passed))))
(eof-object?
(if (fl< 1.0 (flmax -1.0 2.0))
1.0
(begin (sqrt 2)))))
(if (fl>
(apply
fl*
(list
(apply fl+ (list -1.0 (flsin 2.0)))
(fl- 1.0 (flmax -1.0 2.0))))
(flabs
(fl-
(apply
fl/
(list (sqrt 2) (sqrt 2)))
(apply fl/ (list 2.0 (sqrt 2))))))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin
(if (values 2.0 -1.0)
(begin 1.0)
(begin 2.0))
'passed))
(char?
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (fllog) 'passed))))
(if (fl>=
(fl+
(flmax
(fl* 1.0 -1.0)
(apply fl+ (list 2.0 -1.0)))
(apply
fl/
(list
(flexp -1.0)
(apply fl- (list 1.0 2.0)))))
(apply
flmax
(list
2.0
(flatan (flacos (sqrt 2))))))
(hash-ref
(make-hash)
'not-there
(λ ()
(fixnum?
(hash-ref
(make-hash)
'not-there
(λ () -1.0)))))
(hash-ref
(make-hash)
'not-there
(λ ()
(begin
-1.0
(if (fl<= 1.0 -1.0)
(sqrt 2)
1.0)))))
(hash-ref
(make-hash)
'not-there
(λ ()
(hash-ref
(make-hash)
'not-there
(λ () (eof-object? -1.0)))))
(let-values (((a b)
(hash-ref
(make-hash)
'not-there
(λ ()
(if (begin 1.0)
(if (sqrt 2)
(values 2.0 1.0)
(values
(sqrt 2)
2.0))
(if (sqrt 2)
(values 1.0 1.0)
(values
-1.0
2.0)))))))
a)
(real?
(fl* (flmin 2.0 -1.0) (flround -1.0)))
(hash-ref
(make-hash)
'not-there
(λ ()
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin
(begin
(values -1.0 (sqrt 2))
(begin -1.0))
'passed)))))
(boolean?
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin
(begin (eof-object? (sqrt 2)))
'passed))))
(let-values (((a b)
(values
(let-values (((a b)
(if (vector?
(sqrt 2))
(hash-ref
(make-hash)
'not-there
(λ ()
(hash-ref
(make-hash)
'not-there
(λ ()
(values
-1.0
1.0)))))
(if (let-values (((a
b)
(values
(sqrt
2)
-1.0)))
a)
(values
(sqrt 2)
1.0)
(values
2.0
2.0)))))
a)
(hash-ref
(make-hash)
'not-there
(λ ()
(hash-ref
(make-hash)
'not-there
(λ ()
(hash-ref
(make-hash)
'not-there
(λ ()
(exact-integer?
2.0))))))))))
a)
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin
(values
(sqrt 2)
(bytes?
(let-values (((a b)
(if 2.0
(values 1.0 (sqrt 2))
(values 1.0 2.0))))
a)))
'passed))
(let-values (((a b)
(hash-ref
(make-hash)
'not-there
(λ ()
(hash-ref
(make-hash)
'not-there
(λ ()
(hash-ref
(make-hash)
'not-there
(λ ()
(values
(let-values (((a b)
(values
1.0
2.0)))
a)
(if (fl> 1.0 2.0)
1.0
-1.0))))))))))
a)
(hash-ref
(make-hash)
'not-there
(λ ()
(if (fl=
(flcos
(flceiling (flexp (flacos -1.0))))
(apply
flmax
(list
(flasin
(apply
fl*
(list 1.0 (fl/ 2.0 2.0))))
-1.0)))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin
(values
(fllog)
(values 1.0 2.0)
(hash-ref
(make-hash)
'not-there
(λ () (values 2.0 (sqrt 2))))
2.0
(values)
(values
(begin (sqrt 2))
(->fl)
(values -1.0 1.0)
1.0))
'passed))
(if (fl<
(apply flmax (list -1.0 -1.0))
(apply
flmin
(list
1.0
(fl+
(flround (sqrt 2))
(apply
flmin
(list (sqrt 2) 2.0))))))
(if (fl<
(apply
flmax
(list (flacos 1.0) 2.0))
(apply
flmin
(list
(apply fl+ (list (sqrt 2) 2.0))
(apply
flmax
(list (sqrt 2) (sqrt 2))))))
(syntax?
(let-values (((a b)
(values -1.0 1.0)))
a))
(begin
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (sqrt 2) 'passed))
(hash-ref
(make-hash)
'not-there
(λ () -1.0))))
(let-values (((a b)
(values
(pair? (sqrt 2))
(begin -1.0))))
a)))))
(begin
(hash-ref
(make-hash)
'not-there
(λ ()
(if (fl>
(apply
flmax
(list
(flcos (flfloor 2.0))
(flmin 1.0 (flacos 1.0))))
(apply
fl/
(list
-1.0
(flmax 2.0 (flmax 1.0 1.0)))))
(let-values (((a b)
(hash-ref
(make-hash)
'not-there
(λ ()
(values 1.0 2.0)))))
a)
(hash-ref
(make-hash)
'not-there
(λ ()
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin 1.0 'passed))))))))
(hash-ref
(make-hash)
'not-there
(λ ()
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin
(fllog
(values
(begin 2.0)
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin 2.0 'passed)))
(->fl)
(values)
(values
(begin (values))
(values)
(if (sqrt 2)
(values 2.0 2.0)
(values -1.0 (sqrt 2))))
(if (values)
(begin (if 2.0 (sqrt 2) 2.0))
(->fl (begin (sqrt 2)))))
'passed))))
(if (fl>
(apply
flmin
(list
(fl+
(apply
flmax
(list
(fl/
(flmax (sqrt 2) 2.0)
(fllog 1.0))
(fl/ 1.0 -1.0)))
(fl-
(apply
flmin
(list
(sqrt 2)
(apply fl* (list 2.0 2.0))))
(fl*
(flmin (sqrt 2) -1.0)
(apply flmax (list 1.0 1.0)))))
(flmax
(fl/
(fllog
(apply fl- (list 1.0 (sqrt 2))))
2.0)
(flmax
(apply
fl*
(list
(apply
fl/
(list (sqrt 2) (sqrt 2)))
-1.0))
(fltan 2.0)))))
(sqrt 2))
(let-values (((a b)
(values
(if (fl<
(flfloor
(flsin (sqrt 2)))
(apply
fl/
(list
(apply
fl-
(list 1.0 (sqrt 2)))
(apply
fl-
(list
(sqrt 2)
-1.0)))))
(with-handlers
((exn:fail?
(λ (x) 'failed)))
(begin
(if (sqrt 2)
(sqrt 2)
(sqrt 2))
'passed))
(vector?
(with-handlers
((exn:fail?
(λ (x) 'failed)))
(begin
(sqrt 2)
'passed))))
2.0)))
a)
(hash-ref
(make-hash)
'not-there
(λ ()
(if (fl=
(fl/
(flmin
(fl+ (sqrt 2) 1.0)
(flsqrt (sqrt 2)))
(flatan (fl+ 2.0 2.0)))
(apply
fl*
(list
(apply
fl+
(list 1.0 (fl/ -1.0 (sqrt 2))))
(apply
fl+
(list
(fl/ 2.0 (sqrt 2))
(fl* 2.0 -1.0))))))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin
(let-values (((a b)
(values
1.0
(sqrt 2))))
a)
'passed))
(char?
(syntax?
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (sqrt 2) 'passed))))))))
(if (fl> (flabs -1.0) (sqrt 2))
(hash-ref
(make-hash)
'not-there
(λ ()
(begin
(hash-ref
(make-hash)
'not-there
(λ ()
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin 2.0 'passed))))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin
(hash-ref
(make-hash)
'not-there
(λ () (values 1.0 -1.0)))
'passed))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin
(begin (values 1.0 1.0))
'passed)))))
(hash-ref
(make-hash)
'not-there
(λ ()
(string? (flcos (fl- (sqrt 2) 1.0))))))
(hash-ref
(make-hash)
'not-there
(λ ()
(not
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (values) 'passed)))))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin
(fllog
(values
(values)
(->fl
(values (begin (sqrt 2)))
(if (->fl)
(->fl)
(if -1.0 (sqrt 2) (sqrt 2)))
(if (fl= (sqrt 2) -1.0) -1.0 -1.0)
(if (fl<= 2.0 (sqrt 2))
(sqrt 2)
(sqrt 2))
(values (values))
(flatan)))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin
(if (values -1.0 2.0)
(begin (sqrt 2))
(begin (sqrt 2)))
'passed))
(if (let-values (((a b)
(values 1.0 (sqrt 2))))
a)
(values (bytes? 1.0) (begin (sqrt 2)))
(if (begin 1.0)
(values -1.0 -1.0)
(if 1.0
(values (sqrt 2) 1.0)
(values 1.0 1.0)))))
'passed))
(apply
flmin
(list
1.0
(flsqrt
(fl/ (flexp (fl- -1.0 (sqrt 2))) 2.0))))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin
(if (values
(hash-ref
(make-hash)
'not-there
(λ ()
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin 2.0 'passed))))
(hash-ref
(make-hash)
'not-there
(λ ()
(hash-ref
(make-hash)
'not-there
(λ () (values 2.0 -1.0)))))
(values
2.0
(hash-ref
(make-hash)
'not-there
(λ () (sqrt 2)))))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (values) 'passed))
(values
(hash-ref
(make-hash)
'not-there
(λ () -1.0))
(let-values (((a b)
(hash-ref
(make-hash)
'not-there
(λ ()
(values -1.0 2.0)))))
a)))
'passed))
(hash-ref
(make-hash)
'not-there
(λ ()
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin
(begin
(if (fl>
(sqrt 2)
(apply fl+ (list -1.0 (sqrt 2))))
2.0
(number? -1.0))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (values) 'passed))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (fl-) 'passed)))
'passed))))
(if (fl=
(apply
flmax
(list
(fl*
(sqrt 2)
(flcos
(apply
flmin
(list
(fltruncate -1.0)
(flfloor (sqrt 2))))))
(fl-
(fl/
(apply fl- (list (fl+ -1.0 2.0) 1.0))
(apply
fl+
(list
(fl* (sqrt 2) 1.0)
(apply flmax (list 1.0 -1.0)))))
(flsin
(apply
flmax
(list
(fllog 1.0)
(flsin (sqrt 2))))))))
2.0)
(char? (flsqrt (flatan (flabs -1.0))))
(begin
(symbol?
(mpair?
(bytes?
(if (fl< 1.0 1.0)
2.0
(sqrt 2)))))))))))
a)
(number?
(if (fl>
(flround -1.0)
(flround
(apply
fl*
(list
(apply flmin (list (flsin (flfloor (sqrt 2))) 1.0))
(flmax
(flsqrt
(apply
fl*
(list
(flmax
(apply fl- (list -1.0 1.0))
(apply fl* (list -1.0 1.0)))
(apply
fl+
(list
(apply fl+ (list 2.0 (sqrt 2)))
(sqrt 2))))))
(apply
flmax
(list
2.0
(fl*
(flexp (apply fl* (list 2.0 (sqrt 2))))
(flacos (apply flmax (list 2.0 2.0)))))))))))
(char?
(let-values (((a b)
(hash-ref
(make-hash)
'not-there
(λ ()
(hash-ref
(make-hash)
'not-there
(λ ()
(values
(if (fl>=
(flmax 1.0 -1.0)
(fl* (sqrt 2) (sqrt 2)))
(hash-ref
(make-hash)
'not-there
(λ () 2.0))
(if (fl<= 2.0 -1.0)
(sqrt 2)
(sqrt 2)))
(let-values (((a b)
(values
(sqrt 2)
(sqrt 2))))
a))))))))
a))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin
(values
(begin
(let-values (((a b)
(if (inexact-real? 1.0)
(if 2.0
(values 1.0 -1.0)
(values -1.0 -1.0))
(values (sqrt 2) (sqrt 2)))))
a)
(if (fl= (flfloor (flcos 2.0)) (sqrt 2))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (sqrt 2) 'passed))
(hash-ref
(make-hash)
'not-there
(λ () (if (fl= 1.0 2.0) -1.0 2.0))))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (values) 'passed))
(if (fl<=
(fllog (apply fl* (list 2.0 (sqrt 2))))
(flceiling (fl+ 2.0 1.0)))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (->fl) 'passed))
(if (fl> (fltruncate (sqrt 2)) 1.0)
(if (fl> 1.0 (sqrt 2)) (sqrt 2) (sqrt 2))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (sqrt 2) 'passed))))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (values) 'passed)))
(hash-ref
(make-hash)
'not-there
(λ ()
(hash-ref
(make-hash)
'not-there
(λ ()
(hash-ref
(make-hash)
'not-there
(λ () (values 2.0 -1.0)))))))
(fl>
(begin
(if (begin (values -1.0 -1.0))
(if (begin 1.0)
(if 1.0 (sqrt 2) 2.0)
(values 1.0 (sqrt 2)))
(if (fl>= -1.0 2.0) -1.0 -1.0))
(values)
(values (values) (begin (values 1.0 2.0)))
(flround -1.0)
(if (let-values (((a b) (values 1.0 1.0))) a)
(hash-ref
(make-hash)
'not-there
(λ () (values (sqrt 2) -1.0)))
(fltruncate -1.0))
(flsqrt
(if (if 1.0 (sqrt 2) 1.0)
(begin 2.0)
(if 2.0 -1.0 1.0)))
(if (values)
(let-values (((a b) (values 2.0 -1.0))) a)
(if (begin -1.0) (values -1.0 -1.0) (values)))
(if (begin
2.0
(if -1.0 -1.0 (sqrt 2))
(begin 1.0)
1.0
(values)
(values 1.0 (sqrt 2))
(if 2.0 2.0 (sqrt 2)))
(hash-ref
(make-hash)
'not-there
(λ () (values 1.0 (sqrt 2))))
(hash-ref
(make-hash)
'not-there
(λ () (values (sqrt 2) 1.0)))))
(begin
(->fl
(if (values 2.0 (sqrt 2))
1.0
(values (sqrt 2) 1.0)))
(values
(hash-ref (make-hash) 'not-there (λ () -1.0))
(if (fl< 2.0 -1.0) (sqrt 2) 1.0)))
(flsqrt)
(values
(hash-ref (make-hash) 'not-there (λ () (begin -1.0))))
(if (if (fl=
(apply flmin (list (sqrt 2) (sqrt 2)))
(flexp 1.0))
(let-values (((a b) (values -1.0 (sqrt 2)))) a)
(let-values (((a b) (values -1.0 2.0))) a))
(hash-ref
(make-hash)
'not-there
(λ ()
(hash-ref
(make-hash)
'not-there
(λ () (values (sqrt 2) (sqrt 2))))))
(if (let-values (((a b) (values 1.0 (sqrt 2)))) a)
(if 1.0 (values -1.0 2.0) (values (sqrt 2) -1.0))
(values -1.0 1.0)))
(if (box?
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin 1.0 'passed)))
(hash-ref
(make-hash)
'not-there
(λ ()
(hash-ref
(make-hash)
'not-there
(λ () (values (sqrt 2) 1.0)))))
(hash-ref
(make-hash)
'not-there
(λ ()
(if -1.0
(values 1.0 2.0)
(values (sqrt 2) 2.0)))))
(begin
(hash-ref
(make-hash)
'not-there
(λ () (values 2.0 -1.0))))
(fl<=
(->fl)
(begin
(fltan)
(values)
(begin (fltan))
(if 2.0 (values 1.0 -1.0) (values -1.0 (sqrt 2)))
(values (values))
(begin (sqrt 2))
(begin (fl>=)))
(begin 1.0 (begin (values)))
(begin (sqrt 2))
(begin (sqrt 2)))
(values)
(values)
(->fl
(if (hash-ref (make-hash) 'not-there (λ () -1.0))
(hash-ref
(make-hash)
'not-there
(λ () (values 1.0 (sqrt 2))))
(if 2.0 (values 1.0 -1.0) (values (sqrt 2) -1.0)))
(values
(if (->fl) (values) (values (sqrt 2) (sqrt 2)))
(if (begin 1.0) (begin 1.0) (sqrt 2))))
(hash-ref
(make-hash)
'not-there
(λ ()
(values
(hash-ref (make-hash) 'not-there (λ () 2.0))
(hash-ref
(make-hash)
'not-there
(λ () (sqrt 2))))))
(->fl)
(values
(if (fl= (->fl) (sqrt 2) (begin 1.0))
(if (->fl) (begin -1.0) (values (sqrt 2) -1.0))
(begin (values 2.0 -1.0)))
(hash-ref
(make-hash)
'not-there
(λ ()
(hash-ref
(make-hash)
'not-there
(λ () (values -1.0 1.0)))))))
(begin
(begin
(if (fl= (fl/ 1.0 2.0) (flsin 2.0))
(begin 2.0)
(hash-ref (make-hash) 'not-there (λ () (sqrt 2))))
(if (fl<
(fllog 1.0)
(apply fl/ (list (sqrt 2) (sqrt 2))))
(number? -1.0)
-1.0)
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (sqrt 2) 'passed)))
(begin
(if (begin (fllog))
(begin (if 2.0 1.0 -1.0) (values (sqrt 2) 1.0))
(->fl))
(values
(values)
(values 1.0 (sqrt 2))
(values (flmax))
(if -1.0
(values (sqrt 2) 1.0)
(values (sqrt 2) (sqrt 2)))
(if (sqrt 2) 2.0 (if -1.0 -1.0 2.0)))
(values
(begin (values (sqrt 2) -1.0))
(begin (if 1.0 1.0 (sqrt 2))))
(apply fl* (list 1.0 -1.0))
(let-values (((a b)
(if (sqrt 2)
(values -1.0 (sqrt 2))
(values 2.0 1.0))))
a))
(values
(begin
(eof-object? (sqrt 2))
(begin (if (sqrt 2) 1.0 2.0) (values))
(if (if -1.0 1.0 -1.0)
(if (sqrt 2) (sqrt 2) (sqrt 2))
(values))
(fl-)
(values))
(values
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (sqrt 2) 'passed))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin 1.0 'passed)))))
(flacos
(begin
(fl>
(if (values 1.0 2.0)
(if (sqrt 2) 1.0 1.0)
(if 2.0 1.0 -1.0))
(->fl))
(if (->fl)
(values (fl>))
(->fl (fl>=) (if -1.0 2.0 2.0))))))
'passed)))))
(values (- i 1)))))))
(f1
(future
(λ ()
(let ((i 1))
(unless (zero? i)
(if (fl<
(apply
fl-
(list
(apply
fl/
(list
(flmin
(flsin
(flasin
(apply
fl*
(list
(flmax
(fl* (fl* 1.0 1.0) (flexp (sqrt 2)))
(flmin (fl* 2.0 1.0) (fltruncate (sqrt 2))))
(apply
flmin
(list
(flmax (fl+ -1.0 -1.0) (flatan 1.0))
(flcos (apply fl* (list 2.0 -1.0)))))))))
(apply
fl*
(list
-1.0
(flfloor
(apply
flmax
(list
(flexp
(fl/
(apply fl/ (list -1.0 -1.0))
(fl- 1.0 (sqrt 2))))
(apply
fl+
(list
(apply
fl/
(list (fl/ 2.0 -1.0) (flmin (sqrt 2) 1.0)))
(flmax (flceiling 2.0) (flceiling 1.0))))))))))
(flceiling
(fl-
(fl/
(flround 2.0)
(flexp
(apply
fl-
(list (fllog (sqrt 2)) (flround (sqrt 2))))))
2.0))))
2.0))
(fl/
-1.0
(apply
flmin
(list
-1.0
(fl+
2.0
(flsqrt
(fl*
1.0
(flmax
(flsqrt
(fl-
(apply flmax (list 1.0 2.0))
(apply fl- (list 1.0 -1.0))))
(apply
fl/
(list
(flceiling 2.0)
(apply
fl-
(list
(fl+ -1.0 -1.0)
(flmin 1.0 (sqrt 2))))))))))))))
(let-values (((a b)
(values
(apply
fl+
(list
(fllog
(flmin
(fl-
2.0
(flmin (flsin (sqrt 2)) (flacos 1.0)))
-1.0))
(flfloor -1.0)))
(begin
(string?
(begin
(if (fl>=
(fl+
(flexp 2.0)
(fl*
(apply flmin (list (sqrt 2) 1.0))
(fl- 1.0 1.0)))
1.0)
(hash-ref
(make-hash)
'not-there
(λ ()
(hash-ref
(make-hash)
'not-there
(λ ()
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (sqrt 2) 'passed))))))
(begin
(sqrt 2)
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin 1.0 'passed))
(mpair?
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (sqrt 2) 'passed)))))
(begin
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin
(fl= (values 1.0 1.0))
'passed)))))
(not
(number?
(number?
(if (fl>
(fllog (fl/ -1.0 1.0))
(flmin
(fl/ (sqrt 2) 1.0)
(fl+ -1.0 2.0)))
(begin
2.0
1.0
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (sqrt 2) 'passed)))
(hash-ref
(make-hash)
'not-there
(λ ()
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin -1.0 'passed))))))))
(let-values (((a b)
(if (let-values (((a b)
(hash-ref
(make-hash)
'not-there
(λ ()
(if (with-handlers
((exn:fail?
(λ (x)
'failed)))
(begin
-1.0
'passed))
(values
(sqrt 2)
2.0)
(if 2.0
(values
(sqrt
2)
2.0)
(values
2.0
1.0)))))))
a)
(values
(begin
2.0
(let-values (((a b)
(hash-ref
(make-hash)
'not-there
(λ ()
(values
(sqrt 2)
(sqrt
2))))))
a)
(char? 1.0)
(let-values (((a b)
(values
1.0
(sqrt 2))))
a))
(begin
(with-handlers
((exn:fail?
(λ (x) 'failed)))
(begin
(sqrt 2)
'passed))))
(if (let-values (((a b)
(hash-ref
(make-hash)
'not-there
(λ ()
(if 1.0
(values
2.0
(sqrt
2))
(values
2.0
1.0))))))
a)
(hash-ref
(make-hash)
'not-there
(λ ()
(values
(let-values (((a b)
(values
1.0
2.0)))
a)
(let-values (((a b)
(values
-1.0
1.0)))
a))))
(if (symbol?
(with-handlers
((exn:fail?
(λ (x) 'failed)))
(begin
(sqrt 2)
'passed)))
(hash-ref
(make-hash)
'not-there
(λ ()
(if 1.0
(values 1.0 -1.0)
(values 2.0 -1.0))))
(if (hash-ref
(make-hash)
'not-there
(λ () 2.0))
(values 1.0 1.0)
(if 2.0
(values -1.0 1.0)
(values
2.0
2.0))))))))
a)
(hash-ref
(make-hash)
'not-there
(λ ()
(begin
(hash-ref
(make-hash)
'not-there
(λ ()
(hash-ref
(make-hash)
'not-there
(λ ()
(begin
(begin (sqrt 2))
(let-values (((a b)
(values 2.0 1.0)))
a))))))
(begin
(begin
(fixnum?
(hash-ref
(make-hash)
'not-there
(λ () 2.0)))
(begin
(hash-ref
(make-hash)
'not-there
(λ () 2.0))
(let-values (((a b)
(values -1.0 2.0)))
a))
(if (fl<=
2.0
(apply fl* (list 2.0 1.0)))
2.0
(begin -1.0))
(begin
(if (fl>= 1.0 (sqrt 2))
2.0
(sqrt 2))
-1.0
(if (fl< -1.0 (sqrt 2)) -1.0 -1.0)
1.0
(hash-ref
(make-hash)
'not-there
(λ () (sqrt 2))))
(begin (begin -1.0)))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin
(values (sqrt 2) (values))
'passed))
(if (fl>=
(apply
fl+
(list
(flsqrt 2.0)
(flfloor 2.0)))
(apply fl* (list 2.0 2.0)))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (begin 2.0) 'passed))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (values) 'passed))))
(apply
fl/
(list
(apply
flmax
(list
(apply fl* (list 1.0 2.0))
(apply fl/ (list 1.0 2.0))))
(flasin 1.0))))))
(begin
(if (fl>
(fllog
(flmax
(fltruncate -1.0)
(flacos (flmax -1.0 -1.0))))
(apply
fl/
(list
2.0
(fl+
(flmin
(apply
fl-
(list (sqrt 2) (sqrt 2)))
(apply
fl/
(list (sqrt 2) (sqrt 2))))
(flabs 2.0)))))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin
(values
(exact-integer? (sqrt 2))
(if (fl>= 1.0 -1.0) (sqrt 2) -1.0))
'passed))
(begin
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (values (begin 1.0)) 'passed))))
(if (fl=
2.0
(apply
flmax
(list
(fl+
(fllog
(apply flmax (list 1.0 (sqrt 2))))
1.0)
1.0)))
(hash-ref
(make-hash)
'not-there
(λ ()
(if (fl> (fltan -1.0) 1.0)
(hash-ref
(make-hash)
'not-there
(λ () (number? 1.0)))
(hash-ref
(make-hash)
'not-there
(λ ()
(let-values (((a b)
(values
(sqrt 2)
(sqrt 2))))
a))))))
(begin
(if (fl<
1.0
(apply
fl+
(list
(apply
fl+
(list (sqrt 2) (sqrt 2)))
(flmax 2.0 -1.0))))
(let-values (((a b)
(if -1.0
(values -1.0 (sqrt 2))
(values 1.0 -1.0))))
a)
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (values 2.0 2.0) 'passed)))))
(let-values (((a b)
(hash-ref
(make-hash)
'not-there
(λ ()
(if (eof-object?
(with-handlers
((exn:fail?
(λ (x) 'failed)))
(begin 2.0 'passed)))
(if (let-values (((a b)
(values
(sqrt
2)
-1.0)))
a)
(values 1.0 (sqrt 2))
(if -1.0
(values 1.0 (sqrt 2))
(values 2.0 -1.0)))
(values
(let-values (((a b)
(values
1.0
(sqrt
2))))
a)
(let-values (((a b)
(values
-1.0
-1.0)))
a)))))))
a)
(flmax
(apply
flmax
(list 1.0 (flsqrt (fl- 2.0 -1.0))))
(flmax (flabs (flasin 2.0)) (sqrt 2)))
(hash-ref
(make-hash)
'not-there
(λ ()
(let-values (((a b)
(values
(with-handlers
((exn:fail?
(λ (x) 'failed)))
(begin (values) 'passed))
(with-handlers
((exn:fail?
(λ (x) 'failed)))
(begin
(if (sqrt 2)
2.0
(sqrt 2))
'passed)))))
a)))
(fl-
-1.0
(apply
fl-
(list
(sqrt 2)
(flmin (flceiling 2.0) (fltan -1.0)))))
(if (fl<=
(fl+
(apply
fl+
(list
(flround (fl+ 2.0 (sqrt 2)))
(apply
flmax
(list
(fl* 2.0 -1.0)
(flmax 2.0 2.0)))))
(apply
fl-
(list
(flceiling (flmax 2.0 1.0))
1.0)))
2.0)
(hash-ref
(make-hash)
'not-there
(λ ()
(if (fl>=
(fl/ (flfloor 2.0) (sqrt 2))
(apply
flmax
(list
(apply
fl*
(list (sqrt 2) (sqrt 2)))
(flmax -1.0 1.0))))
1.0
(if (fl<= 1.0 (flmax 2.0 2.0))
(if (fl< -1.0 2.0) (sqrt 2) 2.0)
-1.0))))
(begin
(begin
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (values 1.0 2.0) 'passed)))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin
(fl<= (values 1.0 2.0))
'passed))))
(box?
(if (fl<=
(fl+
(fl/
2.0
(apply fl* (list (sqrt 2) 2.0)))
(flmin -1.0 (fltan 1.0)))
(sqrt 2))
(procedure?
(begin
(if (fl< (sqrt 2) 2.0) 2.0 -1.0)
(hash-ref
(make-hash)
'not-there
(λ () 1.0))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin 2.0 'passed))
(let-values (((a b)
(values (sqrt 2) -1.0)))
a)))
(syntax? (flexp -1.0))))
(let-values (((a b)
(hash-ref
(make-hash)
'not-there
(λ ()
(hash-ref
(make-hash)
'not-there
(λ ()
(values
(if (fl>=
-1.0
(sqrt 2))
(sqrt 2)
-1.0)
(if (fl> 1.0 -1.0)
2.0
2.0))))))))
a))
(inexact-real?
(hash-ref
(make-hash)
'not-there
(λ ()
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (fl-) 'passed)))))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (flmax) 'passed))
(flmax
-1.0
(apply
flmax
(list
(sqrt 2)
(flceiling
(flasin (flmax (sqrt 2) -1.0))))))
(hash-ref
(make-hash)
'not-there
(λ ()
(let-values (((a b)
(values
(if (fl>=
(flfloor
(apply
fl*
(list
(sqrt 2)
(sqrt 2))))
(apply
fl-
(list (sqrt 2) -1.0)))
(real?
(with-handlers
((exn:fail?
(λ (x) 'failed)))
(begin 2.0 'passed)))
(vector?
(if (fl>= 2.0 2.0)
2.0
(sqrt 2))))
(apply
fl-
(list
(fl+ 2.0 1.0)
(flasin 1.0))))))
a)))
(hash-ref
(make-hash)
'not-there
(λ ()
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin
(values
(values
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (sqrt 2) 'passed))))
'passed))))
(real?
(pair?
(begin
(let-values (((a b)
(hash-ref
(make-hash)
'not-there
(λ ()
(if (sqrt 2)
(values -1.0 1.0)
(values
(sqrt 2)
2.0))))))
a)
(begin
(symbol?
(hash-ref
(make-hash)
'not-there
(λ () 1.0))))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (begin (values)) 'passed)))))
(if (fl>=
(flabs
(flmin
(apply
fl-
(list
(apply
flmin
(list
2.0
(apply flmin (list 2.0 (sqrt 2)))))
(fl-
(fl- 1.0 (sqrt 2))
(apply fl+ (list -1.0 1.0)))))
(fl*
(fl/
(flcos 2.0)
(apply fl+ (list -1.0 (sqrt 2))))
(fltruncate (flsqrt 2.0)))))
(fl+
(flacos
(flcos
(apply
flmin
(list
(apply fl* (list (sqrt 2) 1.0))
(apply fl+ (list 2.0 2.0))))))
(apply
fl*
(list
(apply
fl/
(list
(flatan (apply fl* (list 2.0 -1.0)))
(flcos (flround -1.0))))
(apply flmax (list 2.0 (sqrt 2)))))))
(begin
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin
(begin
(values)
(values (values 2.0 1.0))
(values)
(begin (values))
(if (if -1.0 (sqrt 2) -1.0)
(if 2.0 1.0 -1.0)
1.0))
'passed)))
(hash-ref
(make-hash)
'not-there
(λ () (fl/ -1.0 (flabs (fl- 2.0 2.0))))))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin
(if (if (fl=
(apply
fl/
(list
(apply flmin (list -1.0 -1.0))
(flceiling 1.0)))
(apply
fl-
(list
(fl+ (sqrt 2) -1.0)
(fltan -1.0))))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (values -1.0 -1.0) 'passed))
(vector?
(hash-ref
(make-hash)
'not-there
(λ () 1.0))))
(hash-ref
(make-hash)
'not-there
(λ ()
(values
(hash-ref
(make-hash)
'not-there
(λ () 1.0))
(hash-ref
(make-hash)
'not-there
(λ () (sqrt 2))))))
(if (begin
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin -1.0 'passed)))
(hash-ref
(make-hash)
'not-there
(λ () (values 2.0 1.0)))
(hash-ref
(make-hash)
'not-there
(λ ()
(if -1.0
(values (sqrt 2) -1.0)
(values 1.0 -1.0))))))
'passed))
(begin
(hash-ref
(make-hash)
'not-there
(λ ()
(if (fl>=
(fl+
(flabs (sqrt 2))
(apply
fl*
(list
(flfloor -1.0)
(apply
fl*
(list 2.0 (sqrt 2))))))
1.0)
(let-values (((a b)
(hash-ref
(make-hash)
'not-there
(λ ()
(values
(sqrt 2)
2.0)))))
a)
(flasin 2.0))))
(let-values (((a b)
(hash-ref
(make-hash)
'not-there
(λ ()
(values
(let-values (((a b)
(hash-ref
(make-hash)
'not-there
(λ ()
(values
1.0
-1.0)))))
a)
(with-handlers
((exn:fail?
(λ (x) 'failed)))
(begin
(->fl)
'passed)))))))
a)
(if (fl<
(apply
fl*
(list
(fl+
1.0
(flmax
1.0
(apply fl* (list 1.0 2.0))))
(apply
flmin
(list
-1.0
(flmin
(flmax (sqrt 2) 2.0)
(apply fl- (list -1.0 -1.0)))))))
(apply
flmin
(list
(sqrt 2)
(flacos (flasin (flexp 2.0))))))
(hash-ref
(make-hash)
'not-there
(λ () (flround (flround 1.0))))
(symbol?
(let-values (((a b)
(if (with-handlers
((exn:fail?
(λ (x) 'failed)))
(begin 1.0 'passed))
(if (sqrt 2)
(values 1.0 1.0)
(values 1.0 1.0))
(if 2.0
(values 1.0 (sqrt 2))
(values 2.0 1.0)))))
a)))
(if (fl>
(fllog (sqrt 2))
(flexp
(fltan
(flsin
(apply
flmin
(list (sqrt 2) (sqrt 2)))))))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin
(values
(flsqrt)
(if (fl< (sqrt 2) -1.0) 1.0 1.0))
'passed))
(if (fl<=
(sqrt 2)
(flsin
(fl+ (fl+ -1.0 1.0) (fl+ 2.0 2.0))))
(begin
(let-values (((a b)
(if 2.0
(values 2.0 (sqrt 2))
(values
2.0
(sqrt 2)))))
a))
(flmax
(sqrt 2)
(apply fl- (list 2.0 1.0)))))
(boolean?
(if (fl<
(fl+ 2.0 1.0)
(apply
fl*
(list
(sqrt 2)
(apply
fl-
(list -1.0 (fl+ -1.0 -1.0))))))
(if (fl>=
(fl- (flcos 2.0) 2.0)
(flasin (flasin 2.0)))
(hash-ref
(make-hash)
'not-there
(λ () (begin (sqrt 2))))
(apply fl/ (list 1.0 1.0)))
(if (fl=
(flatan (flmax 2.0 2.0))
(apply
fl-
(list
(flsqrt -1.0)
(apply fl* (list 1.0 1.0)))))
(flmin (sqrt 2) 1.0)
(let-values (((a b)
(hash-ref
(make-hash)
'not-there
(λ ()
(values
-1.0
(sqrt 2))))))
a))))
(hash-ref
(make-hash)
'not-there
(λ ()
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin
(values 1.0 (begin -1.0))
'passed)))))
(hash-ref
(make-hash)
'not-there
(λ ()
(fixnum?
(if (fl>
(flsqrt
(apply
fl/
(list
(apply fl/ (list -1.0 (sqrt 2)))
(flsqrt (sqrt 2)))))
(apply
fl*
(list
1.0
(apply
flmax
(list
(flmin (sqrt 2) 2.0)
-1.0)))))
(let-values (((a b)
(if (syntax? (sqrt 2))
(hash-ref
(make-hash)
'not-there
(λ ()
(values
(sqrt 2)
1.0)))
(hash-ref
(make-hash)
'not-there
(λ ()
(values
-1.0
1.0))))))
a)
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin
(let-values (((a b)
(values 2.0 2.0)))
a)
'passed))))))
(hash-ref
(make-hash)
'not-there
(λ ()
(if (fl<
(apply
fl/
(list
1.0
(flatan
(apply
fl+
(list
2.0
(apply
flmax
(list 2.0 -1.0)))))))
(flexp
(apply
fl+
(list
(apply
flmax
(list
(flmax -1.0 1.0)
(fl+ 1.0 -1.0)))
(flmax
(apply fl/ (list 1.0 -1.0))
(apply fl+ (list -1.0 1.0)))))))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (values) 'passed))
(let-values (((a b)
(if (hash-ref
(make-hash)
'not-there
(λ ()
(with-handlers
((exn:fail?
(λ (x) 'failed)))
(begin
1.0
'passed))))
(values
(begin 2.0)
(let-values (((a b)
(values
1.0
1.0)))
a))
(if (begin 1.0)
(hash-ref
(make-hash)
'not-there
(λ ()
(values
(sqrt 2)
-1.0)))
(hash-ref
(make-hash)
'not-there
(λ ()
(values
2.0
1.0)))))))
a))))
(if (fl<
(flacos 2.0)
(fl/
1.0
(fl/
(apply
fl+
(list
(apply
flmin
(list
(apply flmax (list (sqrt 2) -1.0))
(fllog 2.0)))
(apply
flmin
(list (flexp 2.0) (flcos 2.0)))))
(apply fl/ (list 2.0 (sqrt 2))))))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin
(flcos
(let-values (((a b)
(if 1.0
(values (sqrt 2) 1.0)
(values 2.0 (sqrt 2)))))
a))
'passed))
(if (fl= (flsin (flabs 1.0)) 2.0)
(begin
(begin
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (values) 'passed))
(hash-ref
(make-hash)
'not-there
(λ () 1.0))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin 2.0 'passed)))
(hash-ref
(make-hash)
'not-there
(λ ()
(apply fl- (list 2.0 (sqrt 2))))))
(real?
(hash-ref
(make-hash)
'not-there
(λ ()
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (flmax) 'passed)))))))
(let-values (((a b)
(hash-ref
(make-hash)
'not-there
(λ ()
(if (if (fl=
-1.0
(apply
flmin
(list
(flcos 2.0)
(apply
flmax
(list
-1.0
2.0)))))
(begin (begin 1.0))
(fixnum? -1.0))
(hash-ref
(make-hash)
'not-there
(λ ()
(values
(let-values (((a b)
(values
(sqrt 2)
-1.0)))
a)
(begin 2.0))))
(hash-ref
(make-hash)
'not-there
(λ ()
(if (if (fl>
-1.0
(sqrt 2))
-1.0
-1.0)
(hash-ref
(make-hash)
'not-there
(λ ()
(values 2.0 2.0)))
(if 1.0
(values
(sqrt 2)
(sqrt 2))
(values
2.0
-1.0))))))))))
a)
(flsin
(apply
fl/
(list
1.0
(fl*
(sqrt 2)
(fl+
(flatan (sqrt 2))
(apply fl- (list (sqrt 2) 1.0)))))))
(begin
(begin
(let-values (((a b)
(if (hash-ref
(make-hash)
'not-there
(λ ()
(if (fl<=
2.0
(sqrt 2))
2.0
2.0)))
(values
(with-handlers
((exn:fail?
(λ (x) 'failed)))
(begin -1.0 'passed))
(if (fl>=
(sqrt 2)
(sqrt 2))
1.0
2.0))
(if (with-handlers
((exn:fail?
(λ (x) 'failed)))
(begin 1.0 'passed))
(if 1.0
(values 2.0 -1.0)
(values 2.0 2.0))
(hash-ref
(make-hash)
'not-there
(λ ()
(values
-1.0
1.0)))))))
a)
(hash-ref
(make-hash)
'not-there
(λ ()
(hash-ref
(make-hash)
'not-there
(λ ()
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin
(values 1.0 2.0)
'passed))))))
(let-values (((a b)
(if (begin
(sqrt 2)
(let-values (((a b)
(values
2.0
2.0)))
a))
(if (sqrt 2)
(hash-ref
(make-hash)
'not-there
(λ ()
(values
(sqrt 2)
(sqrt 2))))
(if (sqrt 2)
(values
(sqrt 2)
(sqrt 2))
(values 1.0 2.0)))
(hash-ref
(make-hash)
'not-there
(λ ()
(values -1.0 1.0))))))
a)
(let-values (((a b)
(hash-ref
(make-hash)
'not-there
(λ ()
(if (hash-ref
(make-hash)
'not-there
(λ () 1.0))
(values 1.0 -1.0)
(if -1.0
(values
(sqrt 2)
(sqrt 2))
(values
-1.0
1.0)))))))
a)
(if (fl=
(fl+
(flmax (flmax -1.0 -1.0) 1.0)
(apply
fl*
(list
(apply flmin (list 1.0 -1.0))
(flmax -1.0 2.0))))
(flfloor 2.0))
(begin
(hash-ref
(make-hash)
'not-there
(λ ()
(let-values (((a b)
(values -1.0 1.0)))
a))))
(if (fl=
(apply
fl*
(list (flabs 2.0) (fl- 1.0 1.0)))
-1.0)
(let-values (((a b)
(hash-ref
(make-hash)
'not-there
(λ ()
(values 2.0 1.0)))))
a)
(begin
(let-values (((a b)
(values
(sqrt 2)
1.0)))
a)
(if (fl<= (sqrt 2) -1.0)
2.0
(sqrt 2))
(let-values (((a b)
(values
(sqrt 2)
-1.0)))
a)))))
(if (fl<=
(fl*
(apply
fl+
(list
(apply
fl/
(list
(fl- (sqrt 2) -1.0)
(sqrt 2)))
(fl-
(flmin (sqrt 2) (sqrt 2))
(fl/ 2.0 -1.0))))
(flexp 1.0))
(apply
flmin
(list
-1.0
(apply
flmax
(list
2.0
(flmax
(flceiling (sqrt 2))
(fl- (sqrt 2) (sqrt 2))))))))
(let-values (((a b)
(values
(apply
flmin
(list (sqrt 2) (sqrt 2)))
(if (fl=
2.0
(fl/ (sqrt 2) 2.0))
(begin (sqrt 2))
2.0))))
a)
(eof-object?
(hash-ref
(make-hash)
'not-there
(λ ()
(hash-ref
(make-hash)
'not-there
(λ () (begin 2.0)))))))
(fllog
(fl-
(fl- (flasin 2.0) (flacos (sqrt 2)))
(apply
flmax
(list
(apply flmax (list (sqrt 2) -1.0))
2.0))))
(hash-ref
(make-hash)
'not-there
(λ ()
(if (fl=
(fl*
(sqrt 2)
(apply
fl-
(list
(fl+ 1.0 -1.0)
(fl+ (sqrt 2) 1.0))))
(apply
fl+
(list
(apply
flmax
(list
(apply fl+ (list -1.0 2.0))
(sqrt 2)))
(flmin
(flsqrt -1.0)
(fl* 1.0 1.0)))))
(let-values (((a b)
(values
(if (fl> (sqrt 2) 2.0)
1.0
-1.0)
(let-values (((a b)
(values
1.0
(sqrt
2))))
a))))
a)
(if (fl> (flfloor 2.0) (flabs 1.0))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (sqrt 2) 'passed))
(flexp 1.0))))))
(eof-object?
(hash-ref
(make-hash)
'not-there
(λ ()
(let-values (((a b)
(if (procedure? (begin 1.0))
(values (begin 2.0) -1.0)
(hash-ref
(make-hash)
'not-there
(λ ()
(if 1.0
(values
(sqrt 2)
(sqrt 2))
(values
1.0
1.0)))))))
a))))
(begin
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin
(begin
(values
(begin 1.0)
(begin (values 1.0 1.0))
(flfloor)
(values)
(values))
(hash-ref
(make-hash)
'not-there
(λ ()
(hash-ref
(make-hash)
'not-there
(λ ()
(values (sqrt 2) (sqrt 2))))))
(values (sqrt 2) (begin 2.0))
(fl+)
(begin (flfloor (flmin) (begin -1.0)))
(->fl
(not 1.0)
(->fl)
(->fl)
(values (values 2.0 2.0))
(fl/ 1.0))
(values
(let-values (((a b)
(values -1.0 1.0)))
a)
(procedure? 1.0))
(values)
(values
(if (fl<= 2.0 (sqrt 2)) 2.0 1.0)
(begin 2.0))
(values
(hash-ref
(make-hash)
'not-there
(λ () 2.0))
(begin -1.0))
(begin
(hash-ref
(make-hash)
'not-there
(λ () (values 2.0 2.0)))
(values
(values)
(values -1.0 -1.0)
(values))
(hash-ref
(make-hash)
'not-there
(λ () (values (sqrt 2) 1.0)))
(begin -1.0 (flasin))
(values))
(begin
(hash-ref
(make-hash)
'not-there
(λ () 1.0))
(begin -1.0)
(let-values (((a b)
(values
-1.0
(sqrt 2))))
a)
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin -1.0 'passed))))
'passed))
(let-values (((a b)
(hash-ref
(make-hash)
'not-there
(λ ()
(hash-ref
(make-hash)
'not-there
(λ ()
(values
(begin -1.0)
(begin 1.0))))))))
a)
(begin
(if (fl<=
(flceiling (flabs (flabs 1.0)))
(fl*
(sqrt 2)
(flacos
(apply fl+ (list 1.0 -1.0)))))
(hash-ref
(make-hash)
'not-there
(λ () (syntax? 2.0)))
(apply
fl+
(list
(apply fl+ (list 2.0 -1.0))
(flcos -1.0))))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin
(symbol? (number? (sqrt 2)))
'passed))
(if (fl>
(sqrt 2)
(flmax
(apply
flmax
(list 2.0 (fl+ 1.0 (sqrt 2))))
(apply
flmax
(list (fl/ -1.0 2.0) 2.0))))
(hash-ref
(make-hash)
'not-there
(λ ()
(begin
(syntax? 2.0)
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin 2.0 'passed)))))
(begin
(sqrt 2)
(bytes? (bytes? 2.0))
(let-values (((a b)
(hash-ref
(make-hash)
'not-there
(λ ()
(values 1.0 1.0)))))
a)
(bytes?
(let-values (((a b)
(values
(sqrt 2)
-1.0)))
a))
(begin
(let-values (((a b)
(values
(sqrt 2)
(sqrt 2))))
a)
(begin (sqrt 2))
(if (fl<= -1.0 2.0) 2.0 1.0)
(if (fl> 1.0 -1.0) (sqrt 2) -1.0))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (begin (sqrt 2)) 'passed))
(if (fl>
(apply
fl/
(list (sqrt 2) (sqrt 2)))
2.0)
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin 1.0 'passed))
(if (fl< 2.0 -1.0) (sqrt 2) -1.0))))
(if (fl<
(apply
fl/
(list
(fl*
(flmax 1.0 (sqrt 2))
(flatan -1.0))
(fl+ (flcos (sqrt 2)) 1.0)))
(apply
fl+
(list
(flatan (fllog (sqrt 2)))
(apply fl* (list (sqrt 2) 1.0)))))
-1.0
(if (fl>=
1.0
(apply
fl*
(list
(apply fl/ (list 1.0 2.0))
(sqrt 2))))
(if (fl>=
1.0
(apply fl+ (list 2.0 (sqrt 2))))
(hash-ref
(make-hash)
'not-there
(λ () (sqrt 2)))
(let-values (((a b)
(values
2.0
(sqrt 2))))
a))
(let-values (((a b)
(if 1.0
(values 1.0 -1.0)
(values
2.0
(sqrt 2)))))
a)))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin
(if (fl= (sqrt 2) (flasin 2.0))
(hash-ref
(make-hash)
'not-there
(λ () 1.0))
(hash-ref
(make-hash)
'not-there
(λ () (sqrt 2))))
'passed)))
(procedure?
(let-values (((a b)
(if (hash-ref
(make-hash)
'not-there
(λ () -1.0))
(if (with-handlers
((exn:fail?
(λ (x) 'failed)))
(begin 1.0 'passed))
(hash-ref
(make-hash)
'not-there
(λ ()
(values
1.0
(sqrt 2))))
(hash-ref
(make-hash)
'not-there
(λ ()
(values
(sqrt 2)
2.0))))
(hash-ref
(make-hash)
'not-there
(λ ()
(values
(sqrt 2)
2.0))))))
a))
(let-values (((a b)
(values
1.0
(with-handlers
((exn:fail?
(λ (x) 'failed)))
(begin
(values
(values (sqrt 2) -1.0)
(values))
'passed)))))
a)
(if (fl=
(fl+
(fllog
(fl- (flmax 2.0 1.0) (flexp 1.0)))
(flcos
(flmin
(flmin 2.0 (sqrt 2))
(apply fl- (list 2.0 1.0)))))
(fl- (flsin 1.0) (flsqrt 2.0)))
(char? (procedure? (sqrt 2)))
(sqrt 2))
(hash-ref
(make-hash)
'not-there
(λ ()
(hash-ref
(make-hash)
'not-there
(λ ()
(let-values (((a b)
(hash-ref
(make-hash)
'not-there
(λ ()
(hash-ref
(make-hash)
'not-there
(λ ()
(values
-1.0
-1.0)))))))
a)))))
(if (fl>=
2.0
(apply
fl+
(list
-1.0
(fl/
(flceiling -1.0)
(flmin
(apply
fl+
(list (sqrt 2) (sqrt 2)))
1.0)))))
(flatan (fl+ -1.0 (flacos (sqrt 2))))
(hash-ref
(make-hash)
'not-there
(λ ()
(hash-ref
(make-hash)
'not-there
(λ ()
(begin
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (sqrt 2) 'passed))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (sqrt 2) 'passed))))))))
(apply
flmax
(list
(apply
fl-
(list
2.0
(fllog (flmax (sqrt 2) (sqrt 2)))))
(sqrt 2)))
(hash-ref
(make-hash)
'not-there
(λ ()
(begin
(flabs (flmax 2.0 1.0))
(real? (mpair? (not -1.0)))
(let-values (((a b)
(values
(begin 2.0)
(if (fl< -1.0 1.0)
1.0
(sqrt 2)))))
a)
(flmin (apply fl+ (list -1.0 2.0)) 1.0)
(begin
(let-values (((a b)
(if 2.0
(values -1.0 2.0)
(values 1.0 1.0))))
a)
(if (fl>
(fl+ 2.0 2.0)
(flmax 2.0 -1.0))
(begin 1.0)
-1.0)
(if (fl>
(fl* -1.0 (sqrt 2))
(apply
flmax
(list 1.0 (sqrt 2))))
(hash-ref
(make-hash)
'not-there
(λ () 2.0))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin 2.0 'passed)))
(let-values (((a b)
(if (sqrt 2)
(values -1.0 -1.0)
(values 1.0 -1.0))))
a)
(eof-object? (eof-object? -1.0)))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (values -1.0 2.0) 'passed))
(let-values (((a b)
(hash-ref
(make-hash)
'not-there
(λ ()
(values
(sqrt 2)
(sqrt 2))))))
a))))
(string?
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (values 1.0 -1.0) 'passed))
'passed)))
(fixnum?
(symbol?
(boolean?
(let-values (((a b)
(values (sqrt 2) -1.0)))
a))))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin
(hash-ref
(make-hash)
'not-there
(λ ()
(begin
(begin 2.0)
(hash-ref
(make-hash)
'not-there
(λ () 1.0)))))
'passed))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin
(values
(let-values (((a b)
(if -1.0
(values (sqrt 2) 1.0)
(values 1.0 -1.0))))
a)
(bytes? (begin -1.0)))
'passed))
(real? (fl+ (flasin (fl/ 1.0 2.0)) 2.0))
(hash-ref
(make-hash)
'not-there
(λ ()
(if (fl= (sqrt 2) 1.0)
(hash-ref
(make-hash)
'not-there
(λ () (not (vector? -1.0))))
(if (fl=
(fltan 2.0)
(fl/
(apply flmax (list (sqrt 2) 1.0))
(fltruncate -1.0)))
(apply flmax (list 1.0 2.0))
(if (fl>
(apply fl/ (list (sqrt 2) 1.0))
(apply flmax (list -1.0 1.0)))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin 2.0 'passed))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin 1.0 'passed))))))))
(if (fl<
(flatan -1.0)
(apply
flmin
(list
(apply
fl/
(list
(apply
flmin
(list
(sqrt 2)
(flmax
(fl/ -1.0 2.0)
(flfloor (sqrt 2)))))
(apply
fl/
(list
-1.0
(flfloor (flfloor 2.0))))))
(flatan -1.0))))
(exact-integer?
(box? (fltruncate (flmin (sqrt 2) 2.0))))
(hash-ref
(make-hash)
'not-there
(λ ()
(if (fl<=
(flexp -1.0)
(flmin
(fltan (fl+ 2.0 1.0))
(apply
flmin
(list (flexp (sqrt 2)) 1.0))))
(begin
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin -1.0 'passed))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (begin 1.0) 'passed))
(mpair? (begin (sqrt 2))))
(if (fl<
(apply fl- (list 1.0 1.0))
(apply
flmax
(list
(flsqrt -1.0)
(flacos (sqrt 2)))))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (if 2.0 1.0 2.0) 'passed))
(inexact-real?
(if (fl<= 1.0 2.0) -1.0 2.0)))))))
(begin
(hash-ref
(make-hash)
'not-there
(λ ()
(hash-ref
(make-hash)
'not-there
(λ ()
(let-values (((a b)
(hash-ref
(make-hash)
'not-there
(λ ()
(values 2.0 2.0)))))
a)))))
(fl+
(sqrt 2)
(flmax
(sqrt 2)
(flatan
(apply fl/ (list (sqrt 2) (sqrt 2))))))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin
(->fl
(begin
(begin
(sqrt 2)
(values 2.0 -1.0)
(sqrt 2)
(flround)
(values (sqrt 2) (sqrt 2)))
(hash-ref
(make-hash)
'not-there
(λ () (values -1.0 (sqrt 2))))
(values
(if 2.0 (sqrt 2) -1.0)
(fl>)
(values)))
(if (let-values (((a b)
(values 1.0 1.0)))
a)
(values 2.0 2.0)
(if 1.0
(values (sqrt 2) 2.0)
(values 2.0 1.0)))
(fltan (if (values) (begin 2.0) (fl<)))
(begin (values (->fl))))
'passed))
(hash-ref
(make-hash)
'not-there
(λ ()
(begin
(let-values (((a b)
(values
(eof-object? (sqrt 2))
(begin -1.0))))
a)
2.0
(real?
(hash-ref
(make-hash)
'not-there
(λ ()
(let-values (((a b)
(values 1.0 2.0)))
a)))))))
(let-values (((a b)
(if (with-handlers
((exn:fail?
(λ (x) 'failed)))
(begin
(fl<=
(values (sqrt 2) 2.0)
(if 2.0 (sqrt 2) 2.0))
'passed))
(if (flacos 2.0)
(if -1.0
(if (sqrt 2)
(values 2.0 -1.0)
(values
(sqrt 2)
-1.0))
(hash-ref
(make-hash)
'not-there
(λ ()
(values 1.0 2.0))))
(if (number? 2.0)
(if -1.0
(values 1.0 (sqrt 2))
(values -1.0 2.0))
(if -1.0
(values
(sqrt 2)
(sqrt 2))
(values
-1.0
(sqrt 2)))))
(hash-ref
(make-hash)
'not-there
(λ ()
(hash-ref
(make-hash)
'not-there
(λ ()
(values
(sqrt 2)
-1.0))))))))
a))
(hash-ref (make-hash) 'not-there (λ () 1.0))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin
(inexact-real?
(begin
(let-values (((a b) (values 1.0 2.0)))
a)
(syntax?
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (sqrt 2) 'passed)))))
'passed))
(hash-ref
(make-hash)
'not-there
(λ ()
(let-values (((a b)
(if (bytes?
(begin
(mpair? 2.0)
(if (fl= 2.0 1.0)
1.0
2.0)))
(if (begin (syntax? -1.0))
(if (if (fl> -1.0 2.0)
1.0
2.0)
(hash-ref
(make-hash)
'not-there
(λ ()
(values -1.0 -1.0)))
(if (sqrt 2)
(values 2.0 2.0)
(values 1.0 1.0)))
(values
(begin -1.0)
(begin 2.0)))
(values
(begin
(hash-ref
(make-hash)
'not-there
(λ () -1.0)))
(let-values (((a b)
(if (sqrt 2)
(values
(sqrt 2)
2.0)
(values
2.0
-1.0))))
a)))))
a)))
(number?
(begin
(apply
flmin
(list
-1.0
(fl/
1.0
(apply flmax (list -1.0 (sqrt 2))))))
(hash-ref
(make-hash)
'not-there
(λ ()
(let-values (((a b)
(values
(with-handlers
((exn:fail?
(λ (x) 'failed)))
(begin
(sqrt 2)
'passed))
(let-values (((a b)
(values
-1.0
(sqrt
2))))
a))))
a)))
(sqrt 2)
(let-values (((a b)
(hash-ref
(make-hash)
'not-there
(λ ()
(values
(with-handlers
((exn:fail?
(λ (x) 'failed)))
(begin 1.0 'passed))
1.0)))))
a)
(if (fl= (sqrt 2) 2.0)
(hash-ref
(make-hash)
'not-there
(λ ()
(let-values (((a b)
(values 1.0 -1.0)))
a)))
(let-values (((a b)
(values
(with-handlers
((exn:fail?
(λ (x) 'failed)))
(begin 1.0 'passed))
(begin 1.0))))
a))
(if (fl>
(flsin (fl/ (sqrt 2) 1.0))
(flcos
(apply
fl*
(list
(apply flmin (list -1.0 2.0))
(fl* -1.0 -1.0)))))
(hash-ref
(make-hash)
'not-there
(λ ()
(let-values (((a b)
(if 2.0
(values -1.0 -1.0)
(values
(sqrt 2)
2.0))))
a)))
(begin
(if (fl>=
(apply fl/ (list 2.0 -1.0))
(fltan 2.0))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin 2.0 'passed))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (sqrt 2) 'passed)))
(hash-ref
(make-hash)
'not-there
(λ () (begin (sqrt 2))))
(let-values (((a b)
(values -1.0 -1.0)))
a)
(if (fl< (flasin -1.0) (sqrt 2))
(hash-ref
(make-hash)
'not-there
(λ () -1.0))
(if (fl>= -1.0 1.0) -1.0 (sqrt 2)))
(hash-ref
(make-hash)
'not-there
(λ ()
(if (fl< (sqrt 2) (sqrt 2))
2.0
2.0)))))
(hash-ref
(make-hash)
'not-there
(λ ()
(apply
flmin
(list (fl- 2.0 -1.0) (flabs 2.0)))))))
(hash-ref
(make-hash)
'not-there
(λ ()
(begin
(let-values (((a b)
(if (if (fl> 2.0 1.0)
(if (fl= 2.0 1.0)
-1.0
-1.0)
(begin 1.0))
(hash-ref
(make-hash)
'not-there
(λ ()
(if 1.0
(values
(sqrt 2)
1.0)
(values 2.0 -1.0))))
(values
(begin 2.0)
(if (fl>= (sqrt 2) 1.0)
2.0
-1.0)))))
a)
(fixnum?
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin
(if -1.0
(if 1.0 2.0 2.0)
(if 2.0 2.0 (sqrt 2)))
'passed)))
(hash-ref
(make-hash)
'not-there
(λ ()
(if (fl=
-1.0
(flround
(apply fl- (list -1.0 1.0))))
(begin
(hash-ref
(make-hash)
'not-there
(λ () -1.0)))
(fl+ 1.0 1.0))))
(apply
fl/
(list
(flatan (fllog 2.0))
(apply
flmax
(list
(flmin -1.0 (sqrt 2))
-1.0)))))))
(let-values (((a b)
(hash-ref
(make-hash)
'not-there
(λ ()
(hash-ref
(make-hash)
'not-there
(λ ()
(values
(with-handlers
((exn:fail?
(λ (x) 'failed)))
(begin
(sqrt 2)
'passed))
(let-values (((a b)
(hash-ref
(make-hash)
'not-there
(λ ()
(values
(sqrt
2)
(sqrt
2))))))
a))))))))
a)
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (fl<=) 'passed))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (values) 'passed))
'passed))
(let-values (((a b)
(if (hash-ref
(make-hash)
'not-there
(λ ()
(begin
(fixnum?
(let-values (((a b)
(values
2.0
-1.0)))
a))
(if (fl>
(fl- 1.0 (sqrt 2))
(apply
flmin
(list
(sqrt 2)
(sqrt 2))))
(hash-ref
(make-hash)
'not-there
(λ () (sqrt 2)))
(pair? 2.0)))))
(values
(flcos (fl* 2.0 -1.0))
(begin
(flatan (sqrt 2))
(begin
(with-handlers
((exn:fail?
(λ (x) 'failed)))
(begin 1.0 'passed)))
(begin
(if (fl< 2.0 (sqrt 2))
2.0
2.0)
(if (fl>= 1.0 -1.0)
2.0
2.0))
(if (fl=
(flceiling -1.0)
1.0)
(let-values (((a b)
(values
1.0
2.0)))
a)
1.0)
(let-values (((a b)
(values
2.0
2.0)))
a)))
(values
(hash-ref
(make-hash)
'not-there
(λ ()
(if (fl>
1.0
(flmax -1.0 1.0))
1.0
(mpair? (sqrt 2)))))
(let-values (((a b)
(hash-ref
(make-hash)
'not-there
(λ ()
(if 1.0
(values
2.0
-1.0)
(values
2.0
-1.0))))))
a)))))
a)
(begin
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin
(begin
(begin (fl> (values (sqrt 2) 1.0))))
'passed))
(begin
(begin
(real?
(let-values (((a b)
(if (sqrt 2)
(values 1.0 1.0)
(values
(sqrt 2)
(sqrt 2)))))
a)))
(let-values (((a b)
(if (if (fl>=
(apply
fl*
(list
2.0
(sqrt 2)))
-1.0)
2.0
(pair? 1.0))
(hash-ref
(make-hash)
'not-there
(λ ()
(if 1.0
(values
-1.0
(sqrt 2))
(values 2.0 -1.0))))
(if (if (fl<= 2.0 -1.0)
1.0
-1.0)
(values (sqrt 2) 1.0)
(hash-ref
(make-hash)
'not-there
(λ ()
(values
-1.0
(sqrt 2))))))))
a)
(boolean?
(hash-ref
(make-hash)
'not-there
(λ () (fl* 2.0 2.0))))
(begin
(begin
(vector?
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin -1.0 'passed))))
(if (fl>
1.0
(apply
fl/
(list
(apply
fl/
(list (sqrt 2) (sqrt 2)))
(flfloor (sqrt 2)))))
(begin (syntax? 2.0))
(let-values (((a b)
(values 2.0 -1.0)))
a))
(begin
(hash-ref
(make-hash)
'not-there
(λ () (begin 2.0)))
(begin (string? (sqrt 2)))
(pair? 1.0)
(begin
(number? (sqrt 2))
(sqrt 2)
(syntax? (sqrt 2))
(let-values (((a b)
(values
(sqrt 2)
(sqrt 2))))
a)
(begin (sqrt 2))
(begin -1.0)
(if (fl= 2.0 1.0) -1.0 2.0)
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin 1.0 'passed))
(if (fl>= 2.0 -1.0) -1.0 1.0)
(let-values (((a b)
(values -1.0 -1.0)))
a)
(inexact-real? 2.0))
(begin
-1.0
(syntax? 1.0)
(let-values (((a b)
(values
1.0
(sqrt 2))))
a))
(begin
(let-values (((a b)
(values
(sqrt 2)
-1.0)))
a)
(bytes? 2.0)
(mpair? 2.0))
(pair? 2.0)
(if (fl= 2.0 (fl/ -1.0 (sqrt 2)))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin 1.0 'passed))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin -1.0 'passed)))
(if (fl> -1.0 -1.0)
(begin -1.0)
(if (fl<= -1.0 1.0) 1.0 2.0)))
(begin
(syntax?
(let-values (((a b)
(values 2.0 2.0)))
a))
(let-values (((a b)
(if (sqrt 2)
(values -1.0 -1.0)
(values -1.0 1.0))))
a)
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin
(if 1.0 -1.0 (sqrt 2))
'passed))
1.0
(if (fl<=
(flacos -1.0)
(flmin (sqrt 2) (sqrt 2)))
(procedure? (sqrt 2))
(let-values (((a b)
(values
1.0
(sqrt 2))))
a))
(let-values (((a b)
(if 2.0
(values 1.0 -1.0)
(values
-1.0
(sqrt 2)))))
a))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (begin (sqrt 2)) 'passed))
(number? (inexact-real? 1.0))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (values) 'passed))))
(begin
1.0
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin
(begin (values 2.0 (sqrt 2)))
'passed))
(hash-ref
(make-hash)
'not-there
(λ ()
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin 2.0 'passed))))
(begin
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (sqrt 2) 'passed))
'passed))
(syntax?
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (if 1.0 -1.0 -1.0) 'passed)))
(if (fl>=
(flsqrt (flsqrt (sqrt 2)))
(flsin (fl/ -1.0 2.0)))
(hash-ref
(make-hash)
'not-there
(λ ()
(if (fl> -1.0 (sqrt 2))
-1.0
-1.0)))
(if (fl<= 1.0 (fllog 1.0))
(exact-integer? 1.0)
(let-values (((a b)
(values 2.0 1.0)))
a))))
(not
(begin
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (->fl) 'passed))
(begin
2.0
(let-values (((a b)
(values
(sqrt 2)
(sqrt 2))))
a)
(let-values (((a b)
(values -1.0 -1.0)))
a))))
(begin
(fixnum?
(box?
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin 2.0 'passed))))
(eof-object?
(if (fl< 1.0 (flmax -1.0 2.0))
1.0
(begin (sqrt 2)))))
(if (fl>
(apply
fl*
(list
(apply fl+ (list -1.0 (flsin 2.0)))
(fl- 1.0 (flmax -1.0 2.0))))
(flabs
(fl-
(apply
fl/
(list (sqrt 2) (sqrt 2)))
(apply fl/ (list 2.0 (sqrt 2))))))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin
(if (values 2.0 -1.0)
(begin 1.0)
(begin 2.0))
'passed))
(char?
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (fllog) 'passed))))
(if (fl>=
(fl+
(flmax
(fl* 1.0 -1.0)
(apply fl+ (list 2.0 -1.0)))
(apply
fl/
(list
(flexp -1.0)
(apply fl- (list 1.0 2.0)))))
(apply
flmax
(list
2.0
(flatan (flacos (sqrt 2))))))
(hash-ref
(make-hash)
'not-there
(λ ()
(fixnum?
(hash-ref
(make-hash)
'not-there
(λ () -1.0)))))
(hash-ref
(make-hash)
'not-there
(λ ()
(begin
-1.0
(if (fl<= 1.0 -1.0)
(sqrt 2)
1.0)))))
(hash-ref
(make-hash)
'not-there
(λ ()
(hash-ref
(make-hash)
'not-there
(λ () (eof-object? -1.0)))))
(let-values (((a b)
(hash-ref
(make-hash)
'not-there
(λ ()
(if (begin 1.0)
(if (sqrt 2)
(values 2.0 1.0)
(values
(sqrt 2)
2.0))
(if (sqrt 2)
(values 1.0 1.0)
(values
-1.0
2.0)))))))
a)
(real?
(fl* (flmin 2.0 -1.0) (flround -1.0)))
(hash-ref
(make-hash)
'not-there
(λ ()
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin
(begin
(values -1.0 (sqrt 2))
(begin -1.0))
'passed)))))
(boolean?
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin
(begin (eof-object? (sqrt 2)))
'passed))))
(let-values (((a b)
(values
(let-values (((a b)
(if (vector?
(sqrt 2))
(hash-ref
(make-hash)
'not-there
(λ ()
(hash-ref
(make-hash)
'not-there
(λ ()
(values
-1.0
1.0)))))
(if (let-values (((a
b)
(values
(sqrt
2)
-1.0)))
a)
(values
(sqrt 2)
1.0)
(values
2.0
2.0)))))
a)
(hash-ref
(make-hash)
'not-there
(λ ()
(hash-ref
(make-hash)
'not-there
(λ ()
(hash-ref
(make-hash)
'not-there
(λ ()
(exact-integer?
2.0))))))))))
a)
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin
(values
(sqrt 2)
(bytes?
(let-values (((a b)
(if 2.0
(values 1.0 (sqrt 2))
(values 1.0 2.0))))
a)))
'passed))
(let-values (((a b)
(hash-ref
(make-hash)
'not-there
(λ ()
(hash-ref
(make-hash)
'not-there
(λ ()
(hash-ref
(make-hash)
'not-there
(λ ()
(values
(let-values (((a b)
(values
1.0
2.0)))
a)
(if (fl> 1.0 2.0)
1.0
-1.0))))))))))
a)
(hash-ref
(make-hash)
'not-there
(λ ()
(if (fl=
(flcos
(flceiling (flexp (flacos -1.0))))
(apply
flmax
(list
(flasin
(apply
fl*
(list 1.0 (fl/ 2.0 2.0))))
-1.0)))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin
(values
(fllog)
(values 1.0 2.0)
(hash-ref
(make-hash)
'not-there
(λ () (values 2.0 (sqrt 2))))
2.0
(values)
(values
(begin (sqrt 2))
(->fl)
(values -1.0 1.0)
1.0))
'passed))
(if (fl<
(apply flmax (list -1.0 -1.0))
(apply
flmin
(list
1.0
(fl+
(flround (sqrt 2))
(apply
flmin
(list (sqrt 2) 2.0))))))
(if (fl<
(apply
flmax
(list (flacos 1.0) 2.0))
(apply
flmin
(list
(apply fl+ (list (sqrt 2) 2.0))
(apply
flmax
(list (sqrt 2) (sqrt 2))))))
(syntax?
(let-values (((a b)
(values -1.0 1.0)))
a))
(begin
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (sqrt 2) 'passed))
(hash-ref
(make-hash)
'not-there
(λ () -1.0))))
(let-values (((a b)
(values
(pair? (sqrt 2))
(begin -1.0))))
a)))))
(begin
(hash-ref
(make-hash)
'not-there
(λ ()
(if (fl>
(apply
flmax
(list
(flcos (flfloor 2.0))
(flmin 1.0 (flacos 1.0))))
(apply
fl/
(list
-1.0
(flmax 2.0 (flmax 1.0 1.0)))))
(let-values (((a b)
(hash-ref
(make-hash)
'not-there
(λ ()
(values 1.0 2.0)))))
a)
(hash-ref
(make-hash)
'not-there
(λ ()
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin 1.0 'passed))))))))
(hash-ref
(make-hash)
'not-there
(λ ()
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin
(fllog
(values
(begin 2.0)
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin 2.0 'passed)))
(->fl)
(values)
(values
(begin (values))
(values)
(if (sqrt 2)
(values 2.0 2.0)
(values -1.0 (sqrt 2))))
(if (values)
(begin (if 2.0 (sqrt 2) 2.0))
(->fl (begin (sqrt 2)))))
'passed))))
(if (fl>
(apply
flmin
(list
(fl+
(apply
flmax
(list
(fl/
(flmax (sqrt 2) 2.0)
(fllog 1.0))
(fl/ 1.0 -1.0)))
(fl-
(apply
flmin
(list
(sqrt 2)
(apply fl* (list 2.0 2.0))))
(fl*
(flmin (sqrt 2) -1.0)
(apply flmax (list 1.0 1.0)))))
(flmax
(fl/
(fllog
(apply fl- (list 1.0 (sqrt 2))))
2.0)
(flmax
(apply
fl*
(list
(apply
fl/
(list (sqrt 2) (sqrt 2)))
-1.0))
(fltan 2.0)))))
(sqrt 2))
(let-values (((a b)
(values
(if (fl<
(flfloor
(flsin (sqrt 2)))
(apply
fl/
(list
(apply
fl-
(list 1.0 (sqrt 2)))
(apply
fl-
(list
(sqrt 2)
-1.0)))))
(with-handlers
((exn:fail?
(λ (x) 'failed)))
(begin
(if (sqrt 2)
(sqrt 2)
(sqrt 2))
'passed))
(vector?
(with-handlers
((exn:fail?
(λ (x) 'failed)))
(begin
(sqrt 2)
'passed))))
2.0)))
a)
(hash-ref
(make-hash)
'not-there
(λ ()
(if (fl=
(fl/
(flmin
(fl+ (sqrt 2) 1.0)
(flsqrt (sqrt 2)))
(flatan (fl+ 2.0 2.0)))
(apply
fl*
(list
(apply
fl+
(list 1.0 (fl/ -1.0 (sqrt 2))))
(apply
fl+
(list
(fl/ 2.0 (sqrt 2))
(fl* 2.0 -1.0))))))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin
(let-values (((a b)
(values
1.0
(sqrt 2))))
a)
'passed))
(char?
(syntax?
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (sqrt 2) 'passed))))))))
(if (fl> (flabs -1.0) (sqrt 2))
(hash-ref
(make-hash)
'not-there
(λ ()
(begin
(hash-ref
(make-hash)
'not-there
(λ ()
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin 2.0 'passed))))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin
(hash-ref
(make-hash)
'not-there
(λ () (values 1.0 -1.0)))
'passed))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin
(begin (values 1.0 1.0))
'passed)))))
(hash-ref
(make-hash)
'not-there
(λ ()
(string? (flcos (fl- (sqrt 2) 1.0))))))
(hash-ref
(make-hash)
'not-there
(λ ()
(not
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (values) 'passed)))))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin
(fllog
(values
(values)
(->fl
(values (begin (sqrt 2)))
(if (->fl)
(->fl)
(if -1.0 (sqrt 2) (sqrt 2)))
(if (fl= (sqrt 2) -1.0) -1.0 -1.0)
(if (fl<= 2.0 (sqrt 2))
(sqrt 2)
(sqrt 2))
(values (values))
(flatan)))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin
(if (values -1.0 2.0)
(begin (sqrt 2))
(begin (sqrt 2)))
'passed))
(if (let-values (((a b)
(values 1.0 (sqrt 2))))
a)
(values (bytes? 1.0) (begin (sqrt 2)))
(if (begin 1.0)
(values -1.0 -1.0)
(if 1.0
(values (sqrt 2) 1.0)
(values 1.0 1.0)))))
'passed))
(apply
flmin
(list
1.0
(flsqrt
(fl/ (flexp (fl- -1.0 (sqrt 2))) 2.0))))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin
(if (values
(hash-ref
(make-hash)
'not-there
(λ ()
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin 2.0 'passed))))
(hash-ref
(make-hash)
'not-there
(λ ()
(hash-ref
(make-hash)
'not-there
(λ () (values 2.0 -1.0)))))
(values
2.0
(hash-ref
(make-hash)
'not-there
(λ () (sqrt 2)))))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (values) 'passed))
(values
(hash-ref
(make-hash)
'not-there
(λ () -1.0))
(let-values (((a b)
(hash-ref
(make-hash)
'not-there
(λ ()
(values -1.0 2.0)))))
a)))
'passed))
(hash-ref
(make-hash)
'not-there
(λ ()
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin
(begin
(if (fl>
(sqrt 2)
(apply fl+ (list -1.0 (sqrt 2))))
2.0
(number? -1.0))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (values) 'passed))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (fl-) 'passed)))
'passed))))
(if (fl=
(apply
flmax
(list
(fl*
(sqrt 2)
(flcos
(apply
flmin
(list
(fltruncate -1.0)
(flfloor (sqrt 2))))))
(fl-
(fl/
(apply fl- (list (fl+ -1.0 2.0) 1.0))
(apply
fl+
(list
(fl* (sqrt 2) 1.0)
(apply flmax (list 1.0 -1.0)))))
(flsin
(apply
flmax
(list
(fllog 1.0)
(flsin (sqrt 2))))))))
2.0)
(char? (flsqrt (flatan (flabs -1.0))))
(begin
(symbol?
(mpair?
(bytes?
(if (fl< 1.0 1.0)
2.0
(sqrt 2)))))))))))
a)
(number?
(if (fl>
(flround -1.0)
(flround
(apply
fl*
(list
(apply flmin (list (flsin (flfloor (sqrt 2))) 1.0))
(flmax
(flsqrt
(apply
fl*
(list
(flmax
(apply fl- (list -1.0 1.0))
(apply fl* (list -1.0 1.0)))
(apply
fl+
(list
(apply fl+ (list 2.0 (sqrt 2)))
(sqrt 2))))))
(apply
flmax
(list
2.0
(fl*
(flexp (apply fl* (list 2.0 (sqrt 2))))
(flacos (apply flmax (list 2.0 2.0)))))))))))
(char?
(let-values (((a b)
(hash-ref
(make-hash)
'not-there
(λ ()
(hash-ref
(make-hash)
'not-there
(λ ()
(values
(if (fl>=
(flmax 1.0 -1.0)
(fl* (sqrt 2) (sqrt 2)))
(hash-ref
(make-hash)
'not-there
(λ () 2.0))
(if (fl<= 2.0 -1.0)
(sqrt 2)
(sqrt 2)))
(let-values (((a b)
(values
(sqrt 2)
(sqrt 2))))
a))))))))
a))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin
(values
(begin
(let-values (((a b)
(if (inexact-real? 1.0)
(if 2.0
(values 1.0 -1.0)
(values -1.0 -1.0))
(values (sqrt 2) (sqrt 2)))))
a)
(if (fl= (flfloor (flcos 2.0)) (sqrt 2))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (sqrt 2) 'passed))
(hash-ref
(make-hash)
'not-there
(λ () (if (fl= 1.0 2.0) -1.0 2.0))))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (values) 'passed))
(if (fl<=
(fllog (apply fl* (list 2.0 (sqrt 2))))
(flceiling (fl+ 2.0 1.0)))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (->fl) 'passed))
(if (fl> (fltruncate (sqrt 2)) 1.0)
(if (fl> 1.0 (sqrt 2)) (sqrt 2) (sqrt 2))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (sqrt 2) 'passed))))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (values) 'passed)))
(hash-ref
(make-hash)
'not-there
(λ ()
(hash-ref
(make-hash)
'not-there
(λ ()
(hash-ref
(make-hash)
'not-there
(λ () (values 2.0 -1.0)))))))
(fl>
(begin
(if (begin (values -1.0 -1.0))
(if (begin 1.0)
(if 1.0 (sqrt 2) 2.0)
(values 1.0 (sqrt 2)))
(if (fl>= -1.0 2.0) -1.0 -1.0))
(values)
(values (values) (begin (values 1.0 2.0)))
(flround -1.0)
(if (let-values (((a b) (values 1.0 1.0))) a)
(hash-ref
(make-hash)
'not-there
(λ () (values (sqrt 2) -1.0)))
(fltruncate -1.0))
(flsqrt
(if (if 1.0 (sqrt 2) 1.0)
(begin 2.0)
(if 2.0 -1.0 1.0)))
(if (values)
(let-values (((a b) (values 2.0 -1.0))) a)
(if (begin -1.0) (values -1.0 -1.0) (values)))
(if (begin
2.0
(if -1.0 -1.0 (sqrt 2))
(begin 1.0)
1.0
(values)
(values 1.0 (sqrt 2))
(if 2.0 2.0 (sqrt 2)))
(hash-ref
(make-hash)
'not-there
(λ () (values 1.0 (sqrt 2))))
(hash-ref
(make-hash)
'not-there
(λ () (values (sqrt 2) 1.0)))))
(begin
(->fl
(if (values 2.0 (sqrt 2))
1.0
(values (sqrt 2) 1.0)))
(values
(hash-ref (make-hash) 'not-there (λ () -1.0))
(if (fl< 2.0 -1.0) (sqrt 2) 1.0)))
(flsqrt)
(values
(hash-ref (make-hash) 'not-there (λ () (begin -1.0))))
(if (if (fl=
(apply flmin (list (sqrt 2) (sqrt 2)))
(flexp 1.0))
(let-values (((a b) (values -1.0 (sqrt 2)))) a)
(let-values (((a b) (values -1.0 2.0))) a))
(hash-ref
(make-hash)
'not-there
(λ ()
(hash-ref
(make-hash)
'not-there
(λ () (values (sqrt 2) (sqrt 2))))))
(if (let-values (((a b) (values 1.0 (sqrt 2)))) a)
(if 1.0 (values -1.0 2.0) (values (sqrt 2) -1.0))
(values -1.0 1.0)))
(if (box?
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin 1.0 'passed)))
(hash-ref
(make-hash)
'not-there
(λ ()
(hash-ref
(make-hash)
'not-there
(λ () (values (sqrt 2) 1.0)))))
(hash-ref
(make-hash)
'not-there
(λ ()
(if -1.0
(values 1.0 2.0)
(values (sqrt 2) 2.0)))))
(begin
(hash-ref
(make-hash)
'not-there
(λ () (values 2.0 -1.0))))
(fl<=
(->fl)
(begin
(fltan)
(values)
(begin (fltan))
(if 2.0 (values 1.0 -1.0) (values -1.0 (sqrt 2)))
(values (values))
(begin (sqrt 2))
(begin (fl>=)))
(begin 1.0 (begin (values)))
(begin (sqrt 2))
(begin (sqrt 2)))
(values)
(values)
(->fl
(if (hash-ref (make-hash) 'not-there (λ () -1.0))
(hash-ref
(make-hash)
'not-there
(λ () (values 1.0 (sqrt 2))))
(if 2.0 (values 1.0 -1.0) (values (sqrt 2) -1.0)))
(values
(if (->fl) (values) (values (sqrt 2) (sqrt 2)))
(if (begin 1.0) (begin 1.0) (sqrt 2))))
(hash-ref
(make-hash)
'not-there
(λ ()
(values
(hash-ref (make-hash) 'not-there (λ () 2.0))
(hash-ref
(make-hash)
'not-there
(λ () (sqrt 2))))))
(->fl)
(values
(if (fl= (->fl) (sqrt 2) (begin 1.0))
(if (->fl) (begin -1.0) (values (sqrt 2) -1.0))
(begin (values 2.0 -1.0)))
(hash-ref
(make-hash)
'not-there
(λ ()
(hash-ref
(make-hash)
'not-there
(λ () (values -1.0 1.0)))))))
(begin
(begin
(if (fl= (fl/ 1.0 2.0) (flsin 2.0))
(begin 2.0)
(hash-ref (make-hash) 'not-there (λ () (sqrt 2))))
(if (fl<
(fllog 1.0)
(apply fl/ (list (sqrt 2) (sqrt 2))))
(number? -1.0)
-1.0)
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (sqrt 2) 'passed)))
(begin
(if (begin (fllog))
(begin (if 2.0 1.0 -1.0) (values (sqrt 2) 1.0))
(->fl))
(values
(values)
(values 1.0 (sqrt 2))
(values (flmax))
(if -1.0
(values (sqrt 2) 1.0)
(values (sqrt 2) (sqrt 2)))
(if (sqrt 2) 2.0 (if -1.0 -1.0 2.0)))
(values
(begin (values (sqrt 2) -1.0))
(begin (if 1.0 1.0 (sqrt 2))))
(apply fl* (list 1.0 -1.0))
(let-values (((a b)
(if (sqrt 2)
(values -1.0 (sqrt 2))
(values 2.0 1.0))))
a))
(values
(begin
(eof-object? (sqrt 2))
(begin (if (sqrt 2) 1.0 2.0) (values))
(if (if -1.0 1.0 -1.0)
(if (sqrt 2) (sqrt 2) (sqrt 2))
(values))
(fl-)
(values))
(values
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin (sqrt 2) 'passed))
(with-handlers
((exn:fail? (λ (x) 'failed)))
(begin 1.0 'passed)))))
(flacos
(begin
(fl>
(if (values 1.0 2.0)
(if (sqrt 2) 1.0 1.0)
(if 2.0 1.0 -1.0))
(->fl))
(if (->fl)
(values (fl>))
(->fl (fl>=) (if -1.0 2.0 2.0))))))
'passed)))))
(values (- i 1))))))))
(touch f0)
(touch f1))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment