Topic: Bicursion ...

[uncoolperson]

I already knew it was broken... ("("(5 4 3 ) nil ")") is a real good time.

it was just humorous

[Kerry]

I already knew it was broken... ("("(5 4 3 ) nil ")") is a real good time.

it was just humorous

FLAME ON:
That type of post, particularly a supposed code solution, is not worth the bandwidth it takes to send it.
It's illogical and poorly reasoned. The rest of the world agrees with me.
FLAME OFF:

[uncoolperson]

FLAME ON:

now where'd i put that fire extiguisher....

[hunterxyz]

Asked wants can let the result with what method equate to this ?
(setq lst '("A" ("B1" "B2" "B3" "B4" "B5") "C" "D" "E"))
=> (("A")
    (nil "B1")
    (nil "B2")
    (nil "B3")
    (nil "B4")
    ("C")
    ("D")
    ("E")
    )

(setq lst '(10 (20.1 20.2 20.3 20.4 20.5) 30 40 50))
=> ((10)
    (nil 20.1)
    (nil 20.2)
    (nil 20.3)
    (nil 20.4)
    (30)
    (40)
    (50)
    )

(setq lst '(10 (20 21 (22.1 22.2 (22.30 22.31 22.32) 22.4) 23 24) 30 (40 41 42) 50))
=> ((10)
    (nil 20)
    (nil 21)
    (nil nil 22.1)
    (nil nil 22.2)
    (nil nil nil 22.3)
    (nil nil nil 22.31)
    (nil nil nil 22.32)
    (nil nil 22.4)
    (nil 23)
    (nil 24)
    (30)
    (nil 40)
    (nil 41)
    (nil 42)
    (50)
    )

[MP]

I'm not sure what you're asking, but if you use the final function I
penned from this discussion and use it to process the three samples
you provided --

Code: [Select]

(   (lambda ( / flatten )

        (defun flatten ( lst / f1 f2 )
            (defun f1 ( lst )
                (apply 'append
                    (mapcar 'f2 lst)
                )
            )
            (defun f2 ( x / a )
                (if x
                    (if (listp x)
                        (if (listp (setq a (car x)))
                            (append (f1 a) (f1 (cdr x)))
                            (cons a (f1 (cdr x)))
                        )
                        (list x)
                    )
                   '(nil)
                )
            )
            (f1 lst)
        )

        (mapcar 'print

            (mapcar 'flatten

               '(
               
                    ("A" ("B1" "B2" "B3" "B4" "B5") "C" "D" "E")
                   
                    (10 (20.1 20.2 20.3 20.4 20.5) 30 40 50)
                   
                    (10 (20 21 (22.1 22.2 (22.30 22.31 22.32) 22.4) 23 24) 30 (40 41 42) 50)
               
                )

            )

        )
       
        (princ)

    )

)
It outputs this --

Code: [Select]

("A" "B1" "B2" "B3" "B4" "B5" "C" "D" "E")
(10 20.1 20.2 20.3 20.4 20.5 30 40 50)
(10 20 21 22.1 22.2 22.3 22.31 22.32 22.4 23 24 30 40 41 42 50)
Which in my mind faithfully honors the original intent of the function.

Hope that helps / clarifies.

Cheers and welcome to the swamp.

[hunterxyz]

Thank you the suggestion

[MP]

You're very welcome.