Suppose I have $j[1,a1,a2,a3,a4,a5]$, I want to extract this as $\{1,\{a1,a2,a3,a4,a5\}\}$.
--My first trial:
Using the command Split, I can make
Split[List @@ j[1, a1, a2, a3, a4, a5]] {{1}, {a1}, {a2}, {a3}, {a4}, {a5}}Which is not desired form.
-- Second trial
Let
aa= List @@ j[1, a1, a2, a3, a4, a5] bb= List @@ j[1, a1, a2, a3, a4, a5] // Delete[1] List[aa[[1]],bb]It seems to work but is there any more simplified version?