Programação Funcional e Concorrente com Scheme

notas de aula -
Jerônimo C. Pellegrini
-1
O fitness do indivíduo pefeito é zero:
(define individuo-perfeito ’(+ 1 (* x x)))
(fit (eval (sexp->lambda ’x individuo-perfeito) (interaction-environment)))
0
O operador de mutação pode trocar números ou operadores nas formas Scheme; o
de cross-over deve trocar sub-árvores (ou sub-expressões) de dois indivíduos.
Usaremos list-reduce e list-filter, além de list-count, que conta a quantidade
de átomos em uma lista, inclusive em suas sublistas:
( define list-count
( lambda ( lst )
(+ ( length lst )
( list-reduce + 0
( map list-count
( list-filter list lst ))))))
O operador de cross-over certamente precisará de um procedimento que troca os cdrs
de duas listas:
( define swap-cdr !
( lambda (a b)
( let (( ptr-a ( cdr a))
( ptr-b ( cdr b )))
( set-cdr ! a ptr-b )
( set-cdr ! b ptr-a ))))
Versão Preliminar
O procedimento deep-for-each aplica um procedimento em todos os átomos de uma
lista, recursivamente.
( define deep-for-each
( lambda ( proc lst )
( define do-it
( lambda (e)
(if ( list e)
( deep-for-each proc e)
( proc e ))))
[ 27 de outubro de 2010 at 15:47 ]
143