Programação Funcional e Concorrente com Scheme

notas de aula - Jerônimo C. Pellegrini
( define movement
( lambda (s0 v0 a t)
( let ((s (+ s0
(* v0 t)
(/ (* a t t)
2))))
s )))
( define tests ( list ( list " movement *" movement * ’(1 1 1.5 2) 6.0)
( list " movement " movement ’(1 1 1.5 2) 6.0)))
Um procedimento run-tests aplicará o procedimento test a todos os testes da lista.
( define run-tests
( lambda ( tests )
( map ( lambda (l)
( apply test l))
tests )))
Guardamos o resultado de run-tests em uma variável test-data:
(define test-data (run-tests tests))
test-data
((”movement*” #t 6.0 6.0) (”movement” #f 2 6.0))
É interessante termos um procedimento que nos forneça o número de testes que
passaram e o número de testes que falharam.
( define test-stats
( lambda ( test-results )
( let next (( lst test-results )
( passed 0)
( failed 0))
( cond (( null lst )
( list passed failed ))
(( cadar lst )
( next ( cdr lst ) (+ passed 1) failed ))
( else
( next ( cdr lst ) passed (+ failed 1)))))))
Versão Preliminar
38
[ 27 de outubro de 2010 at 15:47 ]