domingo, novembro 28, 2004

Ensaio Sobre Recursividade

Quero escrever uma referência sobre programação recursiva.
No futuro vou recodificar o excerto abaixo para Perl; talvez uma módulo.

Function TriPascal (p: Integer; q: Integer): Integer;
Var i: Integer;

Begin

If (p=q) or (p=0) or (q=0) Then i:=1
Else i:= TriPascal (p-1, q-1) + TriPascal (p-1, q);
TriPascal := i;

End;


enviado por Sergio Spoladore @ 05:20