Einstein quiz

This page is a method. The page identifier is Op_en5701
Moderator:Nobody (see all) Click here to sign up.
This page is a stub. You may improve it into a full page, and then a rating bar will appear here.
Upload data Show results

The Einstein quiz is a logic puzzle.

Question

How to solve the Einstein quiz and similarly structured problems using R-tools?

Facts:

• There are 5 houses in 5 different colors.
• In each house lives a person with a different nationality.
• These 5 owners drink a certain beverage, smoke a certain brand of cigar and keep a certain pet.
• No owners have the same pet, smoke the same brand of cigar or drink the same drink.
• Hints:
  • The Brit lives in a red house.
  • The Swede keeps dogs as pets.
  • The Dane drinks tea.
  • The green house is on the left of the white house.
  • The green house owner drinks coffee.
  • The person who smokes Pall Mall rears birds.
  • The owner of the yellow house smokes Dunhill.
  • The man living in the house right in the centre drinks milk.
  • The Norwegian lives in the first house.
  • The man who smokes Blend lives next to the one who keeps cats.
  • The man who keeps horses lives next to the man who smokes Dunhill.
  • The owner who smokes Blue Master drinks beer.
  • The German smokes Prince.
  • The Norwegian lives next to the blue house.
  • The man who smokes Blend has a neighbor who drinks water.

Can you determine who keeps fish?

Answer

The known relations as a table.

Einstein quiz(-)

Obs	First	Second
1	Brit	Red house
2	Swede	Dog
3	Dane	Tea
4	Green house	Coffee
5	Pall Mall	Bird
6	Yellow house	Dunhill
7	House 3	Milk
8	Norwegian	House 1
9	Blue Master	Beer
10	German	Prince

These cannot be solved with this solver:

• The green house is on the left of the white house.
• The man who smokes Blend lives next to the one who keeps cats.
• The man who keeps horses lives next to the man who smokes Dunhill.
• The Norwegian lives next to the blue house.
• The man who smokes Blend has a neighbor who drinks water.

+ Show code- Hide code library(reshape) a <- data.frame(A = c("A", "B", "C", "D", "E"), B = c("a", "b", "c", "d", "e"), C = c("1", "2", "3", "4", "5")) e <- data.frame(F = c("A", "a", 1), S = c("b", "2", "D")) a <- fetch("Op_en5701") e <- fetch("Op_en5700") b <- a[1] for(i in 2:ncol(a)) { b <- merge(b, a[i]) } b <- data.frame(Row = 1:nrow(b), b) b <- melt(b, id.vars = "Row") d <- b d for(i in 1:nrow(e)) { cond <- as.character(e[i, 1]) temp <- merge( b[b$value != cond & b$variable == b[b$value == cond, "variable"][1], ], b[b$value == as.character(e[i, 2]), ], by = "Row" ) print(temp) d <- d[!d$Row %in% temp$Row, ] cond <- as.character(e[i, 2]) temp <- merge( b[b$value == as.character(e[i, 1]), ], b[b$value != cond & b$variable == b[b$value == cond, "variable"][1], ], by = "Row" ) print(temp) d <- d[!d$Row %in% temp$Row, ] }

Related files

<mfanonymousfilelist></mfanonymousfilelist>