チャレンジ：

円周率は無限であることになっています。つまり、すべての数値はpiの小数部分に含まれています。あなたの仕事は、入力で正の整数を取り、出力でこの数字の位置をpi桁で返すことです。

入力された場合、例えば59、我々は戻ります4

理由は次のとおり59です。piの桁の数字を探します

3.14159265...
     ^^

値は4桁目から始まるため、出力はになります4。

他のいくつかの例：

input : 1      output : 1
input : 65     output : 7
input : 93993  output : 42
input : 3      output : 9

ルール：

• 最初の200桁以内に存在しない数字を処理する必要はありません。
• 標準の抜け穴は、いつものように禁止されています。
• これはcodegolfなので、少ないバイトが勝ちます。

Python 2、69 75 71 67バイト

caird coinheringaahingにより4バイトを節約しました。

x=p=1333
while~-p:x=p/2*x/p+2*10**200;p-=2
print`x`.find(input(),1)

3位置0 で見つからない場合、6 2バイトかかります。入力は文字列として与えられます。

オンラインでお試しください！

無制限バージョン

Python 2、224バイト

def g():
 q,r,t,i,j=1,0,1,0,1
 while True:
  i+=1;j+=2;q,r,t=q*i,(2*q+r)*j,t*j;n=(q+r)/t
  if n*t>4*q+r-t:yield n;q,r=10*q,10*(r-n*t)
a=input()
l=len(`a`)
s=z=10**l;i=1-l
p=g().next;p()
while s!=a:s=(s*10+p())%z;i+=1
print i

上記で使用したものと同じ式に基づいた無制限の栓を使用します。

オンラインでお試しください！

より速いバージョン

from gmpy2 import mpz
def g():
  # Ramanujan 39, multi-digit
  q, r, s ,t = mpz(0), mpz(3528), mpz(1), mpz(0)
  i = 1
  z = mpz(10)**3511
  while True:
    n = (q+r)/(s+t)
    if n == (22583*i*q+r)/(22583*i*s+t):
      for d in digits(n, i>597 and 3511 or 1): yield d
      q, r = z*(q-n*s), z*(r-n*t)
    u, v, x = mpz(1), mpz(0), mpz(1)
    for k in range(596):
      c, d, f = i*(i*(i*32-48)+22)-3, 21460*i-20337, -i*i*i*24893568
      u, v, x = u*c, (u*d+v)*f, x*f
      i += 1
    q, r, s, t = q*u, q*v+r*x, s*u, s*v+t*x

def digits(x, n):
  o = []
  for k in range(n):
    x, r = divmod(x, 10)
    o.append(r)
  return reversed(o)

a=input()
l=len(`a`)
s=z=10**l;i=1-l
p=g().next;p()
while s!=a:s=(s*10+p())%z;i+=1
print i

Ramanujan＃39に基づく、はるかに高速の無制限の蛇口。

オンラインでお試しください！

殻、5バイト

€tİπd

オンラインでお試しください！

説明

€tİπd                              59
    d  Convert to base-10 digits   [5,9]
  İπ     The digits of pi          [3,1,4,1,5,9..]
 t       Remove the first element  [1,4,1,5,9,2..]
€      Index of the sublist        4

Excel、212バイト

=FIND(A1,"14159265358979323846264338327950288419716939937510582097494459230781640628620899862803482534211706798214808651328230664709384460955058223172535940812848111745028410270193852110555964462294895493038196")

Excelは小数点以下15桁しか処理しないため、piはハードコードされています。これは、この課題のかなり弱い上限です。

Java 8、615 217 202 184 182 166 165バイト（計算された999 200桁）

n->{var t=java.math.BigInteger.TEN.pow(200);var r=t;for(int p=667;p-->1;)r=t.valueOf(p).multiply(r).divide(t.valueOf(p-~p)).add(t).add(t);return(r+"").indexOf(n,1);}

1インデックス付き

オンラインでお試しください。

