-
Path: news-archive.icm.edu.pl!agh.edu.pl!news.agh.edu.pl!news.onet.pl!.POSTED!not-for
-mail
From: Piotr Chamera <p...@p...onet.pl>
Newsgroups: pl.comp.programming
Subject: Re: lambda i clojures
Date: Sun, 16 Oct 2011 13:19:24 +0200
Organization: http://onet.pl
Lines: 55
Message-ID: <j7eek0$man$1@news.onet.pl>
References: <j7bnrd$4le$1@inews.gazeta.pl>
<a...@q...googlegroups.com>
<j7cpnj$8b3$1@inews.gazeta.pl> <j7d4br$7d6$1@news.onet.pl>
<j7dpt1$f7u$1@inews.gazeta.pl> <j7e37f$fqr$1@news.onet.pl>
<j7e6gc$fm2$1@inews.gazeta.pl> <j7eag6$9io$1@news.onet.pl>
NNTP-Posting-Host: public37280.xdsl.centertel.pl
Mime-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-2; format=flowed
Content-Transfer-Encoding: 8bit
X-Trace: news.onet.pl 1318763968 22871 79.163.145.160 (16 Oct 2011 11:19:28 GMT)
X-Complaints-To: n...@o...pl
NNTP-Posting-Date: Sun, 16 Oct 2011 11:19:28 +0000 (UTC)
User-Agent: Mozilla/5.0 (Windows NT 5.1; rv:6.0.2) Gecko/20110902 Thunderbird/6.0.2
In-Reply-To: <j7eag6$9io$1@news.onet.pl>
Xref: news-archive.icm.edu.pl pl.comp.programming:192881
[ ukryj nagłówki ]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.
Następne wpisy z tego wątku
- 16.10.11 12:24
- 16.10.11 12:52 Piotr Chamera
- 16.10.11 13:15
- 16.10.11 13:37 Edek
- 16.10.11 13:46 Piotr Chamera
- 16.10.11 14:17 Stachu 'Dozzie' K.
- 16.10.11 14:27
- 16.10.11 14:49 Piotr Chamera
- 16.10.11 15:26 bartekltg
- 16.10.11 16:22 Piotr Chamera
- 16.10.11 16:43 Bronek Kozicki
- 16.10.11 16:44 Bronek Kozicki
- 16.10.11 17:11
- 16.10.11 17:56 Piotr Chamera
- 16.10.11 20:19 Bronek Kozicki
Najnowsze wątki z tej grupy
- "Wuj dobra rada" z KDAB rozważa: Choosing the Right Programming Language for Your Embedded Linux Device
- Nowa ustawa o ochronie praw autorskich - opis problemu i szkic ustawy
- Alg. kompresji LZW
- Popr. 14. Nauka i Praca Programisty C++ w III Rzeczy (pospolitej)
- Arch. Prog. Nieuprzywilejowanych w pełnej wer. na nowej s. WWW energokod.pl
- 7. Raport Totaliztyczny: Sprawa Qt Group wer. 424
- TCL - problem z escape ostatniego \ w nawiasach {}
- Nauka i Praca Programisty C++ w III Rzeczy (pospolitej)
- testy-wyd-sort - Podsumowanie
- Tworzenie Programów Nieuprzywilejowanych Opartych Na Wtyczkach
- Do czego nadaje się QDockWidget z bibl. Qt?
- Bibl. Qt jest sztucznie ograniczona - jest nieprzydatna do celów komercyjnych
- Co sciaga kretynow
- AEiC 2024 - Ada-Europe conference - Deadlines Approaching
- Jakie są dobre zasady programowania programów opartych na wtyczkach?
Najnowsze wątki
- 2025-04-05 Dziwny wymiar wyroku
- 2025-04-05 Prunt z dachu
- 2025-04-05 Taśma LED
- 2025-04-05 Kraków => MS Dynamics 365BC/NAV Developer <=
- 2025-04-05 Warszawa => Strategic Account Manager <=
- 2025-04-05 co w Anglii dziś w Polsce za 30 lat
- 2025-04-05 Wrocław => SOC Tech Lead <=
- 2025-04-05 Gdynia => Przedstawiciel handlowy / KAM (branża TSL) <=
- 2025-04-05 Wyrok dożywocia dla Polki
- 2025-04-04 Prezydium Sejmu Tuskiego orzekło: Poseł KO mecenas Roman Giertych NIE jest mordercą (w żadnym sensie tego słowa?)
- 2025-04-04 Reset komóry
- 2025-04-04 Lublin => JavaScript / Node / Fullstack Developer <=
- 2025-04-04 Zielonka => Key Account Manager IT <=
- 2025-04-04 Warszawa => Ekspert IT (obszar systemów sieciowych) <=
- 2025-04-04 Warszawa => Mid/Senior IT Recruiter <=