Acertijo de Albert Einstein

Media-Vida.net: comunidad de superdotados incomprendidos por la sociedad.

Salu2

PD: casi.

PD2: Es un problema de lógica. Está claro que si se lo das a un chimpancé a lo mejor le cuesta arrancar, pero no es necesario ningún tipo de conocimiento previo salvo la lectura (y puede que la escritura) para resolverlo. Otra cosa es el tiempo, que depende entre otras cosas de la agilidad mental y de la experiencia en resolver este tipo de problemas.

Pos anda que iva yo listo sin papel y boli ahaosjojajo xDDD

pero se puede hacer con papel y boli ?

Todos los porcentajes de aproximación y tirados al azar como pueda ser el 98% son una trama y por ello el 46,5% de esta comunidad desconocía tal hecho.

• Y por eso lo pongo, porque sin la ignorancia, no tenemos conocimientos, y si no tenemos conocimientos, somos dioses.

#39 para mí que ese 2% del que se habla es una mayoría aplastante sobre el 98%.

Si antes ya la mitad eran analfabetos : O

Al reves, ya que antes a parte de ser analfabetos eran ignorantes y felices, y hoy no son analfabetos ni felices y creen no ser ignorantes. Nose nose . :S

Daria todo lo que se por la mitad de lo que ignoro. Que grande ^^

Pero que barbaridades dicen por ahi arriba.. si hace 10.000 años tenian la misma capacidad cerebral que ahora

eso con papel y lapiz se hace facilisimo, es ordenarlo todo....ya lo hice

venga en 5minutos xD menos mal que a tí te llevó semanas :p

http://img377.imageshack.us/img377/3316/guseinsteinfg1.jpg

domains
nacionalidad=symbol
color=symbol
bebida=symbol
tabaco=symbol
mascota=symbol
orden=integer

lista=persona(nacionalidad,color,bebida,tabaco,mascota,orden)
sol=lista*

predicates
nondeterm pistas.
nondeterm member(lista,sol).
nondeterm puedeSer1(integer).
nondeterm puedeSer2(orden,orden).

clauses
pistas:-Solu=[persona(A1,B1,C1,D1,E1,F1),
persona(A2,B2,C2,D2,E2,F2),
persona(A3,B3,C3,D3,E3,F3),
persona(A4,B4,C4,D4,E4,F4),
persona(A5,B5,C5,D5,E5,F5)],

	member(persona(ingles,roja,_,_,_,_),Solu),
	member(persona(sueco,_,_,_,perro,_),Solu),
	member(persona(danes,_,te,_,_,_),Solu),
	
	puedeSer1(X1),
	member(persona(_,blanca,_,_,_,X1),Solu),
	Y1=X1-1,
	member(persona(_,verde,_,_,_,Y1),Solu),
	member(persona(_,verde,cafe,_,_,_),Solu),
	member(persona(_,_,_,winston,caracoles,_),Solu),
	member(persona(_,_,leche,_,_,3),Solu),
	member(persona(_,amarilla,_,marlboro,_,_),Solu),
	member(persona(noruego,_,_,_,_,1),Solu),
	puedeSer1(Z1),
	member(persona(_,_,_,_,gato,Z1),Solu),
	puedeSer2(Z1,W1),
	member(persona(_,_,_,fortuna,_,W1),Solu),
	puedeSer1(T1),
	member(persona(_,_,_,_,caballo,T1),Solu),
	puedeSer2(T1,R1),
	member(persona(_,_,_,marlboro,_,R1),Solu),
	member(persona(_,_,cerveza,camel,_,_),Solu),
	member(persona(japones,_,_,ducados,_,_),Solu),
	
	puedeSer1(L1),
	member(persona(_,azul,_,_,_,L1),Solu),
	puedeSer2(L1,H1),
	member(persona(noruego,_,_,_,_,H1),Solu),
	
	member(persona(_,_,agua,_,_,_),Solu),
	member(persona(_,_,_,_,cebra,_),Solu),
	member(persona(_,_,_,_,_,1),Solu),
	member(persona(_,_,_,_,_,2),Solu),
	member(persona(_,_,_,_,_,4),Solu),
	member(persona(_,_,_,_,_,5),Solu),
	
	nl,write(A1," ",B1," ",C1," ",D1," ",E1," ",F1),
	nl,write(A2," ",B2," ",C2," ",D2," ",E2," ",F2),
	nl,write(A3," ",B3," ",C3," ",D3," ",E3," ",F3),
	nl,write(A4," ",B4," ",C4," ",D4," ",E4," ",F4),
	nl,write(A5," ",B5," ",C5," ",D5," ",E5," ",F5),
	nl.
	
	member(X,[X,_,_,_,_]).
	member(X,[_,X,_,_,_]).
	member(X,[_,_,X,_,_]).
	member(X,[_,_,_,X,_]).
	member(X,[_,_,_,_,X]).
	
	puedeSer1(X1):-X1=1;X1=2;X1=3;X1=4;X1=5.
	puedeSer2(Z1,W1):-W1=Z1+1;W1=Z1-1.

goal
pistas.

#52, qué lenguaje es ese?

Parece útil para la lógica.

EDIT: Intentándolo hacer en C, me he dado cuenta de que es imposible xD Vale, no es imposible, pero hay que hacer demasiado bucle, es tontería.