Now, if you add the time it took to write the VB solution you could have written a new rap, jazz, or rnr tune!
or
maybe with a bit of substitution in the VB you could have it generate the tune? (don't go there!)
-----Original Message-----
From: Peter Weaver [mailto:[log in to unmask]]
Sent: Friday, October 24, 2003 9:47 AM
To: [log in to unmask]
Subject: Re: [HP3000-L] OT: Another math question
fred White wrote:
> On Friday, October 24, 2003, at 08:19 AM, Larry Barnes
wrote:
>
>> So, what is the answer to this illusive math question?
>
> The answer eludes me.
>
> FW
>
> * To join/leave the list, search archives, change list
settings, *
> * etc., please visit
http://raven.utc.edu/archives/hp3000-l.html *
19, here is a quick little .VBS to prove it.
dim rnr(100),rap(100),jazz(100)
for i = 1 to 100
rnr(i) = "No"
rap(i) = "No"
Jazz(i) = "No"
next
for i = 1 to 63
rnr(i) = "Yes"
next
have_num = 0
i = 0
do until have_num = 3
i = i + 1
if rnr(i) = "Yes" then
rap(i) = "Yes"
jazz(i) = "Yes"
have_num = have_num + 1
end if
loop
have_num = 0
i = 0
do until have_num = 25
i = i + 1
if rnr(i) = "Yes" and jazz(i) = "No" then
rap(i) = "Yes"
have_num = have_num + 1
end if
loop
have_num = 0
i = 0
do until have_num = 5
i = i + 1
if rnr(i) = "No" then
rap(i) = "Yes"
jazz(i) = "Yes"
have_num = have_num + 1
end if
loop
have_num = 0
i = 0
do until have_num = 14
i = i + 1
if rnr(i) = "Yes" and rap(i) = "No" then
jazz(i) = "Yes"
have_num = have_num + 1
end if
loop
have_num = 0
i = 0
do until have_num = 44
i = i + 1
if rnr(i) = "No" and Jazz(i) = "No" then rap(i) =
"Yes"
if rap(i) = "Yes" then have_num = have_num + 1
loop
have_num = 0
i = 0
do until have_num = 24
i = i + 1
if rnr(i) = "No" and rap(i) = "No" then jazz(i) =
"Yes"
if jazz(i) = "Yes" then have_num = have_num + 1
loop
none = 0
for i = 1 to 100
wscript.echo "Person #" & i & " R&R: " & rnr(i) & "
Rap: " & rap(i) & " Jazz: " & jazz(i)
if rnr(i) = "No" and rap(i) = "No" and Jazz(i) = "No"
then none=none+1
next
wscript.echo none & " people checked none of the 3 answers."
--
Peter Weaver
Weaver Consulting Services Inc.
Canadian VAR for CHARON-VAX
www.weaverconsulting.ca
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|
