Topic: Apply String prefix to all strings in a list

[vincent.r]

Is it possible to apply a string prefix to the all strings in a list without using while function ?

want to apply string "x." to the list ("dwg" "dwgname" "dwgnumber" ...)

output will be ("x.dwg" "x.dwgname" "x.dwgnumber" ...)

[Lee Mac]

mapcar is the key here, e.g.:

Code - Auto/Visual Lisp: [Select]

1. _$ (mapcar '(lambda ( x ) (strcat "x." x)) '("dwg" "dwgname" "dwgnumber"))
2. ("x.dwg" "x.dwgname" "x.dwgnumber")

To understand what's happening here, you might be interested in my Mapcar & Lambda tutorial.

[vincent.r]

Thanks Lee, earlier I tried with your tutorial but I was mistaking somewhere or I was doing it in a wrong way.

One more trouble. I want to use strcat function for two lists.

e.g. list1 ("dwg" "dwgname" "dwgnumber" ...)
      list2 ("x." "y." "z." ...)

output will be ("x.dwg" "y.dwgname" "z.dwgnumber" ...)

[Lee Mac]

Code - Auto/Visual Lisp: [Select]

1. (mapcar 'strcat list2 list1)

 

[vincent.r]

Ohhh. Its very easy. I need work again on mapcar and lambda function to understand it.

Thanks Lee

[Grrr1337]

And I'm leaving one frustrating example that can be found in Lee's website:

Code - Auto/Visual Lisp: [Select]

1. (apply 'mapcar (cons 'strcat (list list1 list2)))

[MP]

Visualize what's happening inside out -- one statement at at a time.

[Grrr1337]

Visualize what's happening inside out -- one statement at at a time.

I just started playing/experimenting with this techique,
also remember Lee exampling how the function (in this example is strcat) applies to every nth item in every provided sublist.
I might post some ideas after the hurricane.

Yea I know there's no word 'exampling' but it sounds cool!

[MP]

For simplicity ...

(setq
    list1 '("a" "b")
    list2 '("1" "2")
)

(list list1 list2)
>> (("a" "b") ("1" "2"))

(cons 'strcat (("a" "b") ("1" "2")))
>> (strcat ("a" "b") ("1" "2"))

(apply 'mapcar (strcat ("a" "b") ("1" "2")))
>> (mapcar 'strcat ("a" "b") ("1" "2"))

When executed yields:
>> ("a1" "b2")

Forgive any typos -- bashed out on my iphone.