TheSwamp
Code Red => AutoLISP (Vanilla / Visual) => Topic started by: whdjr on June 08, 2005, 05:06:31 PM
-
Is there a lisp command that will turn this
;;;One single list
((1 2 3)(4 5 6))into this;;;Two seperate lists
(1 2 3)(4 5 6)or do you just have to use car and cadr?
-
Not sure what you may be trying to do with the discombobulation Will, but I can not think of an easier way than car, cadr.
What is the construct you are using this in ? .. It seems unusual to have 2 consecutive lists without a container .
-
I have a mapcar that returns two lists of strings. I have another piece of code that returns the common strings from the two lists. This code takes two arguments, the two lists. I could change the code to accept a list, but I didn't want to have to change it as I use it for other functions as well.
-
Sample data and desired output please.
:)
-
I would also like to see some example data; I have a few string and list functions that, maybe, could be of use.
-
You could create an intermediate routine to split like this
(defun split (fun arg)
(if (= (length arg) 2)
(fun (car arg) (cadr arg)) ; ** see note
(prompt "\n** Error in data - expected list of two items")
)
)
** This will not work but I forgot how to make a variable act as a function.
Use EVAL I think?? Never used it but I did see it somewhere.
The call would be
(split myroutine_name '((1 2 3)(4 5 6)) )
But how hard is it to use
(myroutine_name (car ((1 2 3)(4 5 6))) ((cadr ((1 2 3)(4 5 6)))) )
-
APPLY with the original list?
(apply 'another_function theList)
-
Thanks Stig, good to see ya.
I guess my idea would not work then as you must pass both items as two arguments to satisfy the subroutine "MyRoutine arg1 arg2".
-
I prompt the user for a
Source Directory --> d:\test
and a
Target Directory --> d:\test 2
Then it returns all the folders in those two paths which I then remove the source and target folders from the paths:
(("\\test a" "\\test a\\test a1" "\\test a\\test a2" "\\test a\\test a3" "\\test c" "\\test c\\test c1")
("\\test a" "\\test a\\test a1" "\\test a\\test a2" "\\test b" "\\test b\\test b1" "\\test b\\test b2")
)
Then I will pass this list to another function to return only similar paths:
(defun Return_Same_Items (lst1 lst2)
(vl-remove-if-not '(lambda (x) (member x lst2)) lst1)
)
This function however accepts two lists instead of one list. I would rather not change this function because I use in other programs.
My delimma is how to get this (("\\test a" "\\test a\\test a1" "\\test a\\test a2" "\\test a\\test a3" "\\test c" "\\test c\\test c1")
("\\test a" "\\test a\\test a1" "\\test a\\test a2" "\\test b" "\\test b\\test b1" "\\test b\\test b2")
)into this("\\test a" "\\test a\\test a1" "\\test a\\test a2" "\\test a\\test a3" "\\test c" "\\test c\\test c1")
("\\test a" "\\test a\\test a1" "\\test a\\test a2" "\\test b" "\\test b\\test b1" "\\test b\\test b2")Comprende? :)
-
I wish I would have tried your post before I wrote my post Stig. Thanks man that was the ticket. :lol:
Stig --> 8) and :loneranger:
-
I must be missing something because it seems no more ambitious than using car and cadr, ie --
(Return_Same_Items (car lst) (cadr lst))
Where lst equals --
( ("\\test a" "\\test a\\test a1" "\\test a\\test a2" "\\test a\\test a3" "\\test c" "\\test c\\test c1")
("\\test a" "\\test a\\test a1" "\\test a\\test a2" "\\test b" "\\test b\\test b1" "\\test b\\test b2")
)
?
-
That does work MP, its just that I use that routine for other progs as well and I didn't want to change for just this one. That was all.
-
Sorry, I'm pretty thick this morning, I still don't get it. What is it your changing or not changing? :oops:
-
Ok, I get it, you want to go this route --
(apply 'Return_Same_Items lst)
Rather than
(Return_Same_Items (car lst) (cadr lst))
Okidoki.
-
:D
-
Hold on.
That doesn't wash with me.
Confused as usual.
Using apply like this
(apply 'Return_Same_Items lst)
is equivalent to
(Return_Same_Items (car lst))
(Return_Same_Items (cadr lst))
Or I am I totally nuts. :)
I thought your subroutine expected two arguments?
-
Close.
(apply 'Return_Same_Items lst)
Is equivalent to --
(Return_Same_Items (car lst) (cadr lst))
Let's now consider which is better --
(/ number 2.0) versus (* number 0.5)
Discuss.
-
Isn't that kinda like 'a glass half full' and 'a glass half empty'.
:lol:
-
Ding ding ding!
(Though it's bereft any optimism context).
-
OK so I'm crazy, but i did figure it out with your help. :)
Just wanted to see if i could do it with an indirect function call.
(DEFUN XYZ (A1 A2)
(+ a1 a2)
)
(defun split (fun arg)
(if (= (length arg) 2)
(apply fun arg)
(prompt "\n** Error in data - expected list of two items")
)
)
(defun c:test ()
(split 'XYZ (list 3 5))
)