Function Nth-Elt-Of-Cross-Product

Part of:

package metabang.utilities
( nth-elt-of-cross-product < n > &rest < sets > )
Suppose we created a multidimensional array, with as many dimensions as we have sets, and in which the size of each dimension were equal to the size of the corresponding set. That array would have exactly as many elements as the cross product of all these sets, and we could easily put the elements of the cross product into the array by stepping the index for each dimension through each of the sets. But this array notion also gives a unique index to every element of the cross product. This function works as if we created such an array and then did an `array-row-major-aref' into it.