Over the next five weeks, the Weekly Book Club is hosting discussions of five bestselling authors' new novels, including "Nth Degree", to help members decide whether to buy the books as holiday gifts. Each club meeting will be at a different member's house, with one at Ms. Arnold's residence; and each will feature a different one of the five books.
It is known that:
1. The Weekly Book Club's meeting at Jane's house is one week before the meeting at Mrs. Dennis's residence, which is one week before the meeting where author Stephen Meyer's new novel will be discussed.
2. One week after Ms. Edgar has the book club at her house, the members will discuss the new novel by Paula Roth.
3. "Pizza in Paradise" will be discussed by the club one week before the new novel by author Natalie Sparks.
4. One week after the book lovers discuss "The Night Runner", Laurie will be hostess to the club meeting.
5. The discussion of Michael Albom's latest book isn't the one at Jane's house.
6. The club's discussion of "Rough and Tumble 21" isn't the one at Monica's house.
7. In three consecutive club meetings firsttolast, Ms. Bradley will be hostess, the group will discuss "Mindfield", and Kate will welcome the members into her home.
8. Discussion of Jack Grissom's new novel isn't scheduled for Ms. Charles's residence.
9. Nicole is hosting the club one week before the group talks about Michael Albom's novel.
10. Natalie Sparks's new novel, which isn't "Mindfield", isn't the book scheduled for discussion at the club meeting at Ms. Bradley's residence.
11. Kate, who isn't Ms. Dennis, isn't hostess for the discussion of Stephen Meyer's book.
From the abovementioned clues, determine the Weekly Book Club's preholiday schedule: at whose home each meeting from first to fifth will be held and the novel and its author who will be discussed at each meeting.
first$ = SPACE$(5) ' jlnmk
last$ = SPACE$(5) ' debca
title$ = SPACE$(10) ' pp nr rt mf nd
author$ = SPACE$(10) ' sm pr ns ma jg
CLS
FOR jane = 1 TO 3 ' clue 1
MID$(first$, jane, 1) = "j"
MID$(last$, jane + 1, 1) = "d"
MID$(author$, (jane + 2) * 2  1, 2) = "sm"
FOR edgar = 1 TO 4 ' clue 2
IF edgar + 1 <> jane + 2 THEN
MID$(last$, edgar, 1) = "e"
MID$(author$, (edgar + 1) * 2  1, 2) = "pr"
FOR pp = 1 TO 4 ' clue 3
IF MID$(author$, (pp + 1) * 2  1, 2) = " " THEN
MID$(title$, pp * 2  1, 2) = "pp"
MID$(author$, (pp + 1) * 2  1, 2) = "ns"
FOR nr = 1 TO 4 ' clue 4
IF MID$(title$, nr * 2  1, 2) = " " AND MID$(first$, nr + 1, 1) = " " THEN
MID$(title$, nr * 2  1, 2) = "nr"
MID$(first$, nr + 1, 1) = "l"
FOR bradley = 1 TO 3 ' clue 7
IF MID$(last$, bradley, 1) = " " THEN
IF MID$(title$, ((bradley + 1) * 2)  1, 2) = " " THEN
IF MID$(first$, bradley + 2, 1) = " " THEN
IF MID$(author$, ((bradley + 1) * 2)  1, 2) <> "ns" THEN ' clue 10
MID$(last$, bradley, 1) = "b"
MID$(title$, ((bradley + 1) * 2)  1, 2) = "mf"
MID$(first$, bradley + 2, 1) = "k"
kate = bradley + 2
IF bradley + 2 <> jane + 1 THEN ' clue 11a
FOR albom = 2 TO 5
IF MID$(author$, albom * 2  1, 2) = " " AND albom <> jane THEN ' clue 5
IF MID$(first$, albom  1, 1) = " " THEN
MID$(author$, albom * 2  1, 2) = "ma"
MID$(first$, albom  1, 1) = "n" ' clue 9
FOR rat = 1 TO 5
IF MID$(title$, rat * 2  1, 2) = " " THEN
MID$(title$, rat * 2  1, 2) = "rt"
FOR monica = 1 TO 5
IF monica <> rat AND MID$(first$, monica, 1) = " " THEN ' clue 6
MID$(first$, monica, 1) = "m"
FOR grissom = 1 TO 5
IF MID$(author$, grissom * 2  1, 2) = " " THEN
MID$(author$, grissom * 2  1, 2) = "jg"
FOR charles = 1 TO 5
IF charles <> grissom AND MID$(last$, charles, 1) = " " THEN ' clue 8
MID$(last$, charles, 1) = "c"
IF MID$(last$, kate, 1) <> "d" THEN
IF MID$(author$, kate * 2  1, 2) <> "sm" THEN
PRINT
FOR psn = 1 TO 5
PRINT MID$(first$, psn, 1) + " ";
NEXT
PRINT
FOR psn = 1 TO 5
IF MID$(last$, psn, 1) = " " THEN MID$(last$, psn, 1) = "a"
PRINT MID$(last$, psn, 1) + " ";
NEXT
PRINT
FOR psn = 1 TO 10 STEP 2
IF MID$(title$, psn, 2) = " " THEN MID$(title$, psn, 2) = "nd"
PRINT MID$(title$, psn, 2) + " ";
NEXT
PRINT
FOR psn = 1 TO 10 STEP 2
PRINT MID$(author$, psn, 2) + " ";
NEXT
PRINT
END IF
END IF
MID$(last$, charles, 1) = " "
END IF
NEXT charles
MID$(author$, grissom * 2  1, 2) = " "
END IF
NEXT grissom
MID$(first$, monica, 1) = " "
END IF
NEXT monica
MID$(title$, rat * 2  1, 2) = " "
END IF
NEXT rat
MID$(first$, albom  1, 1) = " "
MID$(author$, albom * 2  1, 2) = " "
END IF
END IF
NEXT albom
END IF
MID$(last$, bradley, 1) = " "
MID$(title$, ((bradley + 1) * 2)  1, 2) = " "
MID$(first$, bradley + 2, 1) = " "
END IF
END IF
END IF
END IF
NEXT bradley
MID$(title$, nr * 2  1, 2) = " "
MID$(first$, nr + 1, 1) = " "
END IF
NEXT
MID$(title$, pp * 2  1, 2) = " "
MID$(author$, (pp + 1) * 2  1, 2) = " "
END IF
NEXT
MID$(last$, edgar, 1) = " "
MID$(author$, (edgar + 1) * 2  1, 2) = " "
END IF
NEXT edgar
MID$(first$, jane, 1) = " "
MID$(last$, jane + 1, 1) = " "
MID$(author$, (jane + 2) * 2  1, 2) = " "
NEXT jane
finds
j m n l k
a d b e c
pp nd nr mf rt
jg ns sm ma pr
meaning
week 1: Jane Arnold; Pizza in Paradise by Jack Grissom
week 2: Monica Dennis: Nth Degree by Natalie Sparks
week 3: Nicole Bradley: The Night Runner by Stephen Meyer
week 4: Laurie Edgar: Mindfield by Michael Albom
week 5: Kate Charles: Rough and Tumble 21 by Paula Roth

Posted by Charlie
on 20091029 18:05:42 