17 lines
328 B
Plaintext
17 lines
328 B
Plaintext
PROGRAM "Flatten a list"
|
|
|
|
DECLARE FUNCTION Entry ()
|
|
|
|
FUNCTION Entry ()
|
|
n$ = "[[1], 2, [[3,4], 5], [[[]]], [[[6]]], 7, 8 []]"
|
|
FOR i = 1 TO LEN(n$)
|
|
IF INSTR("[] ,",MID$(n$,i,1)) = 0 THEN
|
|
flatten$ = flatten$ + c$ + MID$(n$,i,1)
|
|
c$ = ", "
|
|
END IF
|
|
NEXT i
|
|
PRINT "[";flatten$;"]"
|
|
END FUNCTION
|
|
|
|
END PROGRAM
|