Advertisement
Guest User

Untitled

a guest
Jun 16th, 2019
92
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.12 KB | None | 0 0
  1. tab;
  2. part = -1;
  3. Map[(part++; pos = Ordering[#, 1];
  4. Flatten[{#[[pos]], part*10 + pos}]) &, Partition[tab, 10]]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement