Biorąc pod uwagę liczbę nieujemną n, posortuj cyfry nwedług ich pierwszego wystąpienia w pi .

Dane wejściowe mogą być pobierane za pomocą argumentu funkcji cli lub STDIN i jako ciąg znaków, char [] lub liczba całkowita. Możesz wyprowadzać dane poprzez wartość zwracaną, status wyjścia lub STDOUT.

Pyth, 8 6 bajtów

ox+.n0

Wypróbuj tutaj.

-1 dzięki Leaky Nun : Dane wejściowe zapewnią, 0jeśli będą kiedykolwiek potrzebne.
Trywialne -1 dzięki Jakube : Backtick nie jest potrzebny (ach, jak mi tego brakowało, JAK?!?).

Python 3 , 40 39 bajtów

1 bajt dzięki Jonathan Allan.

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

Wypróbuj online!

05AB1E , 10 9 7 bajtów

Zaoszczędzono 1 bajt dzięki Dziurawej Zakonnicy , która zauważyła, że ​​odfiltrowywanie duplikatów nie jest konieczne.
Zaoszczędzono 2 bajty dzięki Adnan .

žqRvy†J

Wypróbuj online!

Wyjaśnienie

ž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

Galareta , 10 bajtów

“ṀSṪw’ṾiµÞ

Wypróbuj online!

Pobiera dane wejściowe jako ciąg cyfr.

-3 bajty dzięki produktom @ETH

Wyjaśnienie

“Ṁ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 bajtów

8 bajtów kodu, +1 dla -Pflagi.

–!bMP+U

Wypróbuj online! Pobiera dane wejściowe jako ciąg.

Wyjaśnienie

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

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

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

Używa ciągów dla I / O.

Galaretka ,  8  7 bajtów

-1 bajt dzięki Dennisowi (użyj dowolnego istniejącego 0na wejściu, sprytne).

ØP;ṾiµÞ

Wypróbuj online!

W jaki sposób?

Ø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 bajtów

r{P`#c}$

Wypróbuj online!

-3: Użyj ciągu opartego na Pzmiennej pi zamiast literału.
-2: Zdecydowałem, że wcale nie muszę jednoznacznie identyfikować, ponieważ znalezienie indeksu i tak zajmuje pierwsze wystąpienie. -2: Dzięki jimmy23013 za ciekawe podejście przy użyciu x mod 65536.

Wyjaśnienie:

r {P` # c} $ e # Pobiera token wejściowy
re # Weź liczbę całkowitą jako ciąg
 {P` # c} e # Klawisz sortowania:
  P e # Push P (domyślne ustawienie to 3.141592653589793)
   `e # Konwertuj na reprezentację ciągu
    # e # Znajdź indeks char w utworzonym przez nas ciągu
         e # A '.' nigdy nie zostanie znalezione w liczbie całkowitej, ale to nie ma znaczenia, ponieważ przesunięcie zachowuje idealne sortowanie.
         e # A „0” będzie indeksowane jako -1.
     ce # Konwertuj indeks na char
         e # Najpierw oblicza indeks% 65536, a następnie konwertuje na char. Potrzebujemy tego, ponieważ w przeciwnym razie 0 byłoby indeksowane jako -1, czyli najmniejszy indeks.
         e # Nie musimy konwertować z powrotem na liczbę całkowitą, ponieważ możemy zastosować sortowanie leksykograficzne.
       $ e # Sortuj za pomocą klucza

PHP, 71 bajtów

Rozwiązanie wyrażenia regularnego jest krótsze

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

lub

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

Wersje online

PHP, 78 bajtów

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

PHP, 112 bajtów

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

Wersja online

C, 103 97 bajtów

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

Wypróbuj online

Rubinowy, 50 bajtów

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

MATL , 14 bajtów

YP99Y$uj!y=sY"

Wypróbuj online!

Wyjaśnienie na przykładzie

Symbol ;jest używany jako separator wierszy w macierzach. Podobnie [1 2 3]jak wektor rzędowy, wektor [1; 2; 3]kolumnowy i [1 2; 3 4]macierz kwadratowa. Te ostatnie można również przedstawić, dla jasności, jako

[1 2;
 3 4]

Rozważ dane wejściowe 2325jako przykład.

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 bajtów

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

Wypróbuj online!

C # Interactive, 37 36 bajtów

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

Actually you have to execute this in the C# interactive for proper results, but I guess this is what you meant with exit status. The variable i actually is the input variable (it can be for example a string), so it's basically the method parameter.

I think the code itself is pretty straight forward.

05AB1E , 5 6 bajtów (niekonkurencyjny)

Musiałem zdać sobie sprawę, że 0nie występuje w standardowej stałej stałej pi.

Σтžsyk

Wypróbuj online!

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

PHP, 66 65 bytes

Saved 1 byte thanks to Titus.

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

Java 7, 110 bytes

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

Explanation:

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

Test code:

Try it here.

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

Output:

33311145599922688888770

Clojure, 38 bytes

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

Input in string, returns a sequence of characters. zipmap creates a "dictionary" object, which can be used in a function context as well.

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

If input digits were guaranteed to be unique then you could simply do #(filter(set %)"3145926870").

PHP, 69 68

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

Still beaten by preg_filter but I thought it was quite nice itself. Maybe someone can golf off some bytes.

Perl 6, 34 bytes

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

Try it

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

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

k, 19 bytes

{x@<"3145926870"?x}

Explanation:

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