Flatten a list: Difference between revisions
Flatten a list en Yabasic
(Flatten a list en BASIC256) |
(Flatten a list en Yabasic) |
||
Line 3,957:
[1, 2, 3, 4, 5, 6, 7, 8]
</pre>
=={{header|Yabasic}}==
{{trans|FreeBASIC}}
<lang Yabasic>sString$ = "[[1], 2, [[3,4], 5], [[[]]], [[[6]]], 7, 8 []]"
For siCount = 1 To Len(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|zkl}}==
| |||