🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

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

大家来看看这个Scheme表达式

#10027
From: liuqi
Date: Tue, 09 Sep 2003 13:59
7 lines
1438 bytes
(define (a-plus-abs-b a b)
  ((if (> b 0) + -) a b))
��������SICP�����е�һ��scheme���ʽ��
������������ʵ���� a+|b|,����a�����ϡ�b�ľ��ֵ����.
�ܿ�ɣ���ֻ�Ǻܼ򵥵ġ�
���˶�scheme����Ȥ��
���ǿ�������ĸ�����ҳ��ſ�ʼѧscheme(����[ski:m])�ġ�
Technical Details
Message-ID: <pan.2003.09.09.13.59.15.218292@163.com>
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-06!sn-xit-08!supernews.com!priapus.visi.com!news-out.visi.com!petbe.visi.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,804322f30b960c29,start
X-Google-Attributes: gid10b277,public
X-Google-ArrivalTime: 2003-09-09 06:54:28 PST
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-06!sn-xit-08!supernews.com!priapus.visi.com!news-out.visi.com!petbe.visi.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: Tue, 09 Sep 2003 21:59:30 +0800
Organization: nwpu
Lines: 7
Message-ID: <pan.2003.09.09.13.59.15.218292@163.com>
NNTP-Posting-Host: 219.145.91.5
Mime-Version: 1.0
Content-Type: text/plain; charset=gb2312
Content-Transfer-Encoding: 8bit
X-Trace: mail.cn99.com 1063115644 50638 219.145.91.5 (9 Sep 2003 13:54:04 GMT)
X-Complaints-To: usenet@news.cn99.com
NNTP-Posting-Date: Tue, 9 Sep 2003 13:54:04 +0000 (UTC)
User-Agent: Pan/0.13.3 (That cat's something I can't explain)