From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/55036 Path: main.gmane.org!not-for-mail From: Katsumi Yamaoka Newsgroups: gmane.emacs.gnus.general Subject: Re: Using CL in Gnus Date: Tue, 02 Dec 2003 07:54:54 +0900 Organization: Emacsen advocacy group Sender: ding-owner@lists.math.uh.edu Message-ID: References: <87oev1uyzw.fsf@zip.com.au> <87k75oktn7.fsf@zip.com.au> <4n8ylwfd1n.fsf@lockgroove.bwh.harvard.edu> NNTP-Posting-Host: deer.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: sea.gmane.org 1070319324 23612 80.91.224.253 (1 Dec 2003 22:55:24 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Mon, 1 Dec 2003 22:55:24 +0000 (UTC) Original-X-From: ding-owner+M3576@lists.math.uh.edu Mon Dec 01 23:55:21 2003 Return-path: Original-Received: from malifon.math.uh.edu ([129.7.128.13]) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 1AQwwr-0006P6-00 for ; Mon, 01 Dec 2003 23:55:21 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu) by malifon.math.uh.edu with smtp (Exim 3.20 #1) id 1AQwwd-0007eZ-00; Mon, 01 Dec 2003 16:55:07 -0600 Original-Received: from justine.libertine.org ([66.139.78.221] ident=postfix) by malifon.math.uh.edu with esmtp (Exim 3.20 #1) id 1AQwwV-0007eT-00 for ding@lists.math.uh.edu; Mon, 01 Dec 2003 16:54:59 -0600 Original-Received: from washington.hostforweb.net (washington.hostforweb.net [69.61.11.2]) by justine.libertine.org (Postfix) with ESMTP id 48B433A0025 for ; Mon, 1 Dec 2003 16:54:59 -0600 (CST) Original-Received: from yamaoka by washington.hostforweb.net with local (Exim 4.24) id 1AQwwY-000316-Cs for ding@gnus.org; Mon, 01 Dec 2003 17:55:02 -0500 Original-To: ding@gnus.org X-Face: #kKnN,xUnmKia.'[pp`;Omh}odZK)?7wQSl"4o04=EixTF+V[""w~iNbM9ZL+.b*_CxUmFk B#Fu[*?MZZH@IkN:!"\w%I_zt>[$nm7nQosZ<3eu;B:$Q_:p!',P.c0-_Cy[dz4oIpw0ESA^D*1Lw= L&i*6&( User-Agent: Gnus/5.1003 (Gnus v5.10.3) XEmacs/21.4 (Reasonable Discussion, linux) Cancel-Lock: sha1:Wp+GNSNI1wgX/FNYQk/YBf/G/xk= X-Payment: hashcash 1.2 0:031201:ding@gnus.org:0ef7fd1cc90359df X-Hashcash: 0:031201:ding@gnus.org:0ef7fd1cc90359df X-AntiAbuse: This header was added to track abuse, please include it with any abuse report X-AntiAbuse: Primary Hostname - washington.hostforweb.net X-AntiAbuse: Original Domain - gnus.org X-AntiAbuse: Originator/Caller UID/GID - [32041 32041] / [47 12] X-AntiAbuse: Sender Address Domain - washington.hostforweb.net Precedence: bulk Xref: main.gmane.org gmane.emacs.gnus.general:55036 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:55036 mapc is faster than mapcar, but dolist is a bit faster than mapc, though they may change with cases. What should be mentioned especially is that dolist can be used without a problem also in Emacs 20. :) (defvar numbers-list (let ((n 0) rest) (while (< n 65536) (setq rest (cons n rest) n (1+ n))) (nreverse rest))) (defvar numbers-sum 0) (progn (setq numbers-sum 0) (benchmark 10 (dolist (n numbers-list numbers-sum) (setq numbers-sum (+ numbers-sum n))))) => 0.1352449655532837 (progn (setq numbers-sum 0) (benchmark 10 (mapc (lambda (n) (setq numbers-sum (+ numbers-sum n))) numbers-list))) => 0.1569150686264038 (progn (setq numbers-sum 0) (benchmark 10 (mapcar (lambda (n) (setq numbers-sum (+ numbers-sum n))) numbers-list))) => 0.678508996963501 ;; http://quimby.gnus.org/elisp/benchmark.el -- Katsumi Yamaoka