Piotr Chamera <p...@p...onet.pl> napisał(a):

> W dniu 2011-10-16 12:09, Piotr Chamera pisze:
> > Można np. napisać to
> >
> > >> (let ((licznik 0))
> > >> (defun następny () (setf licznik (1+ licznik)))
> > >> (defun poprzedni () (setf licznik (1- licznik))))
> >
> > tak:
> >
> > (defvar *licz*
> > (let ((licznik 0))
> > (list
> > (lambda ()
> > (setf licznik (1+ licznik)))
> > (lambda ()
> > (setf licznik (1- licznik))))))
> >
> > taka konstrukcja zwraca listę funkcji (którym nie nadano nazw)
> >
> > CL-USER> *licz*
> > (#<COMPILED-LEXICAL-CLOSURE #xC9E7EC6> #<COMPILED-LEXICAL-CLOSURE
> > #xC9E7E9E>)
> >
> > i korzystać z licznika tak:
> >
> > CL-USER> (funcall (first *licz*))
> > 1
> > CL-USER> (funcall (first *licz*))
> > 2
> > CL-USER> (funcall (second *licz*))
> > 1
> > CL-USER> (funcall (second *licz*))
> > 0
>
> Dodam może jeszcze, że w tym przykładzie możemy zrobić
> coś takiego:
>
> CL-USER> (setf (symbol-function 'następny) (first *licz*))
> #<COMPILED-LEXICAL-CLOSURE #xC83E976>
>
> CL-USER> (setf (symbol-function 'poprzedni) (second *licz*))
> #<COMPILED-LEXICAL-CLOSURE #xC83E94E>
>
> CL-USER> (następny)
> 1
> CL-USER> (funcall (first *licz*))
> 2
> CL-USER> (następny)
> 3
> CL-USER> (funcall (first *licz*))
> 4
> ....
>
> Wywołujemy teraz tę samą funkcję, ale raz przez nazwę,
> a drugi raz uruchamiając obiekt przechowywany na liście.

nadal nie rozumiem tego cholerstwa, cos takirgo jak
z tym licznikiem mozna zrobic na statycznych zmiennych
wewnatrz funkcji, nie wiem jaka jest roznica miedzy tym
co moznazrobic na tych zm statycznych a tym czego nie mozna
zrobic i potrzebne sa te closures i wogole do czego
moze sie to przydac - te przyklady jakie widza w wiki sa jakos
totalnie dziwne





--
Wysłano z serwisu Usenet w portalu Gazeta.pl -> http://www.gazeta.pl/usenet/