Diberi angka non-negatif n, urutkan digit nberdasarkan kemunculan pertama mereka di pi .

Input dapat diambil melalui argumen fungsi cli, atau STDIN dan sebagai string, char [] atau integer. Anda dapat menampilkan melalui nilai balik, status keluar atau STDOUT.

Pyth, 8 6 byte

ox+.n0

Coba di sini.

-1 terima kasih kepada Leaky Nun : Input akan memberikan 0jika diperlukan.
Sepele -1 berkat Jakube : Backtick tidak diperlukan (ah, bagaimana saya melewatkan itu, BAGAIMANA?!?).

Python 3 , 40 39 byte

Terima kasih 1 byte untuk Jonathan Allan.

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

Cobalah online!

05AB1E , 10 9 7 byte

Disimpan 1 byte berkat Leaky Nun mencatat bahwa menyaring duplikat tidak perlu.
Disimpan 2 byte berkat Adnan .

žqRvy†J

Cobalah online!

Penjelasan

ž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

Jelly , 10 byte

“ṀSṪw’ṾiµÞ

Cobalah online!

Mengambil input sebagai string angka.

-3 byte terima kasih kepada @ETHproductions

Penjelasan

“Ṁ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 kode, +1 untuk -Pbendera.

–!bMP+U

Cobalah online! Mengambil input sebagai string.

Penjelasan

–!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>

Menggunakan string untuk I / O.

Jelly ,  8  7 byte

-1 byte berkat Dennis (gunakan yang ada 0di input, pintar.)

ØP;ṾiµÞ

Cobalah online!

Bagaimana?

Ø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}$

Cobalah online!

-3: Gunakan string yang didasarkan pada Pvariabel pi bukan literal.
-2: Memutuskan saya tidak perlu menyamaratakan sama sekali, karena menemukan indeks mengambil kejadian pertama. -2: Terima kasih kepada jimmy23013 untuk pendekatan yang menarik menggunakan x mod 65536.

Penjelasan:

r {P` # c} $ e # Mengambil token input
re # Ambil integer sebagai string
 {P` # c} e # Kunci penyortiran:
  P e # Dorong P (default ke 3.141592653589793)
   `e # Konversi ke representasi string
    # e # Temukan indeks char dalam string yang kami buat
         e # A '.' tidak akan pernah ditemukan dalam bilangan bulat, tetapi tidak masalah, karena pergeseran mempertahankan penyortiran ideal.
         e # A '0' akan diindeks sebagai -1.
     ce # Konversi indeks menjadi char
         e # Ini pertama-tama menghitung indeks% 65536, dan kemudian mengonversi menjadi char. Kita memerlukan ini karena jika 0 akan diindeks sebagai -1, yaitu indeks terkecil.
         e # Kita tidak perlu mengonversi kembali ke integer, karena kita dapat menggunakan pengurutan leksikografis.
       $ e # Sortir dengan kunci

PHP, 71 Bytes

The solusi regex lebih pendek

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

atau

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

Versi Online

PHP, 78 Bytes

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

PHP, 112 Bytes

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

Versi Online

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);}

Cobalah online

Ruby, 50 byte

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

MATL , 14 byte

YP99Y$uj!y=sY"

Cobalah online!

Penjelasan dengan sebuah contoh

Simbol ;digunakan sebagai pemisah baris dalam matriks. Jadi [1 2 3]adalah vektor baris, [1; 2; 3]adalah vektor kolom, dan [1 2; 3 4]merupakan matriks persegi. Yang terakhir juga dapat diwakili, untuk kejelasan, seperti

[1 2;
 3 4]

Pertimbangkan input 2325sebagai contoh.

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);}

Cobalah online!

C # Interactive, 37 36 Bytes

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

Sebenarnya Anda harus menjalankan ini di C # interaktif untuk hasil yang tepat, tapi saya kira ini yang Anda maksud dengan status keluar . Variabel i sebenarnya adalah variabel input (bisa berupa string), jadi pada dasarnya parameter metode.

Saya pikir kode itu sendiri cukup lurus ke depan.

05AB1E , 5 6 byte (tidak bersaing)

Harus menyadari bahwa 0tidak hadir dalam pi panjang standar konstan.

Σтžsyk

Cobalah online!

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

PHP, 66 65 byte

Disimpan 1 byte berkat 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;}

Penjelasan:

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

Kode uji:

Coba di sini.

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"));
  }
}

Keluaran:

33311145599922688888770

Clojure, 38 byte

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

Input dalam string, mengembalikan urutan karakter. zipmapmembuat objek "kamus", yang dapat digunakan dalam konteks fungsi juga.

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

Jika digit input dijamin unik maka Anda bisa melakukannya #(filter(set %)"3145926870").

PHP, 69 68

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

Masih dikalahkan oleh preg_filter tapi saya pikir itu cukup bagus. Mungkin seseorang dapat bermain golf beberapa byte.

Perl 6 , 34 byte

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

Cobalah

*\       # 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}

Penjelasan:

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