LoginLogin

Array Resize

Root / Submissions / [.]

12Me21Created:
A function to resize any type of 1 dimensional array:
DEF RESIZE ARRAY,SIZE
 WHILE LEN(ARRAY)>SIZE && ""*POP(ARRAY):WEND
 COPY ARRAY,SIZE,ARRAY,0
END
Example usage: 
DIM A[10]
?LEN(A)

RESIZE A,3
?LEN(A)

RESIZE A,27
?LEN(A)
ResourcesCode Snippets
DFrost#1
EVEN BETTER: 
DEF RESIZE A, S
DIM NEW[S]
COPY A,NEW
A = NEW
OR SOMETHING SIMILIAR
chicken#2
Replying to:DFrost
EVEN BETTER: 
DEF RESIZE A, S
DIM NEW[S]
COPY A,NEW
A = NEW
OR SOMETHING SIMILIAR
can you downsize
12Me21#3
Replying to:DFrost
EVEN BETTER: 
DEF RESIZE A, S
DIM NEW[S]
COPY A,NEW
A = NEW
OR SOMETHING SIMILIAR
Yes, but the point is to do it without having to create a new array. For your solution to work, you'd need to do: 
DEF RESIZE(A,S)
 DIM NEW[S]
 COPY NEW,A,S
 RETURN A
END

DIM TEST[10]
TEST=RESIZE(TEST,3)
(Plus you'd need separate functions for int/float/string arrays) Which works fine (and is probably faster) in many situations, but, for example, in a function that modifies arrays in-place, it won't work.