Flatten a list: Difference between revisions

=={{header|XBasic}}==

{{works with|Windows XBasic}}

<lang xbasic>PROGRAM "Flatten a list"

DECLARE FUNCTION Entry ()

FUNCTION Entry ()

n$ = "[[1], 2, [[3,4], 5], [[[]]], [[[6]]], 7, 8 []]"

FOR i = 1 TO LEN(n$)

IF INSTR("[] ,",MID$(n$,i,1)) = 0 THEN

flatten$ = flatten$ + c$ + MID$(n$,i,1)

c$ = ", "

END IF

NEXT i

PRINT "[";flatten$;"]"

END FUNCTION

END PROGRAM</lang>

{{out}}

<pre>[1, 2, 3, 4, 5, 6, 7, 8]</pre>