Programação Funcional e Concorrente com Scheme

notas de aula - Jerônimo C. Pellegrini
( define binary *
( lambda (a b)
(if (or ( complex a)
( complex b))
( complex * a b)
( standard * a b ))))
( define n-ary *
( lambda args
( list-reduce binary * 1 args )))
Note que desta vez passamos 1 como valor default para list-reduce.
O padrão Scheme também define procedimentos para obter a magnitude e o ângulo
de um complexo. Nossa implementação é:
( define magnitude
( lambda ( args )
( norm ( car args )
( cadr args ))))
O ângulo entre um vetor (a, b) no plano complexo e o eixo das abscissas é atan(b/a):
( define ang
( lambda (c)
( atan (/ ( imag-p c)
( real-p c )))))
1.14 formatação de código
Nas linguagens do tipo Lisp é comum que o código seja formatado da seguinte maneira:
• Quando um parêntese é aberto sem que seja fechado em uma linha, a próxima linha
é indentada à frente (normalmente usam-se dois espaços);
Versão Preliminar
• Parênteses são fechados todos juntos, sem quebra de linha entre eles.
A seguir há um trecho de código formatado conforme a tradição Lisp e outro, que
certamente causa estranheza a usuários experientes de Lisp (pessoas acostumadas com
52
[ 27 de outubro de 2010 at 15:47 ]