Thử thách của bạn hôm nay là viết một chương trình hoặc chức năng lấy danh sách lvà đưa ra các vị trí trong lđó mỗi phần tử liên tiếp được lsắp xếp xuất hiện.

Nói cách khác, xuất chỉ mục của giá trị nhỏ nhất, theo sau là chỉ số của giá trị nhỏ thứ hai, v.v.

Bạn có thể giả sử rằng mảng đầu vào sẽ chỉ chứa các số nguyên dương và sẽ chứa ít nhất một phần tử.

Các trường hợp thử nghiệm:

Input                  | Output (1-indexed)
[7, 4, 5]              | [2, 3, 1]
[1, 2, 3]              | [1, 2, 3]
[2, 6, 1, 9, 1, 2, 3]  | [3, 5, 1, 6, 7, 2, 4]
[4]                    | [1]

Khi hai hoặc nhiều phần tử có cùng giá trị xuất hiện, các chỉ số của chúng sẽ xuất hiện cạnh nhau từ nhỏ nhất đến lớn nhất.

Đây là mã golf , ít byte thắng nhất!

Thạch , 1 byte

Ụ

Hãy thử trực tuyến!

APL Dyalog, 1 byte

⍋

Dyalog APL có chức năng vận hành tích hợp (cảm ơn Zacharý vì đã xóa cái này) để làm điều này.

Thí dụ

⍋11 2 4 15
    2 3 1 4  
{⍵[⍋⍵]}11 4 2 15
    2 4 11 15

Ở đây tôi đang lập chỉ mục vào danh sách theo các chỉ số được sắp xếp để trả về danh sách theo thứ tự tăng dần.

Haskell , 43 42 byte

1-xuất hiện:

import Data.List
map snd.sort.(`zip`[1..])

Hãy thử trực tuyến!

-1 byte nhờ @ janrjanJohansen!

Python 2 , 56 byte

Giải pháp này là 0 chỉ mục. Điều này lạm dụng thực tế sorted()tạo ra một bản sao của danh sách ban đầu.

l=input()
for k in sorted(l):a=l.index(k);print a;l[a]=0

Hãy thử trực tuyến!

Javascript (ES6), 39 byte

-2 byte nhờ @powelles

Điều này chỉ hoạt động trong các trình duyệt Array.prototype.sortổn định.

a=>[...a.keys()].sort((b,c)=>a[b]-a[c])

Phiên bản 1 chỉ mục (47 byte):

a=>a.map((_,i)=>i+1).sort((b,c)=>a[b-1]-a[c-1])

Đoạn mã ví dụ:

f=
a=>[...a.keys()].sort((b,c)=>a[b]-a[c])
console.log("7,4,5 => "+f([7,4,5]))
console.log("1,2,3 => "+f([1,2,3]))
console.log("2,6,1,9,1,2,3 => "+f([2,6,1,9,1,2,3]))
console.log("4 -> "+f([4]))

Python 2 , 48 byte

lambda x:sorted(range(len(x)),key=x.__getitem__)

Hãy thử trực tuyến!

Perl 6 ,  27  21 byte

*.pairs.sort(*.value)».key

Kiểm tra nó

->\x{sort {x[$_]},^x}

Kiểm tra nó

Lấy cảm hứng từ một câu trả lời Python

Mở rộng:

->    # pointy block lambda
  \x  # declare sigilless parameter
{
  sort
    { x[$_] },  # sort by the value in ｢x｣ at the given position
    ^x          # Range up-to the number of elements in ｢x｣
}

Bash + coreutils, 20

nl|sort -nk2|cut -f1

Hãy thử trực tuyến .

Swift 4 , 82 byte

func f(l:[Int]){var l=l;for k in l.sorted(){let a=l.index(of:k)!;print(a);l[a]=0}}

Phòng thử nghiệm.

Giải trình

Trong Swift, l.sorted()tạo một bản sao được sắp xếp của Mảng gốc. Chúng tôi lặp qua các phần tử được sắp xếp trong danh sách và sau khi in chỉ mục của từng mục trong Mảng ban đầu let a=l.index(of:k)!;print(a), và sau đó, để giữ các chỉ mục chính xác trong Mảng, chúng tôi gán l[a]cho 0, vì nó không ảnh hưởng đến đầu ra bình thường của chúng tôi.

Hãy lưu ý rằng đây là chỉ mục 0, vì nó là một cổng của giải pháp Python của tôi. Nếu bạn muốn nó được lập chỉ mục 1, thay thế print(a)bằng print(a+1)hoặc Dùng thử trực tuyến! .

R , 5 byte

Có một hàm dựng sẵn cho việc này.

order

Ruby , 40 byte

->a{a.zip([*1..a.size]).sort.map &:last}

Hãy thử trực tuyến!

MATL , 2 byte

&S

Hãy thử trực tuyến!

Đầu vào và đầu ra là ẩn.

J , 2 byte

/:

Hãy thử trực tuyến!

Lập chỉ mục dựa trên không.

Octave , 17 byte

@(i)[~,y]=sort(i)

Hãy thử trực tuyến!

Octave giống như MATLAB nhưng với sự phân công nội tuyến, khiến mọi thứ có thể khiến những người ở Mathworks HQ phải đau đầu. Không quan trọng bạn gọi là gì y, nhưng bạn không thể làm gì nếu không có biến giả đó, theo như tôi biết.

CỦA TÔI , 3 byte

MY cũng có một nội dung cho việc này!

⎕⍋↵

Hãy thử trực tuyến!

Làm sao?

Đánh giá đầu vào, xếp loại, sau đó đầu ra với một dòng mới.

