Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- tab;
- part = -1;
- Map[(part++; pos = Ordering[#, 1];
- Flatten[{#[[pos]], part*10 + pos}]) &, Partition[tab, 10]]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement