12 lines
943 B
Plaintext
12 lines
943 B
Plaintext
10 REM Floors are numbered 0 (ground) to 4 (top)
|
|
20 REM "Baker, Cooper, Fletcher, Miller, and Smith live on different floors":
|
|
30 REM "Baker does not live on the top floor"
|
|
40 REM "Cooper does not live on the bottom floor"
|
|
50 REM "Fletcher does not live on either the top or the bottom floor"
|
|
60 REM "Miller lives on a higher floor than does Cooper"
|
|
70 REM "Smith does not live on a floor adjacent to Fletcher's"
|
|
80 REM "Fletcher does not live on a floor adjacent to Cooper's"
|
|
90 FOR b=0 TO 4: FOR c=0 TO 4: FOR f=0 TO 4: FOR m=0 TO 4: FOR s=0 TO 4
|
|
100 IF B<>C AND B<>F AND B<>M AND B<>S AND C<>F AND C<>M AND C<>S AND F<>M AND F<>S AND M<>S AND B<>4 AND C<>0 AND F<>0 AND F<>4 AND M>C AND ABS (S-F)<>1 AND ABS (F-C)<>1 THEN PRINT "Baker lives on floor ";b: PRINT "Cooper lives on floor ";c: PRINT "Fletcher lives on floor ";f: PRINT "Miller lives on floor ";m: PRINT "Smith lives on floor ";s: STOP
|
|
110 NEXT s: NEXT m: NEXT f: NEXT c: NEXT b
|