Programação Funcional e Concorrente com Scheme

notas de aula -
Jerônimo C. Pellegrini
’( ”Julius” cesar roma
”Winston” primeiro-ministro inglaterra
”Napoleao” imperador franca)
A implementação de zip precisa separar os cars e cdrs de todas as listas e adicionar
os cars gradualmente, até que as listas tenham se esgotado:
( define zip
( lambda listas
(if ( any null listas )
’()
( let (( cars ( map car listas ))
( cdrs ( map cdr listas )))
( append cars ( apply zip cdrs ))))))
O procedimento zip sabe quantas listas são passadas como argumentos; um procedimento
unzip não tem como adivinhar o número de listas, e portanto precisa dele como
argumento.
( define unzip
( lambda (n lista )
( let loop (( result ( make-list n ( list )))
( lst lista ))
(if (< ( length lst ) n)
( map ! reverse ! result )
( let (( to-unzip ( take lst n )))
( loop ( map ! cons to-unzip result )
( drop lst n )))))))
Uma mão de poquer pode ser representada como uma lista de cartas, e cada carta
pode por sua vez ser representada por uma lista onde o primeiro elemento determina o
valor e o segundo o naipe da carta. Por exemplo,
Versão Preliminar
’((4 copas )
(9 paus )
(k ouros )
(k paus )
(k copas ))
O procedimento unzip2 é parecido com unzip, mas aceita listas de pares:
132
[ 27 de outubro de 2010 at 15:47 ]