drop the lowest number

TheLaughingBandit · #1 (**permalink**) 08-29-03, 06:47 PM

i want to produce four random numbers between 1 and 6, drop the lowest number, then add the three remaining numbers.

example1
1, 3, 5, 6,
drop 1
total=14

example2
2, 2, 3, 5
drop 2
total=10

i am having truble figuring out how to drop the lowest. here is what i have written so far.

<%
Response.Buffer = True
randomize()
str1=Int(6 * rnd + 1)
str2=Int(6 * rnd + 1)
str3=Int(6 * rnd + 1)
str4=Int(6 * rnd + 1)

response.write("str1: " & str1 & " ")
response.write("str2: " & str2 & " ")
response.write("str3: " & str3 & " ")
response.write("str4: " & str4 & " ")
response.write("strtotal: " & strtotal & "")
%>

sequill · #2 (**permalink**) 08-29-03, 08:38 PM

There are probable a lots of different ways to do this. Here’s one.

Code:

<%
Randomize 
dim dice(3), minIndex, total, i
minIndex = 0
total    = 0

' Roll them bones
for roll = 0 to 3
    dice(roll)= Int(6 * rnd + 1)
    if dice(roll) < dice(minIndex) then minIndex = roll 
    total = total + dice(roll)
next
total = total - dice(minIndex)


'Display the results
for i = 0 to 3
    response.write( "Roll " & (i+1) & " = " &  dice(i) )
    if i = minIndex then response.write("*")
    response.write( "<br>")
next
response.write ("Total = " & total)
%>

Is there a simpler way?

In case you don't want to fire up your editor....
http://www.sequill.net/hotscripts/105/

TheLaughingBandit · #3 (**permalink**) 08-30-03, 01:57 PM

i want to do this six times, saving the different totals as different variables, so that latter they can be put into six different places in a database.
here is your modified code.

<%
Response.Buffer = True
Randomize
dim dice(3), minIndex, total
minIndex = 0
total = 0
for roll = 0 to 3
dice(roll)= Int(6 * rnd + 1)
if dice(roll) < dice(minIndex) then minIndex = roll
total = total + dice(roll)
next
total = total - dice(minIndex)
%>
<html>
<head>
<title></title>
</head>
<body bgcolor="#FFFFFF" text="#FFFFFF">
<table width="255" cellspacing="0" cellpadding="0" border="2" bordercolor="000000">
<tr>
<td>
<table width="100%" cellspacing="0" cellpadding="0" border="0">
<tr>
<td <%if 0 = minIndex then%>bgcolor="FF0000"<%else%>bgcolor="00FF00"<%en d if%> align="center">Roll 1</td>
<td <%if 1 = minIndex then%>bgcolor="FF0000"<%else%>bgcolor="00FF00"<%en d if%> align="center">Roll 2</td>
<td <%if 2 = minIndex then%>bgcolor="FF0000"<%else%>bgcolor="00FF00"<%en d if%> align="center">Roll 3</td>
<td <%if 3 = minIndex then%>bgcolor="FF0000"<%else%>bgcolor="00FF00"<%en d if%> align="center">Roll 4</td>
<td bgcolor="0000FF" align="center">Total</td>
</tr>
<tr>
<td bgcolor="000000" colspan="5" height="2"></td>
</tr>
<tr>
<td <%if 0 = minIndex then%>bgcolor="FF0000"<%else%>bgcolor="00FF00"<%en d if%> align="center"><%response.write(dice(0))%></td>
<td <%if 1 = minIndex then%>bgcolor="FF0000"<%else%>bgcolor="00FF00"<%en d if%> align="center"><%response.write(dice(1))%></td>
<td <%if 2 = minIndex then%>bgcolor="FF0000"<%else%>bgcolor="00FF00"<%en d if%> align="center"><%response.write(dice(2))%></td>
<td <%if 3 = minIndex then%>bgcolor="FF0000"<%else%>bgcolor="00FF00"<%en d if%> align="center"><%response.write(dice(3))%></td>
<td bgcolor="0000FF" align="center"><%response.write (total)%></td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>