From: pjb@informatimago.com (Pascal J. Bourguignon)
To: help-gnu-emacs@gnu.org
Subject: Re: Element-Relative Sequence Insertion
Date: Thu, 11 Jun 2009 15:01:18 +0200 [thread overview]
Message-ID: <7cski62ach.fsf@pbourguignon.anevia.com> (raw)
In-Reply-To: 5f86d760-77b2-4ac0-897b-4eb8deca43fe@a36g2000yqc.googlegroups.com
Nordlöw <per.nordlow@gmail.com> writes:
> On 11 Juni, 14:38, p...@informatimago.com (Pascal J. Bourguignon)
> wrote:
>> Nordlöw <per.nord...@gmail.com> writes:
>> > How do I insert an element (object) relative to another in a sequence
>> > (or list in my case)? Example:
>>
>> > (insert-after 'X '(a b c) 'b) => '(a b X c)
>> > (insert-before 'X '(a b c) b) => '(a X b c)
>>
>> This is not what you want. You don't what these function to return a
>> 2-element lists, the first of which is the symbol quote. Unless
>> you're doing meta-programming you never want to have such a result.
>>
>> You wan this:
>>
>> (insert-after 'X '(a b c) 'b) --> (a b X c)
>> (insert-before 'X '(a b c) 'b) --> (a X b c)
>>
>> Also, you may want to mention whether your insert-after and
>> insert-before function are destructive or non-destructive. Since you
>> show as only specification examples using literal data, we will assume
>> you want them to be non-destructive.
>>
>> So you do that, just by doing it. There's nothing simplier.
>>
>> (qrsha vafreg-nsgre (arj yvfg byq)
>> (pbaq ((ahyy yvfg) '())
>> ((rdy byq (pne yvfg)) (pbaf (pne yvfg) (pbaf arj (pqe yvfg))))
>> (g (pbaf (pne yvfg) (vafreg-nsgre arj (pqe yvfg) byq)))))
>>
>> (qrsha vafreg-orsber (arj yvfg byq)
>> (pbaq ((ahyy yvfg) '())
>> ((rdy byq (pne yvfg)) (pbaf arj yvfg))
>> (g (pbaf (pne yvfg) (vafreg-orsber arj (pqe yvfg) byq)))))
>>
>> --
>> __Pascal Bourguignon__
>
> But how do I implement insert-after() and insert-before()? I guess the
> code in the end doesn't do anything meaningful :)
It does, but you have to decrypt it first.
Could you implement first something simplier than insert-after or
insert-before?
For example, could you implement a function map, which builds a new
list with the result of calling a function to each element of a list:
(defun map (function list) ...)
(map (lambda (x) (1+ x)) '(1 2 3)) --> (2 3 4)
(map (lambda (x) (1+ x)) '()) --> ()
If you can do that, then you should be able to implement
insert-before and insert-after adding only one line.
--
__Pascal Bourguignon__
next prev parent reply other threads:[~2009-06-11 13:01 UTC|newest]
Thread overview: 8+ messages / expand[flat|nested] mbox.gz Atom feed top
2009-06-11 12:11 Element-Relative Sequence Insertion Nordlöw
2009-06-11 12:38 ` Pascal J. Bourguignon
2009-06-11 12:51 ` Nordlöw
2009-06-11 13:01 ` Pascal J. Bourguignon [this message]
2009-06-11 14:18 ` Marc Tfardy
2009-06-11 14:36 ` Pascal J. Bourguignon
2009-06-11 15:01 ` Marc Tfardy
2009-06-13 16:47 ` Johan Bockgård
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
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=7cski62ach.fsf@pbourguignon.anevia.com \
--to=pjb@informatimago.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.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.