Programação Funcional e Concorrente com Scheme

notas de aula - Jerônimo C. Pellegrini
( really-reduce proc lista )))
1.7 número variável de argumentos
Procedimentos Scheme não precisam ter um número fixo de argumentos.
O procedimento sum-squares retorna a soma dos quadrados de uma lista de números.
( define square
( lambda (x) (* x x )))
( define sum-squares
( lambda ( points )
(if ( null points )
0
(+ ( square ( car points ))
( sum-squares ( cdr points ))))))
Este procedimento funciona com listas de pontos de qualquer tamanho, inclusive a
lista vazia (para a qual o valor é zero).
Outro procedimento que poderemos usar é o que dá a norma de um vetor (ou seja, a
distância entre este vetor e a origem no plano):
( define norm-2d
( lambda (a b)
( sqrt ( sum-squares ( list a b )))))
Poderemos precisar também a norma de vetores em três dimensões, e para isso
escrevemos um procedimento semelhante ao anterior:
( define norm-3d
( lambda (a b c)
( sqrt ( sum-squares ( list a b )))))
Versão Preliminar
Os procedimentos norm-2d e norm-3d são iguais a não ser pelo argumento c. Estamos
evidentemente duplicando código! Se tivermos acesso à lista de argumentos do procedimento,
(a b) para norm-2d ou (a b c) para norm-3d, poderemos simplesmente chamar
(sqrt (sum-squares lista-de-argumentos)).
[ 27 de outubro de 2010 at 15:47 ]
33