Re: How could I modify list element?

Re: How could I modify list element?

[Andreas Politz]

richardeng wrote:
> Hi all,
>     setcar/setcdr is not convenient.
>     In a long list, ex.
>     (setq a '(a b c d e f g))
>     I want to change 'e to 'E.
>     I need a function: (set-list-elt list old-elt new-elt)
> 
>     How? translate list to vector, modify, then turn it back???
> 
>  

Why don't you ...

(let ((list  '(a b c d e)))
   (or
    (and (require 'cl nil t)
	(substitute 'E 'e list))
    (mapcar #'(lambda (elt)
	       (if (eq elt 'e) 'E elt))
	   list)))

-ap

Re: How could I modify list element?

[Niels Giesen]

richardeng <richardeng@foxmail.com> writes:

> Hi all,
>     setcar/setcdr is not convenient.
>     In a long list, ex.
>     (setq a '(a b c d e f g))
>     I want to change 'e to 'E.
>     I need a function: (set-list-elt list old-elt new-elt)
>
>     How? translate list to vector, modify, then turn it back???
Numerous ways, first the destructive ones:

(setcar (member 'e a) 'E)

(setcar (nthcdr 4 a) 'E)

If (require 'cl) is no problem for you, nth is setfable

(setf (nth 4 a) 'E)

A DIY recursive function can do it too:
(defun set-nth (n list new)
  (cond 
   ((or (< n 0) (>= n (length list)))
    (error "out of bounds"))
   ((= n 0)
    (setcar list new))
   (t (cons (car list) (set-nth (1- n) (cdr list) new)))))

... Or a purely functional approach, to leave the original list intact:
(defun replace-nth (n list new)
  (cond 
   ((or (< n 0) (>= n (length list)))
    (error "out of bounds"))
   ((= n 0)
    (cons new (cdr list)))
   (t (cons (car list) (replace-nth (1- n) (cdr list) new)))))

How could I modify list element?

[richardeng]

Hi all,
     setcar/setcdr is not convenient.
     In a long list, ex.
     (setq a '(a b c d e f g))
     I want to change 'e to 'E.
     I need a function: (set-list-elt list old-elt new-elt)

     How? translate list to vector, modify, then turn it back???

Re: How could I modify list element?

[Alan Mackenzie]

On Tue, 9 Dec 2008, richardeng wrote:

> Hi all,
>    setcar/setcdr is not convenient.
>    In a long list, ex.
>    (setq a '(a b c d e f g))
>    I want to change 'e to 'E.
>    I need a function: (set-list-elt list old-elt new-elt)
>
>    How? translate list to vector, modify, then turn it back???

Try this (not tested):

(defun change-nth (liszt, n, nieuw)
   (while (> n 0)
     (setq liszt (cdr liszt)
           n (1- n)))
   (if liszt
      (setcar liszt nieuw)))

-- 
Alan Mackenzie (Nuremberg, Germany).

Re: How could I modify list element?

[richardeng]

Alan Mackenzie wrote:
> 
> 
> On Tue, 9 Dec 2008, richardeng wrote:
> 
>> Hi all,
>>    setcar/setcdr is not convenient.
>>    In a long list, ex.
>>    (setq a '(a b c d e f g))
>>    I want to change 'e to 'E.
>>    I need a function: (set-list-elt list old-elt new-elt)
>>
>>    How? translate list to vector, modify, then turn it back???
> 
> Try this (not tested):
> 
> (defun change-nth (liszt, n, nieuw)
>   (while (> n 0)
>     (setq liszt (cdr liszt)
>           n (1- n)))
>   (if liszt
>      (setcar liszt nieuw)))
> 
(setq aaa '(1 2 3 4 5 b a "ccc"))
(change-nth aaa 3 'BB)
aaa  --> (1 2 3 BB 5 b a "ccc")    , it works, thank you!

Re: How could I modify list element?

[Andreas Politz]

richardeng wrote:
> Alan Mackenzie wrote:
>>
>>
>> On Tue, 9 Dec 2008, richardeng wrote:
>>
>>> Hi all,
>>>    setcar/setcdr is not convenient.
>>>    In a long list, ex.
>>>    (setq a '(a b c d e f g))
>>>    I want to change 'e to 'E.
>>>    I need a function: (set-list-elt list old-elt new-elt)
>>>
>>>    How? translate list to vector, modify, then turn it back???
>>
>> Try this (not tested):
>>
>> (defun change-nth (liszt, n, nieuw)
>>   (while (> n 0)
>>     (setq liszt (cdr liszt)
>>           n (1- n)))
>>   (if liszt
>>      (setcar liszt nieuw)))
>>
> (setq aaa '(1 2 3 4 5 b a "ccc"))
> (change-nth aaa 3 'BB)
> aaa  --> (1 2 3 BB 5 b a "ccc")    , it works, thank you!
> 
> 
> 

I guess I misunderstood. You can do it with nthcdr,
which is a built-in function.

(let ((l '(0 1 2 3 4 5 6)))
   (setcar (nthcdr 3 l) -3)
   l)

-ap

Re: How could I modify list element?

[Thierry Volpiatto]

richardeng <richardeng@foxmail.com> writes:

> Hi all,
>     setcar/setcdr is not convenient.
>     In a long list, ex.
>     (setq a '(a b c d e f g))
>     I want to change 'e to 'E.
>     I need a function: (set-list-elt list old-elt new-elt)
>
>     How? translate list to vector, modify, then turn it back???

Hi, you can try that:

,----
| (defun tv-index-elt-list (elm lis)
|   "return index of `elm' in `lis'
| `elm' is an element of the list `lis'"
|   (let ((n 0)
|         (index 0))
|     (if (member elm lis)
|         (progn
|           (dolist (x lis)
|             (when (equal x elm)
|               (setq index n))
|             (setq n (+ n 1)))
|           index)
|       (error "No element %s in %s" elm lis)))) ; TODO corriger pour CL
| 
| 
| (defun tv-add-to-list-at-ind (elm lis where)
|   "Add `elm' in `lis' at index `where'"
|   (let ((cons-list (cons elm lis))
|         (appended-list nil))
|     (setq appended-list
|           (tv-move-element-in-list elm cons-list (+ 1 where)))
|     appended-list))
`----

,----
| (setq A '(a b c d e f))
| (a b c d e f)
| 
| (setq ind (tv-index-elt-list 'e A))
| 4
| 
| (setq A (remove 'e A))
| (a b c d f)
| 
| (setq A (tv-add-to-list-at-ind 'E A 4))
| (a b c d E f)
`----


-- 
A + Thierry Volpiatto
Location: Saint-Cyr-Sur-Mer - France

Re: How could I modify list element?

[Thierry Volpiatto]

richardeng <richardeng@foxmail.com> writes:

> Hi all,
>     setcar/setcdr is not convenient.
>     In a long list, ex.
>     (setq a '(a b c d e f g))
>     I want to change 'e to 'E.
>     I need a function: (set-list-elt list old-elt new-elt)
>
>     How? translate list to vector, modify, then turn it back???

Sorry one func was missing in precedent post:

,----
| (defun tv-move-element-in-list (name-elm lis where)
|   "move element `name-elm' of list `lis' to index `where'
| in list `lis'.
| `name-elm' have the form of element in list.
| `lis' is a LIST
| `where' is an INTEGER"
|   (let* ((index-elm (tv-index-elt-list name-elm lis))
|          (start-part-list (subseq lis 0 where))
|          (mod-list (append (remove name-elm start-part-list)
|                            (cons name-elm
|                                  (remove name-elm (subseq lis where))))))
|     mod-list))
`----

-- 
A + Thierry Volpiatto
Location: Saint-Cyr-Sur-Mer - France