Help .. How can I convert list

[hosneyalaa]

Hello everyone

If I have a list the following format

(("HDHDHDH" "HDHDHDH" "HDHDHDH" "HDHDHDH") (1.0 "" 3.0 "S") (1.0 2.0 "" "S"))

 

How can I convert it to the following format

 

("HDHDHDH" "HDHDHDH" "HDHDHDH" "HDHDHDH" 1.0 "" 3.0 "S"  1.0 2.0 "" "S")

 

I mean removing the arc's from the list

Thanks in advance

[Tharwat]

(apply 'append '(("HDHDHDH" "HDHDHDH" "HDHDHDH" "HDHDHDH") (1.0 "" 3.0 "S") (1.0 2.0 "" "S")))

 

[hosneyalaa]

 My friend  Tharwat

Thank you very much

Thanks for help

[Tharwat]

You're welcome anytime.  

[Grrr]

FWIW

(defun f ( L / x )
  (if L
    (append 
      (if (listp (setq x (car L))) 
        (f x) 
        (list x)
      )
      (f (cdr L))
    )
  )
)

 

[Lee Mac]

In general: Flatten List

[ronjonp]

5 hours ago, Grrr said:

FWIW

(defun f ( L / x )
  (if L
    (append 
      (if (listp (setq x (car L))) 
        (f x) 
        (list x)
      )
      (f (cdr L))
    )
  )
)

 

You've become quite the recursion master