Lập chỉ mục tuy nhiên bạn đặt chỉ mục, với ⌶/ 0x48. (Thậm chí có thể là một số nguyên kỳ lạ như -1hoặc 2, mặc định là 1).

Java 8, 128 + 19 = 147 byte

Dựa trên giải pháp của ông Xcoder . Dựa trên 0 Lambda lấy đầu vào là một Integer[]và trả về Integer[]. Số lượng byte bao gồm biểu thức lambda và nhập khẩu bắt buộc.

import java.util.*;

l->{Integer o[]=l.clone(),s[]=l.clone(),i=0;for(Arrays.sort(s);i<l.length;)l[o[i]=Arrays.asList(l).indexOf(s[i++])]=0;return o;}

Dùng thử trực tuyến

Lambda

l -> {
    Integer
        o[] = l.clone(),
        s[] = l.clone(),
        i = 0
    ;
    for (Arrays.sort(s); i < l.length; )
        l[o[i] = Arrays.asList(l).indexOf(s[i++])] = 0;
    return o;
}

Ghi chú

Tôi sử dụng Integer[]thay vì int[]cho phép sử dụng Arrays.asList, không có phiên bản nguyên thủy. Integerđược ưa thích đểLong bởi vì các giá trị được sử dụng như các chỉ số mảng và sẽ yêu cầu truyền.

Điều này cuối cùng đã ngắn hơn phong cách thủ tục tốt nhất của tôi List giải pháp vì chi phí của tên lớp và phương thức.

Điều này cũng đánh bại một giải pháp mà tôi đã thử phát trực tiếp các đầu vào, được ánh xạ tới các cặp (giá trị, chỉ mục) , sắp xếp theo các giá trị và ánh xạ tới các chỉ số, chủ yếu là do hành lý cần thiết để thu thập luồng.

Sự nhìn nhận

• -5 byte nhờ Nevay

Lisp thường gặp, 82 byte

(lambda(l)(loop as i in(sort(copy-seq l)'<)do(setf(elt l(print(position i l)))0)))

Hãy thử trực tuyến!

Clojure, 39 byte

#(map key(sort-by val(zipmap(range)%)))

CJam , 12 byte

{ee{1=}$0f=}

Hãy thử trực tuyến!

MATLAB / Octave , 29 byte

[~,y]=sort(input(''));disp(y)

Hãy thử trực tuyến!

JavaScript (ES6), 69 byte

Chỉ số 0. Hoạt động cho danh sách chứa tới 65.536 phần tử.

a=>[...a=a.map((n,i)=>n<<16|i)].sort((a,b)=>a-b).map(n=>a.indexOf(n))

Các trường hợp thử nghiệm

let f =

a=>[...a=a.map((n,i)=>n<<16|i)].sort((a,b)=>a-b).map(n=>a.indexOf(n))

console.log(JSON.stringify(f([7, 4, 5])))
console.log(JSON.stringify(f([1, 2, 3])))
console.log(JSON.stringify(f([2, 6, 1, 9, 1, 2, 3])))
console.log(JSON.stringify(f([4])))

Con trăn 3 , 52 byte

Chỉ số 0. Dựa trên câu trả lời Haskell của Bruce Forte tại đây và câu trả lời Ruby của GB tại đây .

lambda l:list(zip(*sorted(zip(l,range(len(l))))))[1]

Hãy thử trực tuyến!

Chồng , 10 7 byte

Đây là một cổng trực tiếp của câu trả lời Haskell của tôi , cũng được tìm thấy 1:

m→O`z,N

Hãy thử trực tuyến!

Ungolfed / Giải thích

Code        Description               Example
         -- implicit input            [2,6,1]
      N  -- natural numbers           [1,2,3,..]
   `z,   -- zip, but keep input left  [(2,1),(6,2),(1,3)]
  O      -- sort                      [(1,3),(2,1),(6,2)]
m→       -- keep only indices         [3,1,2]

Java (OpenJDK 8) , 72 byte

l->l.stream().sorted().map(i->{int j=l.indexOf(i);l.set(j,0);return j;})

Hãy thử trực tuyến!

Mất một List<Integer>, trả về một Stream<Integer>chứa kết quả.

Chúng tôi nhận được một luồng dựa trên danh sách ban đầu, sắp xếp nó, sau đó ánh xạ từng số vào chỉ mục của nó trong danh sách. Để chứa các phần tử trùng lặp, chúng tôi đặt phần tử gốc trong danh sách thành 0.

SmileBASIC, 67 byte

DEF I(A)DIM B[0]FOR I=1TO LEN(A)PUSH B,I
NEXT
SORT A,B
RETURN B
END

Rất đơn giản, tất cả những gì nó làm là tạo ra một danh sách các số từ 1 đến (độ dài của mảng) và sắp xếp thứ tự này theo cùng thứ tự với đầu vào.

Python 3 với Numpy , 38 26 byte

12 byte được lưu nhờ Jo King (không cần đặt tên cho hàm)

import numpy
numpy.argsort

Đầu ra dựa trên 0.

Hãy thử trực tuyến!

05AB1E , 4 byte

ā<Σè

Hãy thử trực tuyến!

Pari / GP , 16 byte

a->vecsort(a,,1)

Hãy thử trực tuyến!

PHP , 54 byte

<?php function i($a){asort($a);return array_keys($a);}

Hãy thử trực tuyến!

Đây là chỉ số không. Đơn giản chỉ cần sắp xếp các mảng và trả về các phím.

Tcl , 21 byte

(0 chỉ mục)

puts [lsort -indi $L]

Hãy thử trực tuyến!