Trocar valores entre duas variáveis

[cracksther]

Desafio básico de programamação -> serve para qualquer linguagem
Sendo v1 = 10 e v2 = 20; escreva uma função que troque o valor das duas variáveis sem utilizar uma terceira variável, após a execução v1 deve ser = 20 e v2 = 10...

Isso é bem fácil.

Até mais!

[ederson]

Marcelo, pode não ser a melhor das soluções mas...
[lsp](defun c:marcelo ()
(setq v1 (getint "\nEntre com V1...")
v2 (cons v1 (getint "\nEntre com V2..."))
v1 (rtos (cdr v2))
v2 (rtos (car v2))
)
(princ (strcat "\nOs valores de V1 e V2 repectivamente..." v1 " " v2))
(princ)
)[/lsp]

[cracksther]

ederson... Sua solução funciona, mas não é bem o que eu esperava, pois esta suloção utilizou funções especificas da AutoLISP (cons, rtos), no entanto é possível fazer sem estas funções o que seria mais portável...

Dica: Utilize apenas + e - além de setq...

Até mais!

[ederson]

Co dica fica + fácil....
[lsp](defun c:marcelo ()
(setq v1 (getint "\nEntre com v1...")
v2 (+ v1 (getint "\nEntre com v2..."))
v1 (print (- v2 v1))
v2 (print (- v2 v1))
)
(princ)
)[/lsp]

[cracksther]

Viu como é fácil.... acho que dei a dica muito cedo...

Até mais!

[ederson]

É vc deu a dica muito cedo... hehehehehehe!!!!

[neyton]

supondo qu v1 e v2 sejam conhecidas e tenham valores:

[lsp](mapcar 'set '(v2 v1) (list v1 v2))[/lsp]

em lisp vai bem facil, hehehehe