I recently came up with a way of compressing any number of integers of any length into one number with a decimal point.

You must input numbers in the same length, use 0s to fill in any gaps. This could be used to store massive amounts of data in a list of just 99 elements long. I read that a variable can be 14 digits long so this method can allow you to store at the most 1386 integers in one list and 14 in one variable. I developed this so that I could store stock data for shops in various locations for my up and coming TI Basic game.

Here's an example:

If I want to compress the following numbers; 123, 69 and 2

I would input; 123, 069, 002

If you want to change the length of the numbers you input, just change any instance of 10^(4) to for instance 10^(6) for numbers that are 6 digits long.

Key:

A = compressed number

N = how many values you want to input

V = a new value to be processed

// = Denotes a comment in the code, shouldn't be included in your programs

-> = Denotes the STO command

0->A

Prompt N

For(B,1,N)

Prompt V

A/10^(4)->A

A+(V/10^(4))->A

If B=N:A+B->A

End

Disp A

// We are now decompressing A into L1

iPart(A)->N

A-N->A

N->dim(L1)

For(B,1,N)

A*10^(4)->A

iPart(A)->L1(B)

A-L1(B)->A

End

//Displaying the decompressed number in the form of a list

Disp seq(L1(Z),Z,1,dim(L1),1)

There we go! If you have any queries please reply here.