Lisp

Tirar duvidas sobre o curso de Autolisp

Moderador: Moderadores

Responder
Avatar do usuário
Niels_Borh
Novato
Novato
Mensagens: 1
Registrado em: Ter 26 Mai 2009 12:00:00 am

Lisp

Mensagem por Niels_Borh »

Alguém pode da uma ajuda?

Uma função soma-grandes que recebe três números como
argumento e determina a soma dos dois maiores.
Avatar do usuário
ederson
Prata 1/3
Prata 1/3
Mensagens: 414
Registrado em: Qua 21 Jul 2004 12:00:00 am
Localização: Belo Horizonte

Mensagem por ederson »

[lsp](apply '+ (vl-remove (apply 'min '(5 15 15)) '(5 15 15)))[/lsp]
Ederson Ambrosio
031 8893-2947
BH-MG
Avatar do usuário
svfabi
Bronze 1/3
Bronze 1/3
Mensagens: 100
Registrado em: Qui 31 Ago 2006 12:00:00 am
Localização: Brasilia DF

Mensagem por svfabi »

Caso tenha elementos repetido é melhor
[lsp](defun rrbI:Sort (lst func);by R. Robert Bell - ADG
(mapcar '(lambda (ndx) (nth ndx lst)) (vl-Sort-I lst func)))

(apply '+ (cdr (rrbi:Sort lista '<)))[/lsp]
Responder