It's time for some fun.

[Jeff Moses]

RE: It's time for some fun.

OK, this one should do it. I think, hope, maybe?
This is cruel and unusual punishment! Are we having fun yet?
Jeff

[Jeff Moses]

RE: It's time for some fun.

Tom,
How does this one taste?
Jeff

[Jeff Moses]

RE: It's time for some fun.

Tom, Pay no attention to the last one (puzzle3.zip). This time i got it! I used an array and variables instead of tables and fields. In addition the user can select how many doors an how many guests to use in the problem.
Let me know what ya think?
Jeff

[Tom Cone Jr]

RE: It's time for some fun.

Jeff, you've got it.

It's interesting, you used nested while / end while loops.

In my own solution I used nested for / next loops.

I think mine requires fewer lines of code, but your's is easier to read and understand... over the long run, it would be easier to maintain.

Thanks for hanging in there!

-- tom

[JohnZaleski]

RE: It's time for some fun.

Tom.
Here is my effort at using the least amount of lines of code to accomplish the puzzle. I have no doubt that someone will find a briefer solution.
JOhn

[JohnZaleski]

RE: It's time for some fun.

Tom.
Here is my effort at using the least amount of lines of code to accomplish the puzzle. I have no doubt that someone will find a briefer solution.
JOhn

[JohnZaleski]

RE: It's time for some fun.

Sorry about that.

[Daniel Weiss]

RE: It's time for some fun.

I think this time I am correct
478 CLOSED DORS - 22 OPEN DOORS

Script:

table.create_begin("status","c",6)
tbl=table.create_end(a_db_current_path+"doors.dbf")

a = 500

for i = 1 TO a
tbl.enter_begin()
tbl.status = "CLOSED"
tbl.enter_end(.t.)
next i

tbl.fetch_first()
while .not. tbl.fetch_eof()
tbl.change_begin()
tbl.status = "OPEN"
tbl.change_end(.t.)
tbl.fetch_next()
end while

count = 0
c = 2

redo:
for ii = c TO a step c
tbl.fetch_goto(ii)
tbl.change_begin()
if tbl.status = "OPEN"
tbl.status = "CLOSED"
else
tbl.status = "OPEN"
end if
tbl.change_end(.t.)
next ii

count = count + 1
c = c +1

if count

[Tom Cone Jr]

RE: It's time for some fun.

John, your submittal is so small it's invisible! Wow!!

-- tom

[Tom Cone Jr]

RE: It's time for some fun.

John,
very clever! You keep a running count of the open doors, as guests walk through the hotel. Eliminates the need to step through them at the end just to get a count. Ingenious! Thanks.

-- tom

[Jeff Moses]

RE: It's time for some fun.

John, Nice script!
Jeff

[Eric Johnson]

RE: It's time for some fun.

Tom-

It's been a long time since I've written any code so be gentle please. However, I can't find where in this script it goes so terribly wrong. Since the accepted right answer seems to be 22 open doors, why do I get 500 open doors every time?

Thanks.

Eric

''XBasic
''debug(1)
DIM Door(500) as character

Closed = "Closed"
Open = "Open"

RoomCount=500

For Room = 1 to RoomCount
Door[Room] = Closed
Next Room

For Guest = 1 to RoomCount
For Visit = Guest to RoomCount Step Guest
IF Door(Visit) = Closed then
Door(Visit) = Open
else Door(Visit) = Closed
END IF
Next Visit
Next Guest

OpenCount=0
ClosedCount=0

For Counter = 1 to RoomCount
If Door(Counter) = Open then
OpenCount = OpenCount+1
Else ClosedCount = ClosedCount+1
End If
Next Counter

ui_msg_box("Door Status","There are "+alltrim(str(OpenCount))+" doors open and " +alltrim(str(ClosedCount))+ " doors closed.",UI_OK+UI_ATTENTION_SYMBOL)

[Stephen Williams]

RE: It's time for some fun.

Eric -
You got it right. It was just getting the code to work as intended.
I took a look and your If..then...else was not working. The else code needs to be on its own line to work.

Steve

''XBasic
''debug(1)
DIM Door(500) as character

Closed = "Closed"
Open = "Open"

RoomCount=500

For Room = 1 to RoomCount
Door[Room] = Closed
Next Room

For Guest = 1 to RoomCount
For Visit = Guest to RoomCount Step Guest
IF Door(Visit) = Closed then
Door(Visit) = Open
'else Door(Visit) = Closed

[Eric Johnson]

RE: It's time for some fun.

Thanks. I see this now. I made the same mistake in the status counter at the end.

Eric