(50g) Numeric List Commands

[John Keith]

Here is another list convolution program. It takes two lists (which must be the same length) and returns a list of convolutions of increasing subsets of the input lists.

The program will run on the HP48G if UNROT is replaced with ROT ROT.

The 0 + in the program is necessary because \GSLIST will error with a list size of 1.

Code:


\<< DUP SIZE \-> n
  \<< 1. n
    FOR k OVER 1. k SUB OVER 1. k SUB REVLIST * 0 + \GSLIST UNROT
    NEXT DROP2 n  \->LIST
  \>>
\>>

An example from http://oeis.org/A000330:

Code:


Input:
{ 0 1 2 3 4 5 }
{ 1 3 5 7 9 11 }

Output:
{ 0 1 5 14 30 55 }