Fractales

-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!)