Updating list
For me, things do change, BUT:
I started with:
(setq lst1 '(1 1 2 3 4 4 5))
I pasted your code in, and lst1 ended up as:
(1.00001 1.00001 2 3 4.00001 4.00001 5)
because (subst) replaces all instances of the same value, not just the one in the position you ask for. You'll need to go about it differently, perhaps by breaking the list into two pieces each time, changing the value in one of them, and re-assembling.
But apart from that problem, if nothing is changing at all for you, are you sure you're starting with a list saved to exactly the same variable name? [I got confused at first between the number 1 and lower-case L.]
EDIT: So I was thinking about how to go about it, and came up with another question. I was going to do something that would use a PRE list and a POST list. It would compare two adjacent items in the list, add the first one into the PRE list and make the rest into the POST list, and if those two are equal, up the value of the first one in the POST list. Then do it again with the new POST list, etc. But might you ever have three or more items in a row of the same value? My approach would result in the second one being raised, but then that would no longer be equal to the third [or beyond], so the third would not get raised by twice the amount as I expect you would want. Is that a condition that should be accounted for?
@Kent1Cooper wrote:
.... (subst) replaces all instances of the same value, not just the one in the position you ask for. .... But might you ever have three or more items in a row of the same value? My approach would result in the second one being raised, but then that would no longer be equal to the third [or beyond], so the third would not get raised by twice the amount as I expect you would want. Is that a condition that should be accounted for?
FURTHER EDIT [ran out of time to do it in the previous Reply]: That turns out to be a good reason to use (subst), on the POST list. Try this:
(defun ListDifferentiate (lst / pre post)
(repeat (1- (length (setq post lst)))
(setq
pre (append pre (list (car post)))
post (cdr post)
); setq
(if (= (last pre) (car post))
(setq post (subst (+ (car post) 1e-5) (car post) post))
); if
); repeat
(setq lstdiff (append pre post))
); defun
It leaves the differentiated list in the lstdiff variable, for further use if needed.
Usage:
Command: (listdifferentiate '(1 1 2 2 2 3 4 5 5 6))
results in:
(1 1.00001 2 2.00001 2.00002 3 4 5 5.00001 6)
or with multiple same values at the end:
Command: (listdifferentiate '(1 1 2 2 2 3 4 5 5 6 6 6))
results in:
(1 1.00001 2 2.00001 2.00002 3 4 5 5.00001 6 6.00001 6.00002)
@Ranjit_Singh wrote:
.... I get an error saying
; error: bad argument type: (or stringp symbolp): nil
....
Can you help me with the above error? ....
[Not without seeing the rest of the code....]
If I'm interpreting correctly, you appear to be trying to open for writing the same file that you are already have open for reading [unless there is other code in between that you've omitted]. Try closing it first, and then opening it for writing [or appending], or perhaps just opening it for writing or appending in the initial (getfiled) part.
As a start, read Help about the (getfiled) function, and see whether any of the flags argument values will help you get what you want. I haven't dug deeply, but there are some promising-looking choices there.
