Programação Funcional e Concorrente com Scheme

notas de aula - Jerônimo C. Pellegrini
b )))
(/ numerador (* 2 a )))))
Um procedimento Scheme que retorna a lista (possivelmente vazia) de soluções para
a equação teria que verificar o discriminante antes de usar o procedimento raiz – de
outra forma haveria a tentativa de calcular a raiz quadrada de um número negativo, que
não é real. O resultado da chamada de procedimento (raizes-grau-2 a b c) deve ser:
⎧
(list (raiz a b c +) (raiz a b c -)) se ∆ > 0
⎪⎨
(list (/ (- b) (* 2 a))) se ∆ = 0
⎪⎩ (list) se ∆ < 0
A forma especial cond escolhe uma dentre várias formas Scheme, e pode ser usada
para escolher que forma será avaliada e devolvida como valor do procedimento:
( define raizes-grau-2
( lambda (a b c)
( let (( delta ( discriminante a b c )))
( display delta )( newline )
( cond (( positive delta )
( list ( raiz a b c delta +)
(( zero delta )
A forma geral do cond é
( raiz a b c delta -)))
( list (/ (- b) (* 2 a ))))
( else ( list ))))))
( cond ( teste1 forma1-1
forma1-2
...)
( teste2 forma2-1
...
forma2-2
...)
Versão Preliminar
( else forma-else-1
forma-else-2
...))
[ 27 de outubro de 2010 at 15:47 ]
19