2

Estou com dúvidas em como fazer uma outra função para exclusão do nome e do telefone.

Segue o código que fiz:

(defun incluir (Agenda  NomeTelefone)
    (cond ((atom A) (cons NT 'nil))
          ((equal (car NT) (caar A))
              (cond ((existeFone (cadr NT) (cdar A))A)
                    ('t (cons(cons(car NT)(cons (cadr NT)(cdar A))) (cdr A)))))
          ('t (cons(car A)(incluir (cdr A) NT)))))

//função existeFone 
(defun existeFone (NT A)
    (cond ((equal NT A) A)
          ('t (cons (cons(car NT)(cons (cadr NT)(cdar A))) (cdr A))))
7
  • 2
    Sugestão: sempre indente seu código Lisp, senão você vai ficar doido de tanto contar parênteses... :P
    – mgibsonbr
    Commented 23/06/2015 às 14:21
  • P.S. Tem vários parênteses faltando na função existeFone, não? (antes de NT, antes de (equal e um fechando no final).
    – mgibsonbr
    Commented 23/06/2015 às 14:28
  • sim, estava faltando ,fui corrigir e acabei esquecendo de arrumar, obrigado por corrigir!!
    – vitor
    Commented 23/06/2015 às 14:31
  • Eu não tinha corrigido (em geral, só o autor da pergunta deve mexer no seu código, exceto pela indentação), mas com sua confirmação, fiz isso agora. :)
    – mgibsonbr
    Commented 23/06/2015 às 14:43
  • 2
    Você quer excluir pelo nome, pelo telefone ou por ambos? Digo, se uma outra pessoa com aquele telefone (mas nome diferente) estiver na agenda, a função deve fazer o quê? Se a pessoa tiver mais de um telefone (você parece tratar esse caso), a função deve apagar todos ou só o que foi especificado?
    – user25930
    Commented 23/06/2015 às 19:36

1 Resposta 1

0

Para "excluir" um telefone da lista, podemos montar uma nova lista recursivamente com todos os valores que não sejam o que queremos.

(defun excluir (valor lista)
  (cond
     ((eql nil lista) nil) ;lista vazia/fim da lista, retornamos nada
     ((and ;verificamos se os dois campos são iguais
          (equalp (car valor) (caar lista)) ;comparamos primeiro campo
          (equalp (cadr valor) (cadar lista))) ;comparamos o segundo
           (excluir valor (cdr lista))) ;pulamos ele e pegamos o resto,
      (t (cons (car lista) (excluir valor (cdr lista)))))) ;não é o valor, adicionamos ele ao resto da lista montada recursivamente

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .