Bon dia a la vila del pingüí.

Aquí comença el meu anéssim bloc, amb coses vàries i diverses i que espero no deixar abandonat massa sovint (o massa aviat).

Bé doncs, amb què començo? Tenim 4 dies estudiant una assignatura que ja he aprovat. És TP, de les difícils per la plebs adotzenada, però que encaixa perfectament al meu cerbell, cosa que em fa preguntar realment si tinc el cap com un ordinador, o sóc un robot directament (somio en obelles mecàniques? Doncs probablement, si).

Es pot saber què t'emparres? ¬¬

Jo? Res, res.

Doncs això, que ajudant a l'Ada a estudiar per l'examen m'he posat a fer un problema de números catalans. Resulta que aquests números són utilíssims per resoldre problemes d'aquells que no ens trobarem mai a la vida real. I van ser inventats per un velga.

És belga ¬¬

El que tu diguis.

fun catala n = let
___ fun factorial 0 = 1
___ | factorial n = n * factorial (n-1)
___ fun combinatori n m = let
___ ___ fun combinatori2 n 0 = n
___ ___ | combinatori2 n m = n * combinatori2 (n-1) (m-1)
___ in
___ ___ (combinatori2 n m) div (factorial m)
___ end
in
___ (combinatori (2 * n) n) div (n+1)
end;

encara que es pot definir seqüencialment:


local
___ fun catalaseg ant n = ant * (4 * n * n + 6 * n + 3) div (n * n + 3 * n + 3)
___ fun catalans cat n = cat::(catalans (catalaseg cat (n+1)) (n+1))
in
___ val numsCatalans = catalans 1 1
end;


I tot això per?

Demostrar que sóc un friki :D

¬¬U

Ah, i avui toca anar a mirar la peli del Batman Joker :D