Programação Funcional e Concorrente com Scheme

notas de aula -
Jerônimo C. Pellegrini
(+ 1 ( call /cc
( lambda (k)
( set ! r k)
(+ 2 (k 3)))))
r tem o valor do contexto (da continuação) anterior:
(r 5)
6
(+ 3 (r 5))
6
Não importa onde r seja invocado, ele sempre continuará a computação anterior.
Uma continuação obtida com call/cc não precisa necessariamente ser usada.
( call /cc
( lambda (k)
#t))
Este trecho de código sempre retornará #t, e o procedimento k nunca será usado.
8.2 um exemplo simples: escapando de laços
Pode ser vantajoso abandonar um laço antes da última iteração em algumas situações. O
procedimento a seguir calcula o produto de uma lista:
( define list-product
( lambda (s)
Versão Preliminar
( let more ((s s))
(if ( null s) 1
(* ( car s) ( more ( cdr s )))))))
Se um dos elementos da lista é zero, não há motivo para continuar. Pode-se incluir
uma verificação:
( define list-product
( lambda (s)
( let recur ((s s))
200
[ 27 de outubro de 2010 at 15:47 ]