Skip to content
Snippets Groups Projects
Commit 7b81dc8b authored by Daniel Kochmański's avatar Daniel Kochmański
Browse files

numbers: atan: remove extra map nesting

previously we had two map, which were appended, now we have one lambda
function, so there is no need for it.
parent 61b33de4
No related branches found
No related tags found
No related merge requests found
...@@ -134,17 +134,16 @@ ...@@ -134,17 +134,16 @@
;; (atan +-0 +(anything-but-nan)) -> +-0 ;; (atan +-0 +(anything-but-nan)) -> +-0
;; (atan +-0 -(anything-but-nan)) -> +-pi ;; (atan +-0 -(anything-but-nan)) -> +-pi
;; (atan +-(anything-but-0/nan) 0) -> +-pi/2 ;; (atan +-(anything-but-0/nan) 0) -> +-pi/2
(every #'identity (every (lambda (n)
(map 'list (lambda (n) ;; notice, that we don't test a case, where
;; notice, that we don't test a case, where ;; both arguments are 0.0, because if
;; both arguments are 0.0, because if ;; implementation doesn't support signed 0
;; implementation doesn't support signed 0 ;; result is undefined.
;; result is undefined. (and (zerop (atan 0.0 n))
(and (zerop (atan 0.0 n)) (+pi-p (atan 0.0 (- n)))
(+pi-p (atan 0.0 (- n))) (+pi/2-p (atan n 0.0))
(+pi/2-p (atan n 0.0)) (-pi/2-p (atan (- n) 0.0))))
(-pi/2-p (atan (- n) 0.0)))) (remove-if-not #'plusp *floats*)))
(remove-if-not #'plusp *floats*))))
T) T)
(deftest atan.ieee.2 :description "Verify ATAN handling signed zero" (deftest atan.ieee.2 :description "Verify ATAN handling signed zero"
...@@ -162,13 +161,12 @@ ...@@ -162,13 +161,12 @@
(-zerop (atan -0.0 +0.0)) (-zerop (atan -0.0 +0.0))
(+pi-p (atan +0.0 -0.0)) (+pi-p (atan +0.0 -0.0))
(-pi-p (atan -0.0 -0.0)) (-pi-p (atan -0.0 -0.0))
(every #'identity (every (lambda (n)
(map 'list (lambda (n) (and (-zerop (atan -0.0 n))
(and (-zerop (atan -0.0 n)) (+zerop (atan +0.0 n))
(+zerop (atan +0.0 n)) (+pi-p (atan +0.0 (- n)))
(+pi-p (atan +0.0 (- n))) (-pi-p (atan -0.0 (- n)))))
(-pi-p (atan -0.0 (- n))))) (remove-if-not #'plusp *floats*)))))
(remove-if-not #'plusp *floats*))))))
T) T)
;;; We could have tested also for infinities and nan's, but there is ;;; We could have tested also for infinities and nan's, but there is
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment