Skip to content

GitLab

G
gast
Verified Commit d842d681 authored by Mart Lubbers's avatar Mart Lubbers Committed by Camil Staps
Browse files
Options

Add special real values to the gen function

parent 4143ae87
Pipeline #16653 passed with stage
    in 34 seconds
    Hide whitespace changes
    Inline Side-by-side
    Showing with 2 additions and 1 deletion
    Libraries/Gast/Gen.icl
    View file @ d842d681
    ......@@ -118,7 +118,8 @@ ggen{|Real|} s
    = takeWhile (\r -> abs r <= toReal (s.maxDepth - s.depth)) l
    = l
    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
    [r \\ x <- diag [1:prims] [1:prims] (\n d.toReal n/toReal d), r <- [x,~ x]]
    (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