Задачи на Prolog?

Необходимо е кодовото решение на 2 задачи...рових из какви ли не руски форуми... никъде не открих.

Трима немци спорят за номер и марка на автомобил:

- Първият казва, че е АУДИ, а номерът му започвал с единица

- Вторият казва, че е ОПЕЛ и номерът му започвал със седмица

- Третият казал, че не бил нито АУДИ, нито ОПЕЛ и не започва с единица

Знае се, че всеки немец казва една истина и една лъжа. Търси се марката и номера на автомобила.

Когато Алиса навлязла в гората на забравата не забравила абсолютно всичко, а само някои неща. Тя често забравяла името си, а онова, което най-често не можела да си спомни било какъв ден от седмицата е.

Лъвът и еднорогът често се разхождали из тази гора. Те са две необикновени същества. Лъвът лъже в понеделник, вторник и сряда, а през останалите дни на седмицата казва истината. Еднорогът лъже в четвъртък, петък и събота,а казва истината в останалите дни от седмицата.

Веднъж лъвът и еднорогът не се появили цял месец в гората. Те били другаде и си оспорвали короната.

Братята Туидълдум и Туидълди били наблизо. Единият от тях също като лъва лъже в понеделник, вторник и сряда, а казва истината в останалите дни от седмицата. Другият е като еднорога и лъже в четвъртък, петък и събота, а през останалите дни казва истината.

Но Алиса не знаела кой е като лъва и кой като еднорога. Но по-лошото било, че двамата братя си приличали като две капки вода и Алиса не можела да ги различи (освен в дните, когато слагали бродираните си якички, но това се случвало рядко).

Веднъж братята казали:

Първият: Първо, аз лъжа в събота и второ, аз лъжа в неделя

Вторият: Аз ще лъжа утре

През кой ден от седмицата се случило това?

На тази задача открих някакъв код, но честно казано в повече ми дойде руският (от който нищо не разбирам )

Редактирано 19 декември 201114 г. от crazymonster (преглед на промените)