(read
(strcat "("
(apply 'strcat
(mapcar (function (lambda (s)
(strcat (if (= (substr s 1 1) "<")
"("
""
)
(vl-prin1-to-string s)
(if (= (substr s (strlen s)) ">")
")"
""
)
)
)
)
flat-lst
)
)
")"
)
)
I was sure you would answer. . .
. . . and that, as always, you would have solved everything.
I've thought about your method.
read ,
vl-prin1-to-string . . .
but i thought i wanted to solve the problem differently.
And I
succeeded.
But only for lists that have
no more than two nesting levels.
And for what I have to do, for the problem I have to solve, both your solution and mine are fine.
But I would be curious if it is possible to do,
without using
read and
vl-prin1-to-stringbut more or less with my method, a function,
probably RECURSIVE,
which also works well with
all nesting levels.
But my brain is burned.
At least for today.
Thank you.
You are always kind.
And you are always very clever.
ciao.