Skip to content

GitLab

G
gast
Commit 7fe2f1b1 authored by Camil Staps's avatar Camil Staps 🚀
Browse files
Options

Merge branch 'inf-real' into 'master' 

Add special real values to the gen function

See merge request !24
parents 4143ae87 d842d681
Pipeline #16654 passed with stage
    in 45 seconds
    Show whitespace changes
    Inline Side-by-side
    Showing with 2 additions and 1 deletion
    Libraries/Gast/Gen.icl
    View file @ 7fe2f1b1
    ...@@ -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