Flatten a list: Difference between revisions
Flatten a list en True BASIC
(Flatten a list en Qbasic) |
(Flatten a list en True BASIC) |
||
Line 3,909:
=={{header|TI-89 BASIC}}==
There is no nesting of lists or other data structures in TI-89 BASIC, short of using variable names as pointers.
Line 3,916 ⟶ 3,915:
{{omit from|UNIX Shell}}
=={{header|True BASIC}}==
<lang qbasic>LET sstring$ = "[[1], 2, [[3,4], 5], [[[]]], [[[6]]], 7, 8 []]"
FOR sicount = 1 TO LEN(sstring$)
IF pos("[] ,",(sstring$)[sicount:sicount+1-1]) = 0 THEN
LET sflatter$ = sflatter$ & scomma$ & (sstring$)[sicount:sicount+1-1]
LET scomma$ = ", "
END IF
NEXT sicount
PRINT "["; sflatter$; "]"
END</lang>
=={{header|TXR}}==
An important builtin.
<lang txr>@(bind foo ((1) 2 ((3 4) 5) ((())) (((6))) 7 8 ()))
| |||