Verified Commit d842d681 authored by Mart Lubbers's avatar Mart Lubbers Committed by Camil Staps

Add special real values to the gen function

parent 4143ae87
Pipeline #16653 passed with stage
in 34 seconds
...@@ -118,7 +118,8 @@ ggen{|Real|} s ...@@ -118,7 +118,8 @@ ggen{|Real|} s
= takeWhile (\r -> abs r <= toReal (s.maxDepth - s.depth)) l = takeWhile (\r -> abs r <= toReal (s.maxDepth - s.depth)) l
= l = l
where where
l = [0.0 // -nan nan inf -inf
l = [0.0,0.0/0.0,~(0.0/0.0),1.0/0.0,-1.0/0.0
:interleave :interleave
[r \\ x <- diag [1:prims] [1:prims] (\n d.toReal n/toReal d), r <- [x,~ x]] [r \\ x <- diag [1:prims] [1:prims] (\n d.toReal n/toReal d), r <- [x,~ x]]
(interleave (interleave
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment