Mercurial Mercurial > hg > stx-libbasic2 / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
#BUGFIX by cg
authorClaus Gittinger <cg@exept.de>
Mon, 26 Mar 2018 16:10:33 +0200
changeset 4627 62d147dd6abc
parent 4626 5e6419fb6699
child 4628 7c070958db68
#BUGFIX by cg class: Random changed: #nextBetween:and: BUGFIX: did not generate floats in the range!
Random.st file | annotate | diff | comparison | revisions 
--- a/Random.st	Wed Mar 21 19:35:48 2018 +0100
+++ b/Random.st	Mon Mar 26 16:10:33 2018 +0200
@@ -433,11 +433,10 @@
      claus: the original GNU version has a bug in returning values
      from the interval [start .. stop+1]"
 
-    |rnd|
+    |rndFloat rnd|
 
-    rnd := self nextInteger.
-    rnd := rnd * (stop - start) asFloat.
-    rnd := rnd + start asFloat.
+    rndFloat := self next.
+    rnd := (rndFloat * (stop - start) asFloat) + start asFloat.
     ^ rnd
 
     "
hg/stx-libbasic2