Programação Funcional e Concorrente com Scheme

notas de aula -
Jerônimo C. Pellegrini
( unzip2 ’((4 copas )
(9 paus )
(k ouros )
(k paus )
(k copas ))
(4 9 k k k)
(copas paus ouros paus copas)
Um procedimento para pontuar mãos de poquer pode separar os valores dos naipes
das cartas, já que algumas das verificações dependem somente dos valores ou somente
das cartas. Ordenar os valores também pode ser útil para identificar sequências.
( define pontua
( lambda ( hand )
( let-values ((( cartas naipes ) ( unzip2 hand )))
( let (( valores ( sort ( map carta- > valor
cartas )