Desafio - Cálculo de potência sem o "expt"!

[admin]

Em autolisp temos a função "expt" para cálculos de potência

2 elevado à 2 = 4

[lsp](expt 2 2) ; retorna 4[/lsp]
[lsp](expt 3 2) ; retorna 9[/lsp]

E se não existisse esta função? como resolveriamos o problema?
Teriamos que criar uma função que recebesse qualquer dupla de valores e retornasse o resultado
exemplo:

[lsp](potencia 10 4) ; deve retornar 10000[/lsp]

da mesma forma que utilizamos:

[lsp](expt 10 4); retorna 10000[/lsp]


Alguem se habilita? Resposta amanhã se ninguem conseguir!

[ederson]

Marcos, tabajara para expente inteiro. Para expoente fracionário, precisa desenvolver, para encotrar os inteiros que geram a fração.
[lsp](defun c:potencia (/ base expo resu)
(setq base (getreal "\nEntre com a base...")
expo (getint "\nEntre com o expoente...")
resu base
)
(repeat (1- expo)
(setq resu (* resu base))
)
(print (rtos resu))
(princ)
)[/lsp]

[admin]

Ok... Perfeito.. Mas vamos complicar um pouco mais!


não pode utilizar as funções while nem repeat

Depois vão entender onde quero chegar!

A dica está justamente em não poder utilizar while e repeat

aguardo

at

[nuelss]

Boa tarde senhores !!!

Ando meio sumido ...

Segue uma possivel solução - tá meia feinha ... e está dando erro de stacks quando liberada para numeros decimais ... Só ta funcionando com inteiros ... se alguem puder melhorar ... é que fiz correndo, agora no almoço ...

[lsp](defun pot (base expo)
(if (or (null base) (null expo) (null (numberp base)) (null (numberp expo)) (null (equal (fix base) base)) (null (equal (fix expo) expo)))
nil
(progn
(if (null expon)
(setq basen base expon (- expo 1))
)
(if (> expon 0)
(progn
(setq basen (* base basen) expon (- expon 1))
)
)
(if (equal expon 0)
(progn
(setq expon nil base nil expo nil)
basen
)
(pot base expon) ;|Recursãozinha|;
)
)
)
)[/lsp]

Sintaxe:
[lsp](setq valor (pot base expoente))[/lsp]

Flw ...

[ederson]

Havia ficado + difícil, mas acho que é isso mesmo...

[lsp](defun potenciaII (base expo)
(if (equal expo 0)
(setq resu 1)
(setq resu (* base (potenciar base (- expo 1))))
)
(print resu)
(princ)
)[/lsp]

(potenciaII 8 3)

[ederson]

[lsp](defun potenciaII (base expo)
(if (equal expo 0)
1
(* base (potenciaII base (1- expo)))
)
)[/lsp]

Agora tá certo!

[neyton]

dica:
usem recursivide e um if....

[admin]

O ederson conseguiu

parabens! he he he he
segue a minha versão:

[lsp]
(defun Expoente (x y)
(IF (zerop y)
1
(* x (Expoente x (- y 1)))
)
)[/lsp]

Realmente o segredo esta em usar recursividade onde a rotina chama ela mesma de forma controlada para não criar um loop infinito!