unofficial mirror of help-gnu-emacs@gnu.org
 help / color / mirror / Atom feed
From: RG <rNOSPAMon@flownet.com>
To: help-gnu-emacs@gnu.org
Subject: Re: How to cast an imperative loop into a readable recursive function ?
Date: Thu, 02 Dec 2010 18:48:15 -0800	[thread overview]
Message-ID: <rNOSPAMon-C72AE3.18481502122010@hello.network> (raw)
In-Reply-To: ffc3587e-3cb3-41f6-9b2f-80a22d5095d1@e20g2000vbn.googlegroups.com

In article 
<ffc3587e-3cb3-41f6-9b2f-80a22d5095d1@e20g2000vbn.googlegroups.com>,
 Katalin Sinkov <lispstylist@gmail.com> wrote:

> How to cast an imperative loop into a readable recursive function ?

What is a readable function?

Ignoring that part, you can always rewrite something like:

(while condition ...)

as

(iterate loop ()
  (when condition ... (loop)))

where iterate is defined as:

(defmacro iterate (name args &rest body)
  `(labels ((,name ,(mapcar 'first args) ,@body))
     (,name ,@(mapcar 'second args))))

Is that what you meant?

rg


  parent reply	other threads:[~2010-12-03  2:48 UTC|newest]

Thread overview: 9+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2010-12-03  1:50 How to cast an imperative loop into a readable recursive function ? Katalin Sinkov
2010-12-03  2:17 ` Paul Rubin
     [not found]   ` <8a5ef1e1-aab3-47bd-80e3-081f8dc65b0e@c39g2000yqi.googlegroups.com>
     [not found]     ` <84a24d31-6379-4b81-ac65-b0d8642ab7da@37g2000prx.googlegroups.com>
2010-12-03  3:30       ` Paul Rubin
     [not found]         ` <0c1c00c1-61ef-42be-a2d3-db1ff31035e8@29g2000yqq.googlegroups.com>
2010-12-03  7:29           ` Paul Rubin
2010-12-03  9:44       ` Tim Bradshaw
2010-12-03  2:48 ` RG [this message]
2010-12-03  3:12   ` Katalin Sinkov
     [not found]     ` <7xk4jrmtmg.fsf@ruckus.brouhaha.com>
2010-12-03  3:22       ` Katalin Sinkov
     [not found]     ` <87ipzbpgft.fsf@kuiper.lan.informatimago.com>
2010-12-03  7:37       ` Katalin Sinkov

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

  List information: https://www.gnu.org/software/emacs/

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=rNOSPAMon-C72AE3.18481502122010@hello.network \
    --to=rnospamon@flownet.com \
    --cc=help-gnu-emacs@gnu.org \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).