Cho một số không âm n, sắp xếp các chữ số của nlần xuất hiện đầu tiên của chúng trong số pi .

Đầu vào có thể được lấy thông qua đối số cli hàm, hoặc STDIN và dưới dạng chuỗi, char [] hoặc số nguyên. Bạn có thể xuất thông qua giá trị trả về, trạng thái thoát hoặc STDOUT.

Bình thường, 8 6 byte

ox+.n0

Hãy thử nó ở đây.

-1 nhờ Leaky Nun : Đầu vào sẽ cung cấp 0nếu cần thiết.
Tầm thường -1 nhờ Jakube : Backtick không cần thiết (ah, làm thế nào tôi bỏ lỡ điều đó, LÀM THẾ NÀO?!?).

Python 3 , 40 39 byte

1 byte nhờ Jonathan Allan.

lambda s:sorted(s,key="145926870".find)

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

05AB1E , 10 9 7 byte

Đã lưu 1 byte nhờ Leaky Nun lưu ý rằng việc lọc ra các bản sao là không cần thiết.
Đã lưu 2 byte nhờ Adnan .

žqRvy†J

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

Giải trình

žq       # push pi to 15 decimals (contains all digits but 0)
  R      # reverse
   vy    # for each char in pi
     †J  # move it's occurrences in the input to the front

Thạch , 10 byte

“ṀSṪw’ṾiµÞ

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

Đưa đầu vào dưới dạng một chuỗi các chữ số.

-3 byte nhờ @ETHproductions

Giải trình

“ṀSṪw’ṾiµÞ
        µ  - Separate chain into function “ṀSṪw’Ṿi and sort atom Þ.
         Þ - Sort the input by
       i   - Each digit's index in: 
“ṀSṪw’     - the literal 3145926870 ...
      Ṿ    - transformed into the list 3,1,4,5,9,2,6,8,7,0

Japt , 10 9 byte

8 byte mã, +1 cho -Pcờ.

–!bMP+U

Hãy thử trực tuyến! Đưa đầu vào dưới dạng một chuỗi.

Giải trình

–!bMP+'0  // Implicit input

¬          // Split the input into chars.
 ñ         // Sort each char in the resulting list by
  !b       //   its index in
    MP+U   //     Math.PI + the input.
-P         // Join the result back into a single string.
           // Implicit: output result of last expression

JavaScript (ES6), 54 byte

f=
s=>[...s].sort((a,b)=>k[a]-k[b],k=`9150236874`).join``

<input oninput=o.textContent=f(this.value)><pre id=o>

Sử dụng chuỗi cho I / O.

Thạch ,  8  7 byte

-1 byte nhờ Dennis (sử dụng bất kỳ thông tin nào có sẵn 0trong đầu vào, thông minh.)

ØP;ṾiµÞ

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

Làm sao?

ØP;ṾiµÞ - Main link: string s (char list)
     µÞ - sort the characters, c, of s by:
    i   -   first index of c in:
ØP      -     pi yield: 3.141592653589793
  ;     -     concatenate with left: [3.141592653589793, c]
   Ṿ    -     un-evaluate: "3.141592653589793,c" (a char list with the digit character c)
                                if any c is 0 ^ it will then be to the right of all others

CJam , 15 12 10 8 byte