Javaの組み込みにMath.PIは、他の多くの言語と同様に、15桁の10進数値の精度があります。さらに桁数を増やすには、BigIntegersまたはで自分で計算する必要がありますBigDecimals。これは、上記の..それを行うための方法である、この211バイト、笑..下に多分誰か缶ゴルフ
のポート作成：EDIT @primoをのPythonの2の回答ハードよりも短い計算するので、（彼をupvoteすることを確認してください！） -codedはそれほど遠くフェッチされていません。それを短くするためにゴルフにもう7バイト。

@Neilのおかげで-15バイト、以下のハードコードされた回答よりも短くなりました！@primoの
おかげで-36バイト。 -1バイトがに変更されるのは、1バイトより短いためです（新しいJava 10が大好きです）。
java.math.BigInteger t=null,T=t.TEN.pow(200),r=T;var T=java.math.BigInteger.TEN.pow(200);var r=T;varnull

説明：

n->{                            // Method with String parameter and integer return-type
  var t=java.math.BigInteger.TEN.pow(200);
                                //  Temp BigInteger with value 10^200
  var r=t;                      //  Result BigInteger, also starting at 10^200
  for(int p=667;                //  Index-integer, starting at 667
      p-->1;)                   //  Loop as long as this integer is still larger than 1
                                //  (decreasing `p` by 1 before every iteration with `p--`)
    r=                          //   Replace the Result BigInteger with:
      t.valueOf(p)              //    `p`
       .multiply(r)             //    multiplied by `r`,
       .divide(t.valueOf(p-~p)) //    divided by `2*p+1`
       .add(t).add(t);          //    And add 2*10^200
  return(r+"")                  //  Convert the BigInteger to a String
    .indexOf(n,                 //  And return the index of the input,
               1);}             //  skipping the 3 before the comma

Java 8、211バイト（ハードコードされた200桁）

"14159265358979323846264338327950288419716939937510582097494459230781640628620899862803482534211706798214808651328230664709384460955058223172535940812848111745028410270193852110555964462294895493038196"::indexOf

0インデックス付き

オンラインでお試しください。

05AB1E、6バイト

₁žs¦¹k

オンラインでお試しください！

どうやって？

₁        push 256
 žs      push pi to 256 places
   ¦     remove the leading 3
    ¹    push the input
     k   index inside that string

MATL、16 15バイト

YP8WY$4L)jXfX<q

オンラインでお試しください！

説明

YP     % Push pi as a double
8W     % Push 2^8, that is, 256
Y$     % Compute pi with 256 significant digits using variable-precision arithmetic
       % The result as a string
4L)    % Remove first character. This is to avoid finding '3' in the integer part
       % of pi
j      % Push input as a string
Xf     % Strfind: gives array of indices of occurrences of the input string in the
       % pi string
X<     % Mimimum
q      % Subtract 1. Implicitly display

R +数値パッケージ、52バイト

regexec(scan(),substring(numbers::dropletPi(200),3))

オンラインでお試しください！

dropletPiの最初の200桁の10進数を計算しますが、先頭にpia 3.を含むため、それを削除してsubstringからに一致しますregexec。これにより、一致に関するメタデータとともに一致のインデックスが返されます。

ゼリー、23 バイト

⁵*⁹Ḥ;ȷḊ+J$¤×⁹:2¤:ɗ\SṾḊw

文字のリスト（検索する整数）を受け入れ、インデックスを返すモナドリンク。πの小数部の最初の252桁に含まれる入力に対して機能します。

オンラインでお試しください！

どうやって？

これは、πのライプニッツ式を使用して、先頭3（および4つの末尾の誤った数字）を含む最初の253桁を計算します。次に、先頭3が削除され、入力のインデックスが見つかります。

