Topic: My head hurts.. problem with a list

[Brick_top]

Hi, I have a list of several values for example

(10.2757 12.1581 33.2103)

But this list can have a different number of items.

I want to create a new list which would be:

the first element of the original list , and then every next element should be the sum of itself plus the sum of every other item prior to it.

Thanks

[Stefan]

Try this

Code: [Select]

(defun newlist (l / sum)
  (setq sum 0)
  (mapcar (function (lambda (e) (setq sum (+ e sum)))) l)
  )


[Brick_top]

Oh... it was simpler than I though

I figured out a way to do it

Code: [Select]

(repeat (- (length dl2) 1)
    (setq dl3 (apply '+ dl2))
    (setq dl4 (append (list dl3) dl4))
    (setq dl2 (cdr dl2))
 )
where dl2 is the list, which I have to reverse first

I just have to add the first element when the loop is ended

thanks a lot for your solution aswell!

[Brick_top]

Try this

Code: [Select]

(defun newlist (l / sum)
  (setq sum 0)
  (mapcar (function (lambda (e) (setq sum (+ e sum)))) l)
  )


am I doing something wrong or is your function making a sum of all the elements in the list?

[ronjonp]

Here's one way to do it:

Code: [Select]

(setq lst '(10.2757 12.1581 33.2103 45.11 1.1 2.2 3.3))
(cons (car lst) (mapcar (function (lambda (l1 l2) (+ l1 l2))) lst (cdr lst)))

;;returns
;;(10.2757 22.4338 45.3684 78.3203 46.21 3.3 5.5)

[Brick_top]

Having watched your expertize in other threads I guess I must have not explained myself very well, I'll try again.

example of original list (10 20 30 40 50)

the list I wanted was:
element nº 1 = 10
element nº 2 = (20 + 10)
element nº 3 = (30 + 20 + 10)
element nº 4 = (40 + 30 + 20 + 10)
element nº 5 = (50 + 40 + 30 + 20 + 10)

But anyway my way of doing it is working as I want, thanks a lot for chiming in!

Here's one way to do it:

Code: [Select]

(setq lst '(10.2757 12.1581 33.2103 45.11 1.1 2.2 3.3))
(cons (car lst) (mapcar (function (lambda (l1 l2) (+ l1 l2))) lst (cdr lst)))

;;returns
;;(10.2757 22.4338 45.3684 78.3203 46.21 3.3 5.5)

[ronjonp]

Having watched your expertize in other threads I guess I must have not explained myself very well, I'll try again.

example of original list (10 20 30 40 50)

the list I wanted was:
element nš 1 = 10
element nš 2 = (20 + 10)
element nš 3 = (30 + 20 + 10)
element nš 4 = (40 + 30 + 20 + 10)
element nš 5 = (50 + 40 + 30 + 20 + 10)

But anyway my way of doing it is working as I want, thanks a lot for chiming in!

Here's one way to do it:

Code: [Select]

(setq lst '(10.2757 12.1581 33.2103 45.11 1.1 2.2 3.3))
(cons (car lst) (mapcar (function (lambda (l1 l2) (+ l1 l2))) lst (cdr lst)))

;;returns
;;(10.2757 22.4338 45.3684 78.3203 46.21 3.3 5.5)

After reading closer "sum of every other item prior to it" I was way off  Sorry ... looks like Vovka is looking at thread ... I'm sure he'll have a one liner for you 

[Brick_top]

At least its good to know that my english is not that bad after all 

[T.Willey]

phanaem answered your question in post 2.  Just pass you list to the ' NewList ' function.

Command: (NEWLIST '(10 20 30 40 50))
(10 30 60 100 150)

[Brick_top]

phanaem answered your question in post 2.  Just pass you list to the ' NewList ' function.

Command: (NEWLIST '(10 20 30 40 50))
(10 30 60 100 150)

Must have done something wrong while trying the function then

Thanks a lot

[ronjonp]

Not pretty but ... Here's my other post modified to do what you want ...

A While version:

Code: [Select]

(defun whee (lst / n out x)
  (setq n 0.)
  (while (setq x (car lst))
    (setq out (cons (setq n (+ x n)) out)
 lst (cdr lst)
    )
  )
  (reverse out)
)
(whee '(10.2757 12.1581 33.2103 45.11 1.1 2.2 3.3))
*Edit .. had CDR in wrong place  .. man I need more coffee  

[VovKa]

and Vovka is still looking....

[Brick_top]

Here's my other post modified to do what you want ...

Code: [Select]

(setq tmp 0.
      lst '(10.2757 12.1581 33.2103 45.11 1.1 2.2 3.3)
)
(cons (car lst) (mapcar (function (lambda (l1 l2) (+ (setq tmp (+ l1 tmp)) l2))) lst (cdr lst)))

;;returns
;;(10.2757 22.4338 55.6441 100.754 101.854 104.054 107.354)


thanks a lot, its good to learn how others think.

Unfortunately my solution is not that elegant

[ronjonp]

Here's my other post modified to do what you want ...

Code: [Select]

(setq tmp 0.
      lst '(10.2757 12.1581 33.2103 45.11 1.1 2.2 3.3)
)
(cons (car lst) (mapcar (function (lambda (l1 l2) (+ (setq tmp (+ l1 tmp)) l2))) lst (cdr lst)))

;;returns
;;(10.2757 22.4338 55.6441 100.754 101.854 104.054 107.354)


thanks a lot, its good to learn how others think.

Unfortunately my solution is not that elegant

I modified the code above ... should be a bit faster 

[ronjonp]

and Vovka is still looking....