Programação Funcional e Concorrente com Scheme

notas de aula -
Jerônimo C. Pellegrini
( eqv (x) ( car naipes )))
naipes )))
O procedimento straight pode ser construído de diferentes maneiras. Uma delas é
verificar, para cada elemento da lista de valores, se ele é igual ao próximo subtraído de
um:
( define straight
( lambda ( valores )
(if (< ( length valores ) 2)
#t
( and ( eqv (+ 1 ( car valores ))
( cadr valores ))
( straight ( cdr valores ))))))
Outra forma de verificar uma sequência usa dois procedimentos, take e drop. O
primeiro toma os n primeiros elementos de uma lista, e o segundo retorna a lista sem os
n primeiros elementos:
(take ’(a b c) 2)
(a b)
(drop ’(a b c) 1)
(b c)
O próximo exemplo mostar uma possível implementação destes procedimentos.
( define take
( lambda ( lista n)
(if (< n 1)
’()
( cons ( car lista )
( take ( cdr lista ) (- n 1))))))
Versão Preliminar
( define drop
( lambda ( lista n)
(if (< n 1)
lista
( drop ( cdr lista ) (- n 1)))))
( define sub1
130
[ 27 de outubro de 2010 at 15:47 ]