⁵*⁹Ḥ;ȷḊ+J$¤×⁹:2¤:ɗ\SṾḊw - Link: list of characters
⁵                       - literal ten
  ⁹                     - literal 256
 *                      - exponentiate = 10000...0 (256 zeros)
   Ḥ                    - double       = 20000...0
          ¤             - nilad followed by links as a nilad:
     ȷ                  -   literal 1000
      Ḋ                 -   dequeue -> [2,3,4,5,...,1000]
         $              -   last two links as a monad:
        J               -     range of length -> [1,2,3,4,...,999]
       +                -     addition (vectorises) -> [3,5,7,9,...,1999]
    ;                   -   concatenate -> [20000...0,3,5,7,9,...,1999]
                  \     - cumulative reduce with:
                 ɗ      -   last three links as a dyad:
               ¤        -     nilad followed by link(s) as a nilad:
            ⁹           -       chain's right argument (the right of the pair as we traverse the pairs in the list -- 3, 5, 7, 9, ...)
              2         -       literal two
             :          -       integer division (i.e. 1, 2, 3, ...)
           ×            -     multiply (the left of the pair, the "current value", by that)
                :       -   integer divide by the right argument (i.e. 3, 5, 7, 9, ...)
                   S    - sum up the values (i.e. 20000...0 + 66666...6 + 26666...6 + 11428...2 + ... + 0)
                    Ṿ   - un-evaluate (makes the integer become a list of characters)
                     Ḋ  - dequeue (drop the '3')
                      w - first (1-based) index of sublist matching the input

入力として数字のリストを使用する場合⁵*⁹Ḥ;ȷḊ+J$¤×⁹:2¤:ɗ\SDḊw（23）、整数で使用する場合⁵*⁹Ḥ;ȷḊ+J$¤×⁹:2¤:ɗ\SDḊwD（24の場合）。

BASH（GNU / Linux）、75 67 66バイト

Sophia Lechnerのおかげで1バイト、Cows quackのおかげで7バイト節約しました。

a=`bc -l<<<"scale=999;4*a(1)"|tail -c+2|grep -ob $1`;echo ${a%%:*}

これは、1つの引数（数値）を受け取るシェルスクリプトです。でテスト

$ bash <script-path> 59
4

このスクリプトは、最初に3つのコマンドのパイプラインを実行します。

bc -l<<<"scale=999;4*a(1)"|    #produce pi with its first 999 fractional digits
tail -c+2|                     #cut off the "3."
grep -ob $1                    #compute the byte offsets of our argument in the string

このパイプラインの結果はシェル変数に割り当てられ、aその後、最初の数値が削除されたもの以外はエコーされます。

a=`...`;         #assign the result of the pipeline to a variable
echo ${a%%:*}    #cleave off the first : character and anything following it

あいにく、bc出力行が長くなりすぎると出力行が壊れる傾向があります。見つかった番号が最初の行にない場合、これは間違った結果につながる可能性があります。環境変数を設定することでそれを回避できますBC_LINE_LENGTH：

export BC_LINE_LENGTH=0

これにより、改行機能が完全に無効になります。

明らかに、他の出力が許容される場合、最後の2つのコマンドは省略できます。
これにより、48バイトのカウントが得られます。

bc -l<<<"scale=999;4*a(1)"|tail -c+2|grep -ob $1

結果の出力：

$ bash <script-path> 59
4:59
61:59
143:59
179:59
213:59
355:59
413:59
415:59
731:59
782:59
799:59
806:59
901:59
923:59
940:59
987:59

JavaScript、197 187

^{-10：ありがとう、ニール！}

x=>"50ood0hab15bq91k1j9wo6o2iro3by0h94bg3geu0dnnq5tcxz7lk62855h72el61sx7vzsm1thzibtd23br5tr3xu7wsekkpup10cek737o1gcr6t00p3qpccozbq0bfdtfmgk".replace(/.{9}/g,a=>parseInt(a,36)).search(x)+1

一連の9桁のbase-36整数を受け取り、それらを10進数に変換し、それらを連結してpiの最初の200桁を作成します。

初めてコードゴルフをする。デリゲートとラムダ式を使用して、関数呼び出しを減らします。V2は、クラス名を1バイトに短縮します。

[C＃]、361 355バイト

using System;class P{static void Main(){Func<string,int>F=f=>"14159265358979323846264338327950288419716939937510582097494459230781640628620899862803482534211706798214808651328230664709384460955058223172535940812848111745028410270193852110555964462294895493038196".IndexOf(f)+1;Action<int>w=Console.WriteLine;w(F("1"));w(F("65"));w(F("93993"));w(F("3"));}}

