Logik-Rätsel
-
Gehören Sie zu den 2% der intelligentesten Personen auf der Welt? Es gibt keinen Trick bei diesem Rätsel, nur pure Logik.
1. Es gibt fünf Häuser mit je einer anderen Farbe.
2. In jedem Haus wohnt eine Person einer anderen Nationalität.
3. Jeder Hausbewohner bevorzugt ein bestimmtes Getränk,
raucht eine bestimmte Zigarettenmarke und hält ein bestimmtes Haustier.
4. Keine der 5 Personen trinkt das gleiche, raucht die gleichen zigaretten oder hält das gleiche tier wie einer seiner NachbarnFrage wem gehört der Fisch?
Hinweise:
* Der Brite lebt im roten Haus.
* Der Schwede hält einen Hund.
* Der Däne trinkt gerne Tee.
* Das grüne Haus steht links neben dem weißen Haus.
* Der Bestizer des grünen Hauses trinkt Kaffee.
* Die Person die Pall Mall raucht, hält einen Vogel.
* Die Mann im mittleren Haus trinkt Milch.
* Der Besitzer des gelben Hauses raucht Dunhill.
* Der Norweger wohnt im ersten Haus.
* Der Marlboro-Raucher wohnt neben dem, der eine Katze hält.
* Der Mann der ein Pferd hält wohnt neben dem der Dunhill raucht.
* Der Winfield Raucher trinkt Bier.
* Der Norweger wohntneben dem Blauen Haus.
* Der Deutsche raucht Rothmanns.
* Der Marlboro Raucher hat einen Nachbarn der Wasser Trinkt.Das ist ein Rätsel von Einstein^^
-
Dem Deutschen im grünen Haus, der Kaffee trinkt und Rothmanns raucht...
alter Hut
-
erstes(E,[E|_]). mittleres(M,[_,_,M,_,_]). links(A,B,[A|[B|_]]). links(A,B,[_|R]):-links(A,B,R). neben(A,B,L):-links(A,B,L);links(B,A,L). run:- X = [_,_,_,_,_], /* Es gibt (nebeneinander) 5 (noch unbekannte) Häuser */ member([rot,brite,_,_,_],X), /* Der Brite lebt im roten Haus */ member([_,schwede,_,_,hund],X), /* Der Schwede hält einen Hund */ member([_,daene,tee,_,_],X), /* Der Däne trinkt gern Tee */ links([gruen,_,_,_,_],[weiss,_,_,_,_],X), /* Das grüne Haus steht links vom weißen Haus */ member([gruen,_,kaffee,_,_],X), /* Der Besitzer des grünen Hauses trinkt Kaffee */ member([_,_,_,pallmall,vogel],X), /* Die Person, die Pall Mall raucht, hält einen Vogel */ mittleres([_,_,milch,_,_],X), /* Der Mann, der im mittleren Haus wohnt, trinkt Milch */ member([gelb,_,_,dunhill,_],X), /* Der Besitzer des gelben Hauses raucht Dunhill */ erstes([_,norweger,_,_,_],X), /* Der Norweger wohnt im 1. Haus */ neben([_,_,_,marlboro,_],[_,_,_,_,katze],X), /* Der Marlboro-Raucher wohnt neben dem, der eine Katze hält */ neben([_,_,_,_,pferd],[_,_,_,dunhill,_],X), /* Der Mann, der ein Pferd hält, wohnt neben dem, der Dunhill raucht */ member([_,_,bier,winfield,_],X), /* Der Winfield-Raucher trinkt gern Bier */ neben([_,norweger,_,_,_],[blau,_,_,_,_],X), /* Der Norweger wohnt neben dem blauen Haus */ member([_,deutsche,_,rothmans,_],X), /* Der Deutsche raucht Rothmans */ neben([_,_,_,marlboro,_],[_,_,wasser,_,_],X), /* Der Marlboro-Raucher hat einen Nachbarn, der Wasser trinkt */ member([_,N,_,_,fisch],X), /* Der mit der Nationalität N hat einen Fisch */ write(X),nl, /* Ausgabe aller Häuser */ write('Der '),write(N),write(' hat einen Fisch als Haustier.'),nl. /* Antwort auf die Frage */
-
deutscher fisch schrieb:
erstes(E,[E|_]). mittleres(M,[_,_,M,_,_]). links(A,B,[A|[B|_]]). links(A,B,[_|R]):-links(A,B,R). neben(A,B,L):-links(A,B,L);links(B,A,L). run:- X = [_,_,_,_,_], /* Es gibt (nebeneinander) 5 (noch unbekannte) Häuser */ member([rot,brite,_,_,_],X), /* Der Brite lebt im roten Haus */ member([_,schwede,_,_,hund],X), /* Der Schwede hält einen Hund */ member([_,daene,tee,_,_],X), /* Der Däne trinkt gern Tee */ links([gruen,_,_,_,_],[weiss,_,_,_,_],X), /* Das grüne Haus steht links vom weißen Haus */ member([gruen,_,kaffee,_,_],X), /* Der Besitzer des grünen Hauses trinkt Kaffee */ member([_,_,_,pallmall,vogel],X), /* Die Person, die Pall Mall raucht, hält einen Vogel */ mittleres([_,_,milch,_,_],X), /* Der Mann, der im mittleren Haus wohnt, trinkt Milch */ member([gelb,_,_,dunhill,_],X), /* Der Besitzer des gelben Hauses raucht Dunhill */ erstes([_,norweger,_,_,_],X), /* Der Norweger wohnt im 1. Haus */ neben([_,_,_,marlboro,_],[_,_,_,_,katze],X), /* Der Marlboro-Raucher wohnt neben dem, der eine Katze hält */ neben([_,_,_,_,pferd],[_,_,_,dunhill,_],X), /* Der Mann, der ein Pferd hält, wohnt neben dem, der Dunhill raucht */ member([_,_,bier,winfield,_],X), /* Der Winfield-Raucher trinkt gern Bier */ neben([_,norweger,_,_,_],[blau,_,_,_,_],X), /* Der Norweger wohnt neben dem blauen Haus */ member([_,deutsche,_,rothmans,_],X), /* Der Deutsche raucht Rothmans */ neben([_,_,_,marlboro,_],[_,_,wasser,_,_],X), /* Der Marlboro-Raucher hat einen Nachbarn, der Wasser trinkt */ member([_,N,_,_,fisch],X), /* Der mit der Nationalität N hat einen Fisch */ write(X),nl, /* Ausgabe aller Häuser */ write('Der '),write(N),write(' hat einen Fisch als Haustier.'),nl. /* Antwort auf die Frage */wat soll denn dat sein?
-
prolog vermutlich
-
Na der C-Code für das Rätsel :o
Muss man nur noch compilen _
-
042 schrieb:
prolog vermutlich
ist es und der quellcode ist aus der wiki ausgeliehen...
-
Machine schrieb:
wat soll denn dat sein?
?- [einstein].
% einstein compiled 0.00 sec, 5,592 bytes
Yes?- run.
[[gelb, norweger, wasser, dunhill, katze], [blau, daene, tee, marlboro, pferd], [rot, brite, milch, pallmall, vogel], [gruen, deutsche, kaffee, rothmans, fisch], [weiss, schwede, bier, winfield, hund]]
Der deutsche hat einen Fisch als Haustier.
More?Yes
-
Hab es endlich gelöst, aber nur indem ich mir fünf Häuser gezeichnet habe, bekanntes hineingeschrieben und Kombinationen, die in Frage kamen, darüber geschrieben habe.
Und unter welchen Rahmenbedingen gilt die Aussage (naja, könnte auch eine irreführende und aussagenlose Frage sein
) , dass man zu den intelligentesten Menschen der Erde gehört, falls man das Rätsel löst? Denn unter Zuhilfenahme von Stift und Papier kommt wohl fast jeder früher oder später zu einem Ergebnis.