# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1412161937 -7200
# Node ID 4c5ab370241443ce40b07ffd9759f3244748eb85
# Parent  c4e5a66cad48cfbdaca4bfd242809f964cdcb8d1
class: RandomParkMiller
added: #nextBoolean

diff -r c4e5a66cad48 -r 4c5ab3702414 RandomParkMiller.st
--- a/RandomParkMiller.st	Wed Oct 01 13:06:21 2014 +0200
+++ b/RandomParkMiller.st	Wed Oct 01 13:12:17 2014 +0200
@@ -86,6 +86,12 @@
     ^ seed * PMmu1
 !
 
+nextBoolean
+    " This method generates a boolean "
+
+    ^ self next > 0.5
+!
+
 nextInteger
     " This method generates random instances of Integer in the interval 0 to 16r7FFFFFFF. "
 
@@ -129,11 +135,12 @@
 !RandomParkMiller class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/RandomParkMiller.st,v 1.4 2010-03-06 11:29:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/RandomParkMiller.st,v 1.5 2014-10-01 11:12:17 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/RandomParkMiller.st,v 1.4 2010-03-06 11:29:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/RandomParkMiller.st,v 1.5 2014-10-01 11:12:17 cg Exp $'
 ! !
 
+
 RandomParkMiller initialize!