RE: Chopping the last element of a list

RE: Chopping the last element of a list

[Drew Adams]

[-- Attachment #1: Type: text/plain, Size: 1260 bytes --]

> If I want to do this then I can do, for example:
> 
> (prog1 (car (last mylist)) (setq mylist (nbutlast mylist)))
> 
> But here last and nbutlast walks the list twice unnecessarily.
> 
> Shouldn't emacs provide a function which does it in one step, so the
> list isn't walked twice?
> 
> E.g. (choplast mylist)
> 
> which returns a cons cell of (LAST . CHOPPEDLIST)
> 
> Of course, returning two values is not very lispy, but at least it
> could be more efficient.
> 
> Is there an existing function which does this in one step? If not,
> shouldn't there be one built-in emacs, for efficient manipulation of
> the list's end?

Here.  It returns the last element, and it
chops that last element off the list.

(You don't need to also return the updated
list, since you already have it as the arg.
But if you want to return it then return a
cons, as you did.)

(defun choplast (xs)
  (let ((m  (length xs)))
    (and (< 1 m)
         (let ((cons  (nthcdr (- m 2) xs)))
           (prog1 (cadr cons) (setcdr cons nil))))))

(setq foo  '(1 2 3 4 5 6 7 8 9))
(choplast foo) ; -> 9
 ; foo = (1 2 3 4 5 6 7 8)

(setq foo  '(1 2))
(choplast foo) ; -> 2
 ; foo = (1)

(setq foo  '(1))
(choplast foo) ; -> nil
 ; foo = (1)

[-- Attachment #2: winmail.dat --]
[-- Type: application/ms-tnef, Size: 13876 bytes --]

RE: Chopping the last element of a list

[emacsq]

>
> Here. It returns the last element, and it
> chops that last element off the list.

Thanks. It's quite simple and useful  to have along with last/butlast/etc.

Will you put it into subr.el, so emacs has it built-in ?

Re: Chopping the last element of a list

[tomas]

[-- Attachment #1: Type: text/plain, Size: 585 bytes --]

On Fri, Apr 29, 2022 at 04:26:51AM +0000, emacsq wrote:
> >
> > Here. It returns the last element, and it
> > chops that last element off the list.
> 
> Thanks. It's quite simple and useful  to have along with last/butlast/etc.
> 
> Will you put it into subr.el, so emacs has it built-in ?

Read Drew's code again. Read the examples he provided.

Now, answer this one question: for a list with exactly
one element, say

  (setq foo '(1))

what is its last element? What would you expect choplast
to do? What does Drew's implementation do? Surprise?

Cheers
-- 
t

[-- Attachment #2: signature.asc --]
[-- Type: application/pgp-signature, Size: 195 bytes --]

RE: [External] : Re: Chopping the last element of a list

[Drew Adams]

> > > Here. It returns the last element, and it
> > > chops that last element off the list.
> >
> > Thanks. It's quite simple and useful  to have along with
> > last/butlast/etc.
> >
> > Will you put it into subr.el, so emacs has it built-in ?
> 
> Read Drew's code again. Read the examples he provided.
> 
> Now, answer this one question: for a list with exactly
> one element, say
> 
>   (setq foo '(1))
> 
> what is its last element? What would you expect choplast
> to do? What does Drew's implementation do? Surprise?

Yes.  If you want to return 1 in that case then
be aware that there's no way to modify a cons
to turn it into nil.  (nil is a scalar - what
Lisp calls an "atom"; a cons is not.)

If you want behavior that returns 1 and sets some
variable whose value is (1) to nil, then you need
to pass a variable (that is, a symbol), not a list,
as the argument.

E.g., in that case you want behavior similar to
what `add-to-list' does: you pass it a _variable_
and it updates the variable's value.

I intentionally kept the same behavior as `butlast':
return nil and don't change anything for a list
with less than 2 elements.

Re: [External] : Re: Chopping the last element of a list

[tomas]

[-- Attachment #1: Type: text/plain, Size: 1145 bytes --]

On Fri, Apr 29, 2022 at 03:55:39PM +0000, Drew Adams wrote:
> > > > Here. It returns the last element, and it
> > > > chops that last element off the list.
> > >
> > > Thanks. It's quite simple and useful  to have along with
> > > last/butlast/etc.
> > >
> > > Will you put it into subr.el, so emacs has it built-in ?
> > 
> > Read Drew's code again. Read the examples he provided.
> > 
> > Now, answer this one question: for a list with exactly
> > one element, say
> > 
> >   (setq foo '(1))
> > 
> > what is its last element? What would you expect choplast
> > to do? What does Drew's implementation do? Surprise?
> 
> Yes.  If you want to return 1 in that case then
> be aware that there's no way to modify a cons
> to turn it into nil.  (nil is a scalar - what
> Lisp calls an "atom"; a cons is not.)

I know...

> I intentionally kept the same behavior as `butlast':
> return nil and don't change anything for a list
> with less than 2 elements.

...and I know you know :)

I wanted to help OP to understand why changing things "in
place" has this special feel about it in Lisp land :-)

Cheers
-- 
t

[-- Attachment #2: signature.asc --]
[-- Type: application/pgp-signature, Size: 195 bytes --]

RE: [External] : Re: Chopping the last element of a list

[Drew Adams]

> I wanted to help OP to understand why changing things "in
> place" has this special feel about it in Lisp land :-)

I know you did, and appreciate that. ;-)

Re: [External] : Re: Chopping the last element of a list

[tomas]

[-- Attachment #1: Type: text/plain, Size: 289 bytes --]

On Sat, Apr 30, 2022 at 02:47:26PM +0000, Drew Adams wrote:
> > I wanted to help OP to understand why changing things "in
> > place" has this special feel about it in Lisp land :-)
> 
> I know you did, and appreciate that. ;-)

So we all know we know ;-D

Cheers & thanks
-- 
t

[-- Attachment #2: signature.asc --]
[-- Type: application/pgp-signature, Size: 195 bytes --]

RE: [External] : RE: Chopping the last element of a list

[Drew Adams]

> > Here. It returns the last element, and it
> > chops that last element off the list.
> 
> Thanks. It's quite simple and useful  to have along with
> last/butlast/etc.
> 
> Will you put it into subr.el, so emacs has it built-in ?

I won't (I don't make changes to Emacs code).

But you can make any request you like, using
`M-x report-emacs-bug'.

I recommend you read Stefan's response to
your question, however.

Chopping the last element of a list

[emacsq via Users list for the GNU Emacs text editor]

If I want to do this then I can do, for example:

(prog1
(car (last mylist)) (setq mylist (nbutlast mylist)))

But here last and nbutlast walks the list twice unnecessarily.

Shouldn't emacs provide a function which does it in one step, so the list isn't walked twice?

E.g. (choplast mylist)

which returns a cons cell of (LAST . CHOPPEDLIST)

Of course, returning two values is not very lispy, but at least it could be more efficient.

Is there an existing function which does this in one step? If not, shouldn't there be one built-in emacs, for efficient manipulation of the list's end?

Re: Chopping the last element of a list

[Michael Heerdegen]

emacsq via Users list for the GNU Emacs text editor
<help-gnu-emacs@gnu.org> writes:

> If I want to do this then I can do, for example:
>
> (prog1
> (car (last mylist)) (setq mylist (nbutlast mylist)))
>
> But here last and nbutlast walks the list twice unnecessarily.

I would do that like

#+begin_src emacs-lisp
(let ((last2 (last my-list 2)))
  (prog1 (cons (cadr last2) my-list) (setcdr last2 nil)))
#+end_src

> Is there an existing function which does this in one step? If not,
> shouldn't there be one built-in emacs, for efficient manipulation of
> the list's end?

Dunno.  Does one need that so often?

I remember that I once implemented `rotate-left' and `rotate-right'
functions for lists, but I never used them.  Most of the time you need a
pointer to the last cdr more than once, and then it is more efficient to
remember that pointer in a variable.

What's your use case?

Michael.

RE: [External] : Re: Chopping the last element of a list

[Drew Adams]

> I would do that like
> 
> (let ((last2 (last my-list 2)))
>   (prog1 (cons (cadr last2) my-list) (setcdr last2 nil)))

Yes.  I was just showing essentially the code
that `last' uses (in the example I gave).