Programação Funcional e Concorrente com Scheme

notas de aula - Jerônimo C. Pellegrini
Queremos também um procedimento que mostra uma partícula em formato facilmente
legível:
( define particula- > string
( lambda (p)
( define position- > string
( lambda (xy)
( string-append "(x:" ( number- > string ( car xy ))
" y:" ( number- > string ( cadr xy ))
")" )))
( string-append "p=" ( position- > string ( pos p))
" m=" ( number- > string ( massa p))
" v=" ( number- > string ( vel p))
" a=" ( number- > string ( acel p )))))
Agora podemos criar e manipular objetos do tipo particula:
( faz-particula ’(2 3)
3.0
4.0
1.5)
(particula (2 3) 3.0 4.0 1.5)
( let (( part ( faz-particula ’(2 3)
3.0
4.0
1.5)))
( display ( particula- > string part ))
( newline )
( set-pos ! part ’(4 5))
( display ( particula- > string part ))
( newline ))
p=(x:2 y:3) m=3.0 v=4.0 a=1.5
Versão Preliminar
p=(x:4 y:5) m=3.0 v=4.0 a=1.5
O esquema de representação que desenvolvemos é insatisfatório:
186
[ 27 de outubro de 2010 at 15:47 ]