Flatten a list: Difference between revisions
Flatten a list in XBasic
(Flatten a list en True BASIC) |
(Flatten a list in XBasic) |
||
Line 4,069:
</pre>
=={{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>
=={{header|Yabasic}}==
| |||