Programação Funcional e Concorrente com Scheme

notas de aula -
Jerônimo C. Pellegrini
( syntax-rules ()
(( vezes condicao body ...)
( let loop ((i 0))
(if (< i n)
( begin
body ...
( loop (+ 1 i )))
#f ))))))
( vezes n
( write-char #\-))
( newline ))))
O exemplo a seguir encontra-se no padrão R 5 RS:
( letrec-syntax
(( my-or ( syntax-rules ()
(( my-or ) #f)
(( my-or e) e)
(( my-or e1 e2 ...)
( let (( temp e1 ))
(if
temp
temp
( my-or e2 ...)))))))
( let ((x #f)
(y 7)
( temp 8)
( let odd )
( my-or x
(if even ))
Versão Preliminar
( let temp )
(if y)
y )))
A macro definida com letrec-syntax é definida recursivamente, e passará por várias
expansões até que o código gerado não tenha mais macros a serem expandidas.
A lista de variáveis no let do último exemplo pode parecer um pouco estranha. Os
identificadores let e if são redefinidos – e Scheme permite fazê-lo!
( let (( let odd ))
178
[ 27 de outubro de 2010 at 15:47 ]