フォーマット済みバージョン：

using System;

class P
{
    static void Main()
    {
        Func<string,int>F=f=>"14159265358979323846264338327950288419716939937510582097494459230781640628620899862803482534211706798214808651328230664709384460955058223172535940812848111745028410270193852110555964462294895493038196".IndexOf(f)+1;
        Action<int>w=Console.WriteLine;
        w(F("1"));
        w(F("65"));
        w(F("93993"));
        w(F("3"));
    }
}

イデオネ！

NB.Iは最初のバージョンを誤ってカウントしました。363バイトではなく、361バイトでした。

[C＃]、tioバージョン218バイト

f=>"14159265358979323846264338327950288419716939937510582097494459230781640628620899862803482534211706798214808651328230664709384460955058223172535940812848111745028410270193852110555964462294895493038196".IndexOf(f)+1

オンラインでお試しください！

Haskell、208 120バイト

a=1333
x=tail$show$foldr(\p x->p`div`2*x`div`p+2*10^200)a[3,5..a]
x!n|take(length n)x==n=0|1<2=1+tail x!n
f n=1+x!show n

オンラインでお試しください！

^{ジョナサン・アランの提案に感謝します！}

古いバージョン（208バイト）

(+1).((tail$g(1,0,1,1,3,3))!)
g(q,r,t,k,n,l)=([n:g(10*q,10*(r-n*t),t,k,div(10*(3*q+r))t-10*n,l)|4*q+r-t<n*t]++[g(q*k,(2*q+r)*l,t*l,k+1,div(q*(7*k+2)+r*l)(t*l),l+2)])!!0
x!n|take(length n)x==n=0|1<2=1+tail x!n

実際、上記のコードがどのように機能するのかわかりません。このホワイトペーパーからそれを取りましたが、実装したのはルックアップ部分のみでした。 g(1,0,1,1,3,3)piの桁を返し、驚くほど効率的です（tio.runで10桁を4秒未満で計算します）。

入力は、検索する数値の数字で構成されるリストです。

オンラインでお試しください！

Haskell、230バイト

遅延を使用して、最初の200桁だけでなく、πの無限桁の任意の場所にある数字を見つけます。そうそう、最初のインスタンスだけでなく、その番号のすべての（無限の数？）インスタンスを返します。

p=g(1,0,1,1,3,3)where g(q,r,t,k,n,l)=if 4*q+r-t<n*t then n:g(10*q,10*(r-n*t),t,k,div(10*(3*q+r))t-10*n,l) else g(q*k,(2*q+r)*l,t*l,k+1,div(q*(7*k+2)+r*l)(t*l),l+2)
z n=[(i,take n$drop i p)|i<-[1..]]
f l=[n|(n,m)<-z$length l,m==l]

チャレンジの例

>  take 10 $ f [1]
[1,3,37,40,49,68,94,95,103,110]
>  take 10 $ f [6,5]
[7,108,212,239,378,410,514,672,870,1013]
>  take 1 $ f [9,3,9,9,3]
[42]
>  take 10 $ f [3]
[9,15,17,24,25,27,43,46,64,86]

クレジット

「p」はhttps://rosettacode.org/wiki/Pi#Haskellから取得したpi桁の無限ストリームです

> take 20 p
[3,1,4,1,5,9,2,6,5,3,5,8,9,7,9,3,2,3,8,4]

SmileBASIC、179 164バイト

INPUT I$FOR I=0TO 103Q$=Q$+STR$(ASC("\A#YO &.+& O2TGE']KiRa1,;N(>VYb>P0*uCb0V3 RB/]T._2:H5;(Q0oJ2)&4n7;@.^Y6]&"[I]))NEXT?INSTR(Q$,I$)+1

piの数字はハードコーディングされ、文字のASCII値にパックされます。14-> CHR$(14)、15-> CHR$(15)、92-> \、65-> A、35-> #。

