Programação Funcional e Concorrente com Scheme

notas de aula - Jerônimo C. Pellegrini
Dois procedimentos podem receber uma carta e retornar sua face e seu naipe:
( define pega-face
( lambda ( carta )
( car carta )))
( define pega-naipe
( lambda ( carta )
( car ( cdr carta ))))
A face de uma carta pode ser um número ou símbolo; para transformá-la em string
precisamos verificar seu tipo e usar o procedimento adequado.
( define face- > string
( lambda ( face )
( cond (( symbol face )
( symbol- > string face ))
(( number face )
( number- > string face )))))
Finalmente, um procedimento hand->string recebe uma lista de cartas e retorna uma
string com cada carta na forma face:naipe:
( define hand- > string
( lambda ( hand )
(if ( null hand )
""
( let (( carta ( car hand )))
( string-append
( hand- > string ’((k ouros )
( face- > string ( pega-face carta )) ":"
( symbol- > string ( pega-naipe carta )) " "
( hand- > string ( cdr hand )))))))
(3 espadas )
(5 ouros )
(q paus )
Versão Preliminar
(q copas )))
”k:ouros 3:espadas 5:ouros q:paus q:copas”
22
[ 27 de outubro de 2010 at 15:47 ]