🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: cn.comp.os.linux
Article #9900

Scheme 语言中的逗号 "," 和这个组合符号",@"有什么用?

#9900
From: liuqi
Date: Thu, 18 Sep 2003 10:38
16 lines
1941 bytes
����ѧϰ��ѧУ��ͼ�������һ�������˹����ܳ�����Ƶ��飬���й��ں������Ƶ�һ
�ھ�������ķ�ţ����ǰ����鷭��N�飬Ҳû�з����н������������������ݡ�
���ǰ�common lisp �е�dotimes ����scheme ���ú��ʾ������
(macro dotimes
	(lambda (x)
		(set! x (cdr x))
		(let ((var (caar x)) (proc (gensym "%0000')))
	   '(begin ((named-lambda (,proc ,var)
		  (when (<? ,var ,(cadar x))
			,@(cdr x)
			(,proc (1+ ,var))))
			0)
			,(caddar x)))))
�ⲻ����emacs �������ò��ÿ���
����88���������е����ݣ�macroר�����Ѿ����define-macro , named-lambdaҲ
û�ˣ� ��֪�����ʲô�ˣ�
Technical Details
Message-ID: <pan.2003.09.18.10.38.30.8499@163.com>
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-03!sn-xit-01!sn-xit-05!sn-xit-09!supernews.com!newsfeed.news2me.com!newsfeed.media.kyoto-u.ac.jp!newsgate.cuhk.edu.hk!news.cn99.com!not-for-mail

Show Full Headers
Complete Article Headers
X-Google-Language: Chinese,GB
X-Google-Thread: 10b277,9343c21d86ca43b3,start
X-Google-Attributes: gid10b277,public
X-Google-ArrivalTime: 2003-09-18 03:33:18 PST
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-03!sn-xit-01!sn-xit-05!sn-xit-09!supernews.com!newsfeed.news2me.com!newsfeed.media.kyoto-u.ac.jp!newsgate.cuhk.edu.hk!news.cn99.com!not-for-mail
From: "liuqi" <liuqionline@163.com>
Newsgroups: cn.comp.os.linux
Subject: Scheme 语言中的逗号 "," 和这个组合符号",@"有什么用?
Date: Thu, 18 Sep 2003 18:38:39 +0800
Organization: nwpu
Lines: 16
Message-ID: <pan.2003.09.18.10.38.30.8499@163.com>
NNTP-Posting-Host: 219.145.91.89
Mime-Version: 1.0
Content-Type: text/plain; charset=gb2312
Content-Transfer-Encoding: 8bit
X-Trace: mail.cn99.com 1063881161 97548 219.145.91.89 (18 Sep 2003 10:32:41 GMT)
X-Complaints-To: usenet@news.cn99.com
NNTP-Posting-Date: Thu, 18 Sep 2003 10:32:41 +0000 (UTC)
User-Agent: Pan/0.13.3 (That cat's something I can't explain)