Programação Funcional e Concorrente com Scheme

notas de aula - Jerônimo C. Pellegrini
Usaremos dois procedimentos para extrair as partes real e imaginária do número:
( define real-part
( lambda (c)
( car c )))
( define imag-part
( lambda (c)
( cadr c )))
Estes procedimentos são o mínimo que precisamos para criar o tipo de dados abstrato
“número complexo”.
Agora precisamos redefinir as operações aritméticas. Primeiro guardamos os procedimentos
para soma e multiplicação:
( define standard + +)
( define standard * *)
Criamos um procedimento que transforma números reais em complexos:
( define real- > complex
( lambda (x)
(if ( complex x)
x
( make-rect x 0))))
E finalmente definimos um procedimento que soma dois complexos. Usamos um let
para extrair as partes reais e imaginária de ambos os números e damos nomes a elas de
forma que x = (a + bi) e y = (c + di).
( define complex +
( lambda (x y)
( let (( complex-x ( real- > complex x))
( complex-y ( real- > complex y )))
( let ((a ( real-p complex-x ))
(b ( imag-p complex-x ))
(c ( real-p complex-y ))
Versão Preliminar
(d ( imag-p complex-y )))
( make-rect (+ a c) (+ b d ))))))
50
[ 27 de outubro de 2010 at 15:47 ]