Programação Funcional e Concorrente com Scheme

notas de aula - Jerônimo C. Pellegrini
( for-each do-it lst )))
Precisaremos de um procedimento count-nonempty-sublists para contabilizar a
quantidade de sublistas não vazias em uma lista.
( define count-nonempty-sublists
( lambda ( lst )
(if ( null lst )
0
( let (( rest ( count-nonempty-sublists ( cdr lst )))
( head (+ 1 (if ( list ( car lst ))
(+ head rest )))))
( count-nonempty-sublists ( car lst ))
0))))
Os operadores de mutação e cross-over escolherão um ponto aleatóreo na forma para
fazer modificações. O procedimento nth-nonempty-sublist encontra este ponto, que é a
n-ésima sublista não vazia.
( define nth-nonempty-sublist
( lambda ( the-list n)
( let loop (( lst the-list )
(n 0)
( wanted n))
( cond (( null lst )
n)
((> n wanted )
’OVER )
((= n wanted )
lst )
( else
( let (( head (if ( list ( car lst ))
( loop ( car lst ) (+ n 1) wanted )
(+ n 1))))
( cond (( symbol head )
’OVER )
(( list head )
head )
( else
( loop ( cdr lst ) head wanted )))))))))
Versão Preliminar
144
[ 27 de outubro de 2010 at 15:47 ]