W dniu 2011-10-16 14:24, f...@g...SKASUJ-TO.pl pisze:
> 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

Nie znam na tyle C, żeby powiedzieć jaka jest różnica - mogę
prosić o przykład realizacji tego w C?