From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: LanX Newsgroups: gmane.emacs.help Subject: Re: How to improve the readability of (any) LISP or any highlevel functional language to the level of FORTH ? Date: Sat, 1 Jan 2011 20:04:27 -0800 (PST) Organization: http://groups.google.com Message-ID: <3bd9f0cb-a400-4332-adf2-27cddb1a2db6@l7g2000vbv.googlegroups.com> References: <80ceeca0-1d32-47d1-ba96-feb4d9729c3a@v17g2000yqv.googlegroups.com> <87pqsgk8v9.fsf@kuiper.lan.informatimago.com> <9e7a7683-a92a-4e88-a6f1-9e6a6bd2f057@z9g2000yqz.googlegroups.com> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=ISO-8859-1 Content-Transfer-Encoding: quoted-printable X-Trace: dough.gmane.org 1293943245 22567 80.91.229.12 (2 Jan 2011 04:40:45 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Sun, 2 Jan 2011 04:40:45 +0000 (UTC) To: help-gnu-emacs@gnu.org Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Sun Jan 02 05:40:41 2011 Return-path: Envelope-to: geh-help-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1PZFkH-0000V8-Bc for geh-help-gnu-emacs@m.gmane.org; Sun, 02 Jan 2011 05:40:41 +0100 Original-Received: from localhost ([127.0.0.1]:54528 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1PZFkG-0008HY-P8 for geh-help-gnu-emacs@m.gmane.org; Sat, 01 Jan 2011 23:40:40 -0500 Original-Path: usenet.stanford.edu!postnews.google.com!l7g2000vbv.googlegroups.com!not-for-mail Original-Newsgroups: comp.lang.functional, comp.lang.lisp, gnu.emacs.help, comp.lang.forth, comp.lang.prolog Original-Lines: 8 Original-NNTP-Posting-Host: 89.14.213.187 Original-X-Trace: posting.google.com 1293941067 10497 127.0.0.1 (2 Jan 2011 04:04:27 GMT) Original-X-Complaints-To: groups-abuse@google.com Original-NNTP-Posting-Date: Sun, 2 Jan 2011 04:04:27 +0000 (UTC) Complaints-To: groups-abuse@google.com Injection-Info: l7g2000vbv.googlegroups.com; posting-host=89.14.213.187; posting-account=W9fpQwoAAADZYmkl-8sXk1VPxG3rq-Pd User-Agent: G2/1.0 X-HTTP-UserAgent: Mozilla/5.0 (X11; U; Linux i686; de; rv:1.9.0.19) Gecko/2010040118 Ubuntu/8.10 (intrepid) Firefox/3.0.19,gzip(gfe) Original-Xref: usenet.stanford.edu comp.lang.functional:69065 comp.lang.lisp:297074 gnu.emacs.help:183833 comp.lang.forth:160246 comp.lang.prolog:43996 X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: Users list for the GNU Emacs text editor List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.help:78041 Archived-At: > in Perl: > =A0 DB<1> =A0my $l; print =A0grep { $l =3D $_ =A0if =A0$_ ne $l } (a,a,a,= a,b,c,c,a,a,d,e,e,e,e); > abcade The same more explicit and less buggy grep { if ($_ ne $l) { $l =3D $_ ; 1 } } LIST