Programação Funcional e Concorrente com Scheme

notas de aula - Jerônimo C. Pellegrini
( lambda (n) (- n 1)))
( define straight-2
( lambda ( valores )
( let (( tam (- ( length valores ) 1)))
( let (( valores-1 ( take valores tam ))
( valores-2 ( cdr valores )))
( equal valores-1 ( map sub1 valores-2 ))))))
A lista valores-1 é igual à lista valores, sem o último elemento. A lista valores-2 é
igual ao cdr da lista valores. Basta emparelhar ambas e verificá-las paralelamente e em
ordem para verificar se é uma sequência:
cartas: 8 9 10 j q
valores-1: 8 9 10 11
valores-2: 9 10 11 12
Em cada posição, o valor do elemento de valores-2 é igual ao valor do respectivo
elemento de valores somado de um.
Esta abordagem é mais limpa e elegante que a anterior, mas é menos eficiente: a lista
é percorrida uma vez na avaliação da forma (take valores tam) e outra na avaliação de
(equal valores1 (map ...)). No entanto, como as listas usadas para representar mãos
de jogo de poquer são muito pequenas, esta diferença em eficiência não será notada na
prática.
O procedimento que verifica um royal flush é bastante simples porque usa os outros já
desenvolvidos:
( define royal
( lambda ( valores naipes )
( and (= ( car valores ) 10)
( straight valores )
( flush naipes ))))
É possível codificar várias listas relacionadas em uma só, de maneira que a lista
Versão Preliminar
resultante tenha elementos de cada uma das listas originais alternando-se.
( zip ’(" Julius " " Winston " " Napoleao ")
’( cesar primeiro-ministro imperador )
’( roma inglaterra franca ))
[ 27 de outubro de 2010 at 15:47 ]
131