Programação Funcional e Concorrente com Scheme

notas de aula -
Jerônimo C. Pellegrini
A operação binária de soma agora deverá verificar se há algum elemento complexo.
Se houver, a soma complexa será usada.
( define binary +
( lambda (a b)
(if (or ( complex a)
( complex b))
( complex + a b)
( standard + a b ))))
A operação de soma com número arbitrário de argumentos é apenas um list-reduce
usando a operação binária:
( define n-ary +
( lambda args
( list-reduce binary + 0 args )))
(n-ary+ 2 3 (make-rect 1 5))
(6 5)
Se quisermos, poderemos modificar o procedimento padrão + para que funcione com
complexos:
(define + n-ary+)
(+ 7 (make-rect 0 2))
(7 2)
Fazemos agora o mesmo para a multiplicação:
( 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 ))
(d ( imag-p complex-y )))
( make-rect (- (* a c) (* b d))
(+ (* b c) (* a d )))))))
Versão Preliminar
[ 27 de outubro de 2010 at 15:47 ]
51