I'd like to remove the first element from each vector and adding it to the beginning of each subsequent element within the vector so that:
{{1}, {2, 5}, {5, 10}, {10, 23}}, {{2}, {3, 35}, {4, 15}, {9, 21}}
Becomes:
{{1, 2, 5}, {1, 5, 10}, {1, 10, 23}, {2, 3, 35}, {2, 4, 15}, {2, 9, 21}}
I'd like to use >select< with the condition that the length is greater than 1 to get rid of the first elements after I have flattened the vector lists to the first level. However, how would I alter the vectors using the join command?
rogerRoger = {{{1}, {2, 5}, {5, 10}, {10, 23}}, {{2}, {3, 35}, {4,
15}, {9, 21}}};
Select[Flatten[Join[], 1], Length@# > 1 &]