Commit 1bcb57fb authored by Mart Lubbers's avatar Mart Lubbers

Allow the maximum character value also to be chosen

parent a6089b89
Pipeline #13136 passed with stage
in 37 seconds
......@@ -196,7 +196,7 @@ where
= [string:rndStrings rnd]
where
genElem :: RandomStream -> .(Char, RandomStream)
genElem [r:rnd] = (toChar (minchar+((abs r) rem (maxchar-minchar))), rnd)
genElem [r:rnd] = (toChar (minchar+((abs r) rem (maxchar+1-minchar))), rnd)
randIntToReal :: Int -> Real
randIntToReal x = (toReal x + if (x >= 0) 0.0 4294967296.0) / 4294967295.0
......
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