The example I gave was for the general case. The remaining question is how to determine the list of index values remaining over which to dice the data. Here is one approach using the setops() from PDL::Primitive to remove the $cols where it is still a general case of $cols being a piddle of index values and not just one value:
pdl> p $a = sequence(5,3); [ [ 0 1 2 3 4] [ 5 6 7 8 9] [10 11 12 13 14] ] pdl> $cols = pdl(3); pdl> p setops($cols, 'XOR', sequence($a->dim(0))) [0 1 2 4] pdl> p $cols 3 pdl> $cols = pdl(2,4); pdl> p setops($cols, 'XOR', sequence($a->dim(0))) [0 1 3] --Chris _______________________________________________ Perldl mailing list [email protected] http://mailman.jach.hawaii.edu/mailman/listinfo/perldl
