Wprowadzenie

W podstawie 10 stała Champernowne jest zdefiniowana przez połączenie reprezentacji kolejnych liczb całkowitych. W bazie 10: 0.1234567891011121314151617...i tak dalej.

Widać, że pierwsze pojawienie się 15zaczyna się po 20thprzecinku:

  Position
  0000000001111111111222222222233333333334444444444555555555566666666
  1234567890123456789012345678901234567890123456789012345678901234567
                     ^
0.1234567891011121314151617181920212223242526272829303132333435363738...
                     ^^
                     15 = position 20

Pierwsze pojawienie się 45zaczyna się po 4thprzecinku:

  Position
  0000000001111111111222222222233333333334444444444555555555566666666
  1234567890123456789012345678901234567890123456789012345678901234567
     ^               
0.1234567891011121314151617181920212223242526272829303132333435363738...
     ^^
     45 = position 4

Zadanie jest więc łatwe. Biorąc pod uwagę nieujemną liczbę całkowitą, wypisuje pozycję liczby całkowitej w stałej Champernowne.

Zasady

• Możesz podać funkcję lub program
• To jest golf golfowy , więc wygrywanie z najmniejszą ilością bajtów wygrywa!

Przypadki testowe

Input: 20
Output: 30

Input: 333
Output: 56

Input: 0
Output: 11 (note that the 0 before the decimal point is ignored)

Input: 2930
Output: 48

Pyth, 10

