The GZG Digest V1 #91

In a message dated 99-01-11 09:01:12 EST, you write:

<< Dead Meat vs the 6 thrust equivalent with 4000 or so Type 1s. But rolling
4000 dice would be tedious at best:) >> use Qbasic: randomize timer for a= 1
to 4000
 b=int(rnd*6)+1
 if b=4 or b=5 then c=c+1
 if b=6 then c=c+2
next a print c

use that program, all 4k dice are rolled.
- -Stephen

---------Stephen man you're wacked  ........

1. Qbasic sucks....... Perl Rules!!!!! 2. While loop man..... what about
rerolls ( Ya gots to have rerolls;)
)

so:

randomize timer a = 0 while (a < 4000)
  b=int(rnd*6)+1
  if b=4 or b=5 then c=c+1
if b=6 then begin
     c=c+2
     a=a-1
  end
next a print c

(this way when you roll a 6, then you get to roll another die... per FTFB
rules.)

chuck

In a message dated 99-01-12 11:21:27 EST, you write:

<< randomize timer a = 0 while (a < 4000)
   b=int(rnd*6)+1
   if b=4 or b=5 then c=c+1
if b=6 then begin
      c=c+2
      a=a-1
   end
 next a
 print c

(this way when you roll a 6, then you get to roll another die... per FTFB
rules.)

chuck >>
Chuck I took care of the reroll probem, an you need the a=a-1 line to
read:
a=a+1, other wise it will be loop that never ends.
If it is stupid but it works it is not stupid - one of Murphy's Laws
-Stephen, trying to learn C++