r{P`#c}$

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

-3: Sử dụng một chuỗi dựa trên Pbiến pi thay vì bằng chữ.
-2: Quyết định tôi không cần phải xác định lại tất cả, vì việc tìm kiếm một chỉ mục sẽ xảy ra lần đầu tiên. -2: Cảm ơn jimmy23013 về cách tiếp cận thú vị bằng x mod 65536.

Giải trình:

r {P` # c} $ e # Nhận mã thông báo đầu vào
re # Lấy số nguyên dưới dạng chuỗi
 {P` # c} e # Phím sắp xếp:
  P e # Đẩy P (mặc định là 3.141592653589793)
   `e # Chuyển đổi thành biểu diễn chuỗi
    # e # Tìm chỉ mục của char trong chuỗi chúng tôi đã tạo
         e # A '.' sẽ không bao giờ được tìm thấy trong một số nguyên, nhưng nó không thành vấn đề, vì sự thay đổi bảo tồn sự sắp xếp lý tưởng.
         e # A '0' sẽ được lập chỉ mục là -1.
     ce # Chuyển đổi chỉ mục sang char
         e # Đầu tiên, tính toán chỉ số% 65536 và sau đó chuyển đổi thành char. Chúng ta cần điều này bởi vì nếu không thì 0 sẽ được lập chỉ mục là -1, tức là chỉ số nhỏ nhất.
         e # Chúng ta không cần phải chuyển đổi trở lại số nguyên, vì chúng ta có thể sử dụng sắp xếp từ vựng.
       $ e # Sắp xếp theo khóa

PHP, 71 byte

Các giải pháp regex là ngắn hơn

for(;~$c=_3145926870[$i++];)echo str_repeat($c,substr_count($argn,$c));

hoặc là

for(;~$c=_3145926870[$i++];)echo str_pad("",substr_count($argn,$c),$c);

Phiên bản trực tuyến

PHP, 78 byte

for(;~$c=$argn[$i++];)$j[strpos("3145926870",$c)].=$c;ksort($j);echo join($j);

PHP, 112 byte

$a=str_split($argn);usort($a,function($x,$y){return strpos($d="3145926870",$x)<=>strpos($d,$y);});echo join($a);

Phiên bản trực tuyến

C, 103 97 byte

char*p="3145926870";s(*a,*b){return strchr(p,*a)-strchr(p,*b);}f(char*t){qsort(t,strlen(t),1,s);}

Dùng thử trực tuyến

Ruby, 50 byte

n=gets;"3145926870".each_char{|c|$><<c*n.count(c)}

MATL , 14 byte

YP99Y$uj!y=sY"

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

Giải thích với một ví dụ

Biểu tượng ;được sử dụng như dấu phân cách hàng trong ma trận. Vậy [1 2 3]là một vectơ hàng, [1; 2; 3]là một vectơ cột và [1 2; 3 4]là một ma trận vuông. Cái sau cũng có thể được đại diện, cho rõ ràng, như

[1 2;
 3 4]

Hãy xem xét đầu vào 2325là một ví dụ.

YP     % Push approximation of pi as a double (predefined literal)
       % 3.14159265358979
99Y$   % Variable-precision arithmetic with 99 digits. Gives a string.
       % The input 3.14159265358979 is recognized as representing pi
       % STACK: '3.141592653589793238462 ··· 707'
u      % Unique entries, keeping order of their first appearance
       % STACK: '3.145926870'
j      % Input line as a string
       % STACK: '3.145926870', '2352'
!      % Transpose
       % STACK: '3.145926870', ['2'; '3';'5'; '2']
y      % Duplicate the second-top element in the stack
       % STACK: '3.145926870', ['2'; '3';'5'; '2'], '3.145926870'
=      % Test for equality, with broadcast. This gives a matrix with
       % all pairwise comparisons)
       % STACK: '3.145926870', [0 0 0 0 0 0 1 0 0 0 0;
       %                        1 0 0 0 0 0 0 0 0 0 0;
       %                        0 0 0 0 1 0 0 0 0 0 0;
       %                        0 0 0 0 0 0 1 0 0 0 0]
s      % Sum of each column
       % STACK: '3.145926870', [1 0 0 0 1 0 2 0 0 0 0]
Y"     % Run-length decoding. Implicitly display
       % STACK: '3522'

C (gcc) , 78 byte

f(char*s){for(char*d="3145926870",*p;*d;d++)for(p=s;*p;)*p++-*d||putchar(*d);}

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

C # Tương tác, 37 36 byte

i.OrderBy(c=>"145926870".IndexOf(c))

Trên thực tế, bạn phải thực hiện điều này trong tương tác C # để có kết quả phù hợp, nhưng tôi đoán đây là ý nghĩa của bạn với trạng thái thoát . Biến i thực sự là biến đầu vào (ví dụ có thể là một chuỗi), vì vậy về cơ bản nó là tham số phương thức.

Tôi nghĩ rằng bản thân mã là khá thẳng về phía trước.

05AB1E , 5 6 byte (không lọc)

Phải nhận ra rằng 0không có trong hằng số pi chiều dài tiêu chuẩn.

Σтžsyk

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

Σтžsyk
Σ      Sort by the result of code
 тžs   Push 100 digits of pi
   yk  Index of digit in pi

PHP, 66 65 byte

Lưu được 1 byte nhờ Titus.

while(~$d=_3145926870[++$i])echo preg_filter("/[^$d]/",'',$argn);

Java 7, 110 byte

String c(String s){String r="";for(char i:"3145926870".toCharArray())r+=s.replaceAll("[^"+i+"]","");return r;}

Giải trình:

String c(String s){                       // Method with String parameter and String return-type
  String r="";                            //  Result String
  for(char i:"3145926870".toCharArray())  //  Loop over the characters of "3145926870"
    r+=s.replaceAll("[^"+i+"]","");       //   Append the result-String with all the occurrences of the current character
                                          //  End of loop (implicit / single-line body)
  return r;                               //  Return the result-String
}                                         // End of method

Mã kiểm tra:

Hãy thử nó ở đây.

class M{
  static String c(String s){String r="";for(char i:"3145926870".toCharArray())r+=s.replaceAll("[^"+i+"]","");return r;}

  public static void main(String[] a){
    System.out.println(c("12345678908395817288391"));
  }
}

Đầu ra:

33311145599922688888770

Clojure, 38 byte

#(sort-by(zipmap"3145926870"(range))%)

Nhập vào chuỗi, trả về một chuỗi các ký tự. zipmaptạo một đối tượng "từ điển", cũng có thể được sử dụng trong ngữ cảnh hàm.

(f "1234")
(\3 \1 \4 \2)

Nếu các chữ số đầu vào được đảm bảo là duy nhất thì bạn chỉ cần làm #(filter(set %)"3145926870").

PHP, 69 68

for(;(~$d=$argn[$j++])||~$c=_3145926870[$i+++$j=0];)$c==$d&&print$d;

Vẫn bị preg_filter đánh bại nhưng tôi nghĩ bản thân nó cũng khá đẹp. Có lẽ ai đó có thể chơi golf một số byte.

Perl 6 , 34 byte

*.comb.sort:{3145926870.index: $_}

Thử nó

*\       # WhateverCode lambda (this is the parameter)
.comb    # split into digits
.sort: { # sort by

  3145926870.index: $_ # its index in this number
}

k, 19 byte

{x@<"3145926870"?x}

Giải trình:

{                 } /function(x)
    "3145926870"?x  /for each x: "3145926870".index(x)
   <                /get indices with which to sort
 x@                 /sort x by those indices