JSFH

expor :=proc(a,n)

local aa,res,nn ;

res := 1 ; nn := n ; aa :=a ;

while(nn>0) do

if type(nn,odd)

then res :=res*aa ;nn :=nn-1 ;

else aa :=aa*aa ;nn :=nn/2 ;

end if ;

od ;

res ;

end proc ;

Zio2JEkiYUc2IkkibkdGJTYlSSNhYUdGJUkkcmVzR0YlSSNubkdGJUYlRiVDJz44JSIiIj44JjklPjgkOSQ/KEYlRi5GLkYlMiIiIUYwQCUtSSV0eXBlRyUqcHJvdGVjdGVkRzYkRjBJJG9kZEdGO0MkPkYtKiZGLUYuRjNGLj5GMCwmRjBGLiEiIkYuQyQ+RjMqJkYzRi5GM0YuPkYwLCRGMCNGLiIiI0YtRiVGJUYl

expor(2,8);

IiRjIw==

exporec:=proc(a,n) local p,y ;

if n=0 then 1

else

p :=n mod 2 ;

y :=a*a ;

if p=0 then exporec(y,n/2)

else a*exporec(y,(n-1)/2)

end if;

end proc ;

Zio2JEkiYUc2IkkibkdGJTYkSSJwR0YlSSJ5R0YlRiVGJUAlLzklIiIhIiIiQyU+OCQtSSRtb2RHRiU2JEYsIiIjPjglKiY5JEYuRjlGLkAlL0YxRi0tSShleHBvcmVjR0YlNiRGNywkRiwjRi5GNSomRjlGLi1GPTYkRjcsJkYsRkAjISIiRjVGLkYuRiVGJUYl

exporec(2,8);

IiRjIw==

JSFH