Flatten a list: Difference between revisions
Flatten a list en Qbasic
mNo edit summary |
(Flatten a list en Qbasic) |
||
Line 3,269:
We repeatedly apply <tt>raze</tt> until the return value converges to a fixed value.
<lang q>(raze/) ((1); 2; ((3;4); 5); ((())); (((6))); 7; 8; ())</lang>
=={{header|QBasic}}==
{{works with|QBasic|1.1}}
{{works with|QuickBasic|4.5}}
<lang QBasic>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>
=={{header|Quackery}}==
| |||