-Bueno, teneis 5 min para adivinar que hace este procedimiento recursivo:
procedure Adivina (x, y, r: integer);
begin
if r>0 then
begin
Adivina (x-r, y+r, r div 2);
Adivina (x+r, y+r, r div 2);
Adivina (x-r, y-r, r div 2);
Adivina (x+r, y-r, r div 2);
Rectangulo(x, y, r);
end;
end;
-Bien, que hace??
Voy yo el primero, como siempre, pa joderla bien. Yo queria decir que dividia un rectangulo en 4 cuadrantes y generaba rectangulos en cada cuadrante, diferentes, uno dentro de otro, recursivamente. Intente resumirlo mucho y me salio esto.
-Crea cuadrantes...?
-NO!! PARA NADA crea cuadrantes.
Jo... Le falto pegarme un tiro en la cara con el lanza-tanques.
Dice otro chaval:
-Crea rectangulos concentricos?
-No.
Reprimi unas ganas irresistibles de decir "Lanza... y falla"...
Dice Eva:
-Divide un rectangulo en 4 cuadrantes y generaba rectangulos en cada cuadrante, diferentes, uno dentro de otro, recursivamente.
Vamos, lo que queria decir yo, lo dijo Eva bien. Que chica tan lista. Como la odio xDD
-No.
Joder que puto asco. Ahora si que me siento mal!!!
Y por ultimo, un chaval anonimo:
-Crea fractales.
Todos pensamos, venga chaval, que fumas? Tira pa casa, ni siquiera se lo que es un fractal...
-Exacto.
Y asi fue como todos aprendimos hoy algo muy util. Que puto asco...
(0wn3d!)
martes, 30 de octubre de 2007
Suscribirse a:
Enviar comentarios (Atom)
1 comentario:
ain, me odias ain ain (L) q ilusión... yo te quiero máaaas.. ^^ xDDD
el puto anónimo de mierda... (oh dios, espero q nunca jamás en su vida llegue a leer esta página... ah bueno, no pasa nada, q tengo nombre en clave E.V.A. xDD )
voy a coger un diccionario y a buscar la palabra más complicada relacionada con la ingeniería, y el próximo martes cuando el de MTP diga "teneis 10 segundos para..." E.V.A. dirá: califragilisticoespialidoso! cabrón! muhahah....
Ya pasó...
No... es mentira... jo qué trauma :'(
Publicar un comentario