Calcule nb de multiplication et complexité (algorithme)?

Fonction puiss (n,p:entier):entier;
var m:entier;
debut
si (p=0) alors
puiss<==1
sinon
si (p mod 2=0) alors
puiss<==puiss(n,p div 2)*puiss(n,p div 2);
fin_si
sinon
puiss<==n*puiss(n,p div 2)*puiss(n,p div 2);
fin_sinon;
fin_sinon;
fin_fonction;

Calculer le nombre minimal de multiplication noté Min(p) nécéssaire pour réaliser un
calcul à partir de cette fonction, donner sa complexité, sa nature!

Est-ce que qq1 peut m'aider avec la méthode? mon probleme ici c'est comme cette fonction est RECURSIVE , mrc d'avance