文字列には印刷できない文字が含まれているため、16進数で書き込まれたバイトは次のとおりです。 0E 0F 5C 41 23 59 4F 20 26 2E 1A 2B 26 20 4F 32 1C 54 13 47 45 27 5D 4B 69 52 00 61 31 2C 3B 17 00 4E 10 28 3E 56 14 59 62 3E 50 03 30 19 03 2A 75 00 43 62 15 30 00 56 33 20 52 1E 42 2F 00 5D 54 2E 00 5F 32 3A 16 1F 48 35 3B 28 51 1C 30 6F 4A 32 1C 29 00 1B 00 13 26 34 6E 37 3B 40 2E 16 5E 59 36 5D 00 26 13 06

10進数では、piの数字を確認できます。 14 15 92 65 35 89 79 32 38 46 26 43 38 32 79 50 28 84 19 71 69 39 93 75 105 82 0 97 49 44 59 23 0 78 16 40 62 86 20 89 98 62 80 3 48 25 3 42 117 0 67 98 21 48 0 86 51 32 82 30 66 47 0 93 84 46 0 95 50 58 22 31 72 53 59 40 81 28 48 111 74 50 28 41 0 27 0 19 38 52 110 55 59 64 46 22 94 89 54 93 0 38 19 6

ルビー、37 35バイト

p"#{BigMath::PI 200}"[3..-3]=~/#$_/

オンラインでお試しください！

特別なことはなく、組み込みライブラリを紹介するだけです。出力は0から始まります。Pi文字列はとしてフォーマットされている0.31415...e1ため、最初の3文字を削除する必要があります。e1最後の部分は実際には何の害もありませんが、とにかく範囲の終わり（またはスライスの長さ）の値を提供する必要があるので、それも取り除かれます。

炭、27 15バイト

Ｉ⊖∨⌕Ｉ▷N⟦≕Piφ⟧θχ

オンラインでお試しください！リンクは、コードの詳細バージョンです。最大1000桁まで機能します。説明：

        ≕Pi     Get variable `Pi`
           φ    Predefined variable 1000
     ▷N⟦    ⟧   Evaluate variable to specified precision
    Ｉ           Cast to string
             θ  First input
   ⌕            Find
              χ Predefined variable 10
   ∨             Logical OR
  ⊖              Decrement
 Ｉ               Cast to string
                 Implicitly print

Japt、186 177バイト

`nqnrvosrpruvtvpopuqsosqppÕÝvr¶uuqnvtnsvpvvptrnmruomvtqvqqrvopmÉæqÛàÑ$vvÔàmpqupqm¡vuqum«rnpopmssqtmvpuqqsmvrrmruoopÌÊprvqÛ$uqunnqr¶uqn¶tmnvpÔnmrrrvsqqsoovquvrqvpmpunvs`®c -#mÃbU

JaptはJavascriptの15桁のPi制約とshocoを共有するため、Japtで使用されるエンコードは数値をエンコードしないため、圧縮にはいくつかのシェナンガンが必要です。

簡単に説明すると、先頭はエンコードされた形式の次の文字列です。

"nqnrvosrpruvtvpopuqsosqppupotvrmouuqnvtnsvpvvptrnmruomvtqvqqrvopmtunsqmsousomuvvusoumpquorpqonntmstvuonqumusrnpouopmssqtmvpuqqsmvrrmruoopntorprvqmunouqunnntqrmouqnmotmnvpuronnmrrrvsqqsoovquvrqvpmpunvs"

これは、各文字の文字列です'm' + corresponding digit of pi。私はアルファベット全体をテストし、その文字は数バイトで最高の圧縮を提供します。

バックティックは、Japtに文字列をデコードするよう指示します。残りは非常に簡単です：

®c -#mÃbU
®          // Given the above string, map each letter
 c         // and return its charcode
   -#m     // minus the charcode of 'm', 109.
      Ã    // When that's done,
        bU // find the index of the implicit input U.

一致するフラグメントの0から始まるインデックスを出力します。Oliverの
おかげで、さらに2バイト削りました。

オンラインでお試しください！

