Flatten a list: Difference between revisions
Flatten a list en BASIC256
(Flatten a list en FreeBASIC) |
(Flatten a list en BASIC256) |
||
Line 488:
1,2,3,4,5,6,7,8
</pre>
=={{header|BASIC256}}==
{{trans|FreeBASIC}}
<lang BASIC256>sComma = "": sFlatter = ""
sString = "[[1], 2, [[3,4], 5], [[[]]], [[[6]]], 7, 8 []]"
For siCount = 1 To Length(sString)
If Instr("[] ,", Mid(sString, siCount, 1)) = 0 Then
sFlatter = sFlatter & sComma & Mid(sString, siCount, 1)
sComma = ", "
End If
Next siCount
Print "["; sFlatter; "]"
End</lang>
{{out}}
<pre>
Igual que la entrada de FreeBASIC.
</pre>
=={{header|Bracmat}}==
|