Exercícios Resolvidos de Common Lisp - Como testar se um número é perfeito usando Common Lisp - Desafio de Programação Resolvido em LISP

Informe um número inteiro: 6
O número informado é um número perfeito.

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

; variáveis que vamos usar no programa
(let ((numero)(soma 0))
  ; Vamos pedir para o usuário informar o valor inteiro
  (princ "Informe um número inteiro: ")
  ; talvez o seu compilador não precise disso
  (force-output)
  ; atribui o valor lido à variável numero
  (setq numero (read))
  
  ; Um laço que começa em 1 e vai até o 
  ; número informado - 1
  (loop for i from 1 to (- numero 1)
    do(
      ; o resto da divisão é 0?
      if (= 0 (rem numero i))
	; soma o valor de i ao valor da soma 
        (setq soma (+ soma i))
    )
  )
  
  ; E mostramos o resultado
  (if (= soma numero)
    (princ "O número informado é um número perfeito")
      (princ "O número informado não é um número perfeito")
  )   
)