Programação Funcional e Concorrente com Scheme

notas de aula - Jerônimo C. Pellegrini
Podemos testar nth-nonempty-sublist:
(do ((i 0 (+ 1 i )))
((= i 12))
( display " ===========\ n")
( newline )
( display i)
( display "th: ")
( display "-- ")
( display ( nth-nonempty-sublist ’(1 (2) (3 (4 5) 6) 7) i))
( newline ))
O operador de cross-over seleciona um ponto aleatóreo em cada uma das duas listas
e troca os cdrs nestes dois pontos, retornando duas novas listas.
( define cross-over !
( lambda (A B)
( let (( size-A ( count-nonempty-sublists A))
( size-B ( count-nonempty-sublists B )))
( let (( idx-A ( random-integer size-A ))
( idx-B ( random-integer size-B )))
( let (( ptr-A ( nth-nonempty-sublist A idx-A ))
( ptr-B ( nth-nonempty-sublist B idx-B )))
( swap-cdr ! ptr-A ptr-B ))))))
Os operadores são armazenados em listas e classificados por aridade.
( define ops-by-arity
’((1 ’( inv sqrt log exp abs sin cos tan asin acos atan ))
(2 ’( expt ))
(n ’(+ - * /))))
(esta seção está incompleta)
6.3 scheme em scheme
Versão Preliminar
Dois procedimentos formam o coração de um interpretador Scheme: eval e apply; o
primeiro avalia formas, e o segundo aplica procedimentos. Nesta seção construiremos em
Scheme um interpretador Scheme minimalista, incluindo eval, apply e um REPL. Nosso
[ 27 de outubro de 2010 at 15:47 ]
145