Programação Funcional e Concorrente com Scheme

notas de aula -
Jerônimo C. Pellegrini
( for-each ( lambda ( name )
( eval # ( list ’def name ( scheme-eval name ))
ne ))
primitive-names )
Agora usamos nossa forma especial def para criar alguns vínculos.
( begin
( eval # ’( def a 5) ne)
( eval # ’( def b 15) ne)
( eval # ’( def c 25) ne)
( eval # ’( def d 35) ne ))
Verificamos que os vínculos realmente foram criados:
(eval# ’b ne)
15
(eval# ’c ne)
25
(eval# ’+ ne)
(eval# ’(lambda (a) (* 2 a)) ne)
(proc (lambda (a) (* 2 a))
((d 35) (c 25) (b 15) (a 111)
(car #) ... ))
Agora verificaremos se o ambiente local de um lambda se sobrepõe sobre o global
como esperaríamos de uma implementação Scheme:
Versão Preliminar
(eval# ’((lambda (a) (* 2 a)) 500) ne)
1000
(eval# ’((lambda (c) (* 2 a)) 500) ne)
222
( eval # ’( def inc-show
(( lambda ()
(( lambda ( counter )
( list ( lambda () ( set ! counter (+ 1 counter )))
154
[ 27 de outubro de 2010 at 15:47 ]