Programação Funcional e Concorrente com Scheme

notas de aula - Jerônimo C. Pellegrini
1.13 abstração de dados
(esta seção está incompleta)
Para criar um tipo abstrato de dados precisamos de procedimentos para:
• Criar uma objeto deste tipo;
• Verificar se um objeto é deste tipo;
• Verificar se dois objetos deste tipo são iguais;
• Como os objetos deste tipo terão vários componentes, precisamos de procedimentos
para acessar cada um deles.
1.13.1 Exemplo: números complexos
O padrão Scheme define o tipo número complexo, mas sua implementação é opcional.
Faremos nossa própria implementação de números complexos.
( define make-rectangular
( lambda (a b)
( list a b )))
Para determinar se um objeto é um número complexo criamos o procedimento
complex
( define complex
( lambda (x)
( and ( list x)
( number ( car x))
( number ( cadr x )))))
O procedimento complex= verifica se dois complexos são iguais.
( define complex =
( lambda (z1 z2)
Versão Preliminar
( and (= ( real-part z1)
( real-part z2 ))
(= ( imag-part z1)
( imag-part z2 )))))
[ 27 de outubro de 2010 at 15:47 ]
49