AWK -M、131の119 117バイト

-M任意精度の計算にフラグを使用します。p=k=0複数行入力を可能にするために、TIOリンクに（5バイト）を追加

{CONVFMT="%.999f";PREC=1e3;for(p=k=0;k<1e3;)p+=(4/(8*k+1)-2/(8*k+4)-1/(8*k+5)-1/(8*k+6))/16^k++;$0=$1==3?9:index(p,$1)-2}1

オンラインでお試しください！

説明：

{CONVFMT="%.999f";  # Allows 999 decimal digits to be used when numbers are convert to strings
PREC=1e3;           # Digits of precision to use for calculations
for(;k<1e3;)p+=(4/(8*k+1)-2/(8*k+4)-1/(8*k+5)-1/(8*k+6))/16^k++; # The most concise numerical calculation I could find. It doesn't converge  extremely rapidly, but it seems to work OK
$0=$1==3?9:index(p,$1)-2}  # Replace input line with either 9 or index-2
                           # since indices will either be 1 (meaning 3 was input) or >= 3
1                   # Print the "new" input line

ゼリー、24バイト

ȷ*
ȷR×¢:Ḥ‘$ƲU×:¢+¢ʋ/ḤṾḊw

オンラインでお試しください！

使用マチンの公式、具体的には1/4日焼けPI == ^-1（1/2）+日焼け^-1（1/3）。

式pi / 2 == 1 + 1/3×（1 + 2/5×（1 + 3/7×（1 + 4/9×（...））））を使用します

Pythonの2 239 238 229 214バイト

@primoによる-9バイト

from bigfloat import*;a=s=n=10**10**5;b=k=0
while a:k+=1;a*=k*(k*(108-72*k)-46)+5;a/=k**3*(640320**3/24);s+=a;b+=k*a
with precision(10**7):print`(426880*sqrt(10005*n)*n)/(13591409*s+545140134*b)`.find(input())-16

Chudnovsky-Ramanujanアルゴリズムを使用して、π の最初の100万桁 50000桁を見つけ（さらに変更10**10**5し10**10**6ますが、実行に時間がかかります）、目的の文字列を検索します。

Visual Basic-114バイト

さて、最初の提出。私に簡単に行きます！

    Dim s,p As String
    s=Console.Readline()
    p=Math.PI
    Console.Write((p.IndexOf(s,2)-1))

フィードバック歓迎！

質問が「する必要はない」ではなく「する必要はない」と言うので、PIの最初の256部分に制限していません。

Javascript 217バイト（ハードコードされた200）

a=>"14159265358979323846264338327950288419716939937510582097494459230781640628620899862803482534211706798214808651328230664709384460955058223172535940812848111745028410270193852110555964462294895493038196".search(a)+1

PHP、27バイト

^{それほどセリウスの答えではありません。pi（）のデフォルトは200ではなく14桁であるため、php.iniの設定を変更する必要がありますが、一度PHPソリューションがかなりエレガントになります。}

<?=strpos(pi(),$_GET[n])-1;

ジュリア0.6、53バイト

setprecision(9^6)
x->searchindex("$(big(π))","$x",3)

BigFloatsの精度を十分に高く設定piし、文字列に変換して検索します。9^6159980桁のハンドルの精度。

オンラインでお試しください！

J、25バイト

{.I.(}.":<.@o.10x^999)E.~

オンラインでお試しください！

0インデックス付き

入力を文字列として受け取り、":許可されていない場合は+2バイト（）を受け取ります。

最終的に説明。

Perl 5と-MMath::BigFloat+bpiand -n、20バイト

bpi($>)=~/.$_/;say@-

オンラインでお試しください！

$>スタンドの使用法はどこにあるのかEFFECTIVE_USER_IDわかりませんが、これはポータブルではないのですが、TIOではこれは1000であり、-1バイトvs.の要件を満たしています200。

殻、5バイト

€tİπd

オンラインでお試しください！

€        The 1-based index as a substring of
    d    the decimal digits of
         the input
  İπ     in the infinite list of digits of pi
 t       after the radix point.