Flatten a list: Difference between revisions
Content added Content deleted
(Flatten a list en FreeBASIC) |
(Flatten a list en BASIC256) |
||
Line 488: | Line 488: | ||
1,2,3,4,5,6,7,8 |
1,2,3,4,5,6,7,8 |
||
</pre> |
</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}}== |
=={{header|Bracmat}}== |