fork download 
  1. function ic = f(A)
  2. 	[~, ia] = sort(A);
  3. 	ic = zeros(1, numel(A));
  4. 	ic(ia) = 0:numel(A) - 1;
  5. end
  6. g = @(A) [A;f(A)];
  7. g([1 100 10 10000 1000])
  8. g([3 1 4 1 5 9 2])
  9. g([0 1 0 1 0 1 0 1])
Success #stdin #stdout 0.07s 46108KB
comments (?)
stdin 
Standard input is empty
stdout 
ans =

       1     100      10   10000    1000
       0       2       1       4       3

ans =

   3   1   4   1   5   9   2
   3   0   4   1   5   6   2

ans =

   0   1   0   1   0   1   0   1
   0   4   1   5   2   6   3   7
https://ideone.com/dTRKBs
language:
Octave (octave 4.4.1)
created:
55 days ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!