hxjkS+QT`Q

Łączy pierwsze input + 10liczby, a następnie znajduje indeks oparty na 0 plus jeden. Dodatkowe dziesięć jest potrzebne tylko dla 0.

Pakiet testowy

LabVIEW, 29 LabVIEW Prymitywy

Na razie używa to ciągów znaków. Dopasowuje dane wejściowe jako wzorzec i wyświetla offset - (długość wejściowa -1).

JavaScript, 57 bajtów

a=prompt();for(y=b=" ";y<a+11;)b+=++y;alert(b.indexOf(a))

Oszczędność 1 bajtu dzięki Conorowi O'Brienowi.

Haskell, 62 bajty

a#b|and$zipWith(==)a b=1|1<2=1+a#tail b 
(#(show=<<[1..])).show

Przykład użycia: (#(show=<<[1..])).show $ 2930-> 48.

Jak to działa: a # bznajduje pozycję w aciągu b: if ajest prefiksem breturn 1, w przeciwnym razie dodaj 1do wywołania rekurencyjnego za pomocą a # tail b. Funkcja pointfree (#(show=<<[1..])).showoczekuje (nienazwanego) argumentu ni wywołań show n # show=<<[1..].

Funkcja subIndexrównież wykona zadanie #, ale wymagane import Data.List.Utilsnie opłaca się.

Ruby, 28 lat

->n{[*0..n+10]*''=~/\B#{n}/}

Zawiera 0 na początku, więc dopasowania są indeksowane 1, ale \Bwymaga, aby dopasowanie nie było na początku łańcucha.

Japt, 11 bajtów

To pierwotnie pokonało Pytha, ale najwyraźniej nie działało na wejście 0.

1+1oU+B ¬bU

Wypróbuj online!

Jak to działa

1+1oU+B ¬ bU
1+1oU+B q bU  // Implicit: U = input integer
  1oU+B       // Generate the range [0, U+11).
        q bU  // Join and take the index of U.
1+            // Add one to get the correct result.
              // Implicit: output last expression

Lua, 54 bajtów

s=""for i=1,1e4 do s=s..i end print(s:find(io.read()))

Uwaga: Obecnie ten program wypisuje zarówno pierwsze wystąpienie pierwszego znaku ciągu, jak i punkt, w którym się kończy. Jeśli nie jest to dozwolone, będzie kosztować kilka dodatkowych bajtów. Chciałbym prosić o premię, ponieważ mój program wypisuje zarówno pierwszą pozycję, jak i ostatnią pozycję liczby wejściowej.

MATL , 22 bajty

it10+:Yst' '=~)wYsXf1)

Weź input ( i), ustaw wektor 1 na input + 10 ( 10+:), konwertuje wektor na string ( Ys) i usuń spacje, co jest bolesne, ( t' '=~)). Następnie przekonwertuj dane wejściowe na ciąg znaków ( Ys), znajdź ciąg znaków wejściowych w ciągu liczb ( Xf) i wybierz pierwszą lokalizację ( 1)). t„S w” y manipuluje stos (zduplikowane i wymienne, odpowiednio).

PowerShell, 39 44 bajtów

[Edycja: moje założenie nie działa, budowanie tablicy z 1-0 nie znajduje 0 w miejscu 11. Zamiast tego buduj z 1-x + 10, aby obsługiwać również 0, teraz 44 bajty]

param($i)(1..($i+10)-join'').IndexOf("$i")+1

Zawsze znajdziesz x podczas budowania ciągu stałej Champernowne w ostatnim punkcie, kiedy dodajesz x na końcu, więc tablica od 1-x zawsze będzie zawierała odpowiedź. Pytanie brzmi „czy to nastąpi wcześniej?” . Ten kod

param($i)(1..$i-join'').IndexOf("$i")+1

e.g.

PS C:\Temp> .\Champer.ps1 20
30

generuje zakres liczb, rzutuje go na ciąg znaków i wyszukuje w nim parametr. Ponieważ PowerShell jest powłoką obiektową, parametr jest w rzeczywistości [int]typem, więc próba zapisania dwóch znaków za pomocą .IndexOf($i)przeszukałaby łańcuch w celu znalezienia liczby całkowitej i niczego nie znalazłaby. Dlatego używam interpolacji ciągów "$i".

Mátl (uwalnianie 1.0.1), 22 bajtów

iXK10+:"@Ys]N$hKYsXf1)

Przykład

>> matl iXK10+:"@Ys]N$hKYsXf1)
> 333
56

Wyjaśnienie

i       % Input
XK      % Copy to clipboard K            
10+     % Add 10. This is needed in case input is 0
:       % Vector of equally spaced values, starting from 1
"       % For each
  @Ys   %   For loop variable as a string
]       % End                            
N$h     % Horizontal concatenation of all stack contents
KYs     % Paste from clipboard K (input number) and convert to string
Xf      % Find one string within another 
1)      % First value

MATL (wydanie 20.8.0), 16 bajtów (wyzwanie dla postdatacji języka)

Podziękowania dla @Giuseppe za tę wersję programu (nieznacznie zmodyfikowaną)

10+:"@V]&hGVXf1)

Wypróbuj online!

Wyjaśnienie

10+     % Implicit Input. Add 10. This is needed in case input is 0 
:       % Vector of equally spaced values, starting from 1
"       % For each
  @V    %   For loop variable as a string 
]       % End
&h      % Horizontal concatenation of all stack contents
GV      % Paste from automatic clipboard G (input number) and convert to string
Xf      % Find one string within another 
1)      % First value

PowerShell, 54 50 bajtów

for($c='';!($x=$c.IndexOf("$args")+1)){$c+=++$i}$x

Dzięki TessellatingHeckler za pomysł zamiany whilepętli na forpętlę.

Wykonuje się przez forpętlę. Podobnie jak w przypadku innych języków, pierwsza instrukcja w pętli może konstruować zmienne i przypisania, więc zaczyna się od $crównego tylko pustemu ciągowi'' dzięki czemu mamy zerowe indeksowanie ciągu zgodne z dziesiętnym indeksowaniem wyzwania. Jesteśmy wtedy w pętli, która sprawdza, czy gdzieś w niej $cjest wejściowa liczba całkowita ( $args) (tzn. Ponieważ .IndexOf()zwraca, -1jeśli ciąg nie zostanie znaleziony, dodajemy jedną do niej ( 0), a nie do ( $TRUE), aby kontynuować pętlę). Jeśli nie zostanie znaleziony, dodajemy naszą wstępnie zwiększoną $izmienną licznika, a następnie ponownie sprawdzamy ciąg. Po znalezieniu ciągu .IndexOf()zwróci wartość dodatnią, której nie będzie$FALSE, wyrwanie się z pętli. Na koniec wyprowadzamy indeks za pomocą $x.

JavaScript (ES6), 40 bajtów

x=>(f=n=>n?f(n-1)+n:" ")(x+11).search(x)

Używa funkcji rekurencyjnej, faby uniknąć pętli. The wyszukiwania działa tak samo, indexOfz tym wyjątkiem, że przyjmuje RegExp jako parametr, co nie ma znaczenia dla tego wyzwania.

Dodanie " "do n=0obudowy (zero falsy w JS) przekształcająca wartość +wykonać konkatenacji zamiast dodawania i koryguje do indeksowania zera.

Python 3, 54.

print(''.join(map(str,range(1,9**7))).find(input())+1)

CJam, 11 bajtów

r_i),s\#Be|

Sprawdź to tutaj.

Znajduję pozycję Nw ciągu, 01234...Naby uwzględnić indeksowanie 1. Na koniec naprawiam 0, stosując logiczne OR z 11.

Poważnie, 13 bajtów

;≈9u+R`$`MΣí

Pobiera dane wejściowe jako liczbę całkowitą. Zawiera niedrukowalne, więc zrzut heksowy:

0c3bf739752b526024604de4a1

Wypróbuj online

Wyjaśnienie:

;≈9u+R`$`MΣí
<form feed>   push str(input)
;≈9u+R        dupe, push [1,...,input+10]
      `$`MΣ   string concatenation of list
           í  get index of input

𝔼𝕊𝕄𝕚𝕟, 13 znaków / 22 bajty

1+⩥(1,ï+ḋ)⨝ÿï

Try it here (Firefox only).

k4, 21 bajtów

{*1+(,/$1+!10+x)ss$x}

To samo algo jak wszyscy inni - łączenie [1..10+x]jako ciągi, wyszukiwanie x jako ciąg, konwersja do indeksowania opartego na jednym, zwracanie pierwszego trafienia.

Sprawdzanie przypadków testowych:

  &/20 4 30 56 11 48={*1+(,/$1+!10+x)ss$x}'15 45 20 333 0 2930
1b

Mathematica, 101 bajtów

(If[#==0,11,m=Min@SequencePosition[s=Flatten[(K=IntegerDigits)/@Range[0,#]],K@#];Length@s[[;;m-1]]])&

Haskell , 82 73 55 bajtów

Migrowałem z duplikatu

x!b|or$zipWith(==)x b=0
x!(_:b)=1+x!b
(!(show=<<[1..]))

Wypróbuj online!

Wyjaśnienie

Najpierw zdefiniujemy !. x!bobcina bsię do pierwszego pojawienia się x. Robi to, sprawdzając, czy bzaczyna się od x( or$zipWith(==)x b) zwracając, xjeśli tak, i przesuwając jeden w dół łańcucha w przeciwnym razie. Następnie definiujemy naszą główną funkcję. Naszą główną funkcją jest funkcja bez punktów, która przyjmuje stałą ( show=<<[1..]) i obcina ją do pierwszego pojawienia się x. To trwa xjako ciąg.

05AB1E , 6 bajtów (niekonkurujące)

nLJsk>

Wypróbuj online!

JavaScript (ES6), 50 39 38 bajtów

x=s=``
f=n=>-~s.search(n)||f(n,s+=++x)

Spróbuj

x=s=``
f=n=>-~s.search(n)||f(n,s+=++x)
o.innerText=f(i.value=15);oninput=_=>o.innerText=f(+i.value)

<input id=i type=number><pre id=o></pre>

Galaretka , 5 bajtów

+⁵RVw

Wypróbuj online!

Stax , 6 bajtów

⌐╛∙#»▓

Uruchom i debuguj

Perl 6 , 26 bajtów

{[~](0..$_).index($_)||11}

Wypróbuj online!

Znajduje indeks elementu w konkatenowanym zakresie od 0 do tego elementu lub 11jeśli liczba jest zerem

Perl 5 , 42 + 1 (-p) = 43 bajty

(join'',0..$_+10)=~/^(0.*?)$_/;$_=length$1

Wypróbuj online!

Wyjaśnienie

(join'',0..$_+10)   #concatenate all of the numbers from 0 to 10 over the input
=~/^(0.*?)$_/;      #skip the first 0, then find the input
$_=length$1         #the length of the string preceding the input is the answer

Perl 6 / Rakudo 29 bajtów

{$_~=$++until /(.+)$^a/;$0.chars}

Definiuje funkcję z jednym wejściem ($ ^ a). Zadzwoń w ten sposób:

say {$_~=$++until /(.+)$^a/;$0.chars}(333)
> 56

Dołączanie $, anonimowa zmienna, zwiększająca się $++do momentu $^aznalezienia wejścia , a następnie zliczająca liczbę znaków przed nim. Wymaganie co najmniej 1 znaku przed nim .+w wyrażeniu regularnym użytecznie wyklucza przypadek 0–> 0

J, 30 bajtów

{.I.(":E.[:}.' '-.~":@i.@+&11)

Prawdopodobnie można go nieco pograć w golfa, szczególnie w połączeniu pierwszych liczb całkowitych n + 10.

Wyjaśnienie:

{.I.(":E.[:}.' '-.~":@i.@+&11)
                      i.@+&11   | Integers 0 to n+10
                   ":@          | Format list to string
             ' '-.~             | Strip spaces
           }.                   | Behead (remove leading 0)
         [:                     | Cap (previous verbs executed in order, not as a fork)
     ":E.                       | Find matches to the string n (returns a boolean vector)
  I.                            | Indexes of 1s
{.                              | Take only the first

Zauważ, że jest to indeksowane na 0. Przykłady:

    {.I.(":E.[:}.' '-.~":@i.@+&11) 1
0
    {.I.(":E.[:}.' '-.~":@i.@+&11) 0
10
    {.I.(":E.[:}.' '-.~":@i.@+&11) 333
55

Łuska , 6 bajtów

€ΣmdNd

Wypróbuj online!

€         The 1-based index in
 Σ        the list of concatenated
   d      decimal digits
  m N     of every natural number
     d    of the decimal digits of
          the input.