Einführung

In der Basis 10 wird die Champernowne-Konstante durch Verketten von Darstellungen aufeinanderfolgender ganzer Zahlen definiert. In Basis 10: 0.1234567891011121314151617...und so weiter.

Sie können sehen, dass das erste Auftreten von 15mit der 20thDezimalstelle beginnt :

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

Das erste Auftreten von 45beginnt mit der 4thDezimalstelle:

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

Die Aufgabe ist also einfach. Bei einer nicht negativen Ganzzahl wird die Position der Ganzzahl in der Champernowne-Konstante ausgegeben.

Regeln

• Sie können eine Funktion oder ein Programm bereitstellen
• Das ist Code-Golf , also gewinnt die Einsendung mit der geringsten Anzahl von Bytes!

Testfälle

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

Verkettet die ersten input + 10Zahlen und findet dann den 0-basierten Index plus eins. Die zusätzlichen zehn werden nur für 0 benötigt.

Test Suite

LabVIEW, 29 LabVIEW-Grundelemente

Hier werden vorerst Zeichenfolgen verwendet. Es gleicht die Eingabe als Muster ab und gibt den Offset aus - (Eingabelänge -1).

Javascript, 57 Bytes

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

Dank Conor O'Brien 1 Byte gespeichert.

Haskell, 62 Bytes

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

Anwendungsbeispiel: (#(show=<<[1..])).show $ 2930-> 48.

So funktioniert es: a # bFindet die Position von ainnerhalb b: Wenn adas Präfix von breturn ist 1, fügen Sie 1es einem rekursiven Aufruf mit hinzu a # tail b. Die pointfree-Funktion (#(show=<<[1..])).showerwartet ein (unbenanntes) Argument nund ruft auf show n # show=<<[1..].

Die Funktion subIndexwürde auch die Arbeit erledigen #, aber das erforderliche import Data.List.Utilszahlt sich nicht aus.

Rubin, 28

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

Fügt am Anfang eine 0 ein, damit Übereinstimmungen mit 1 indiziert werden, setzt \Bjedoch voraus, dass die Übereinstimmung nicht am Anfang der Zeichenfolge steht.

Japt, 11 Bytes

Dies schlug ursprünglich Pyth, aber anscheinend funktionierte es nicht für die Eingabe 0.

1+1oU+B ¬bU

Probieren Sie es online!

Wie es funktioniert

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 Bytes

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

Hinweis: Derzeit gibt dieses Programm sowohl das erste Vorkommen des ersten Zeichens der Zeichenfolge als auch den Punkt aus, an dem es endet. Wenn dies nicht erlaubt ist, kostet es ein paar Bytes mehr. Ich möchte einen Bonus beantragen, da mein Programm sowohl die erste als auch die letzte Position der eingegebenen Nummer ausgibt.

MATL , 22 Bytes

it10+:Yst' '=~)wYsXf1)

Nehmen Sie die Eingabe ( i), setzen Sie den Vektor 1 auf Eingabe + 10 ( 10+:), konvertieren Sie den Vektor in eine Zeichenfolge ( Ys) und entfernen Sie die schmerzhaften Leerzeichen ( t' '=~)). Konvertieren Sie dann die Eingabe in eine Zeichenfolge ( Ys), suchen Sie, wo sich die Eingabezeichenfolge in der Zeichenfolge von Zahlen ( Xf) befindet, und nehmen Sie die erste Position ( 1)). Die t's und w' s manipulieren den Stack (duplizieren bzw. tauschen).

PowerShell, 39 44 Bytes

[Edit: Meine Annahme ist falsch. Wenn Sie ein Array von 1-0 erstellen, wird an Position 11 keine 0 gefunden. Erstellen Sie stattdessen von 1-x + 10, um auch 0, jetzt 44 Byte, zu verarbeiten.]

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

Sie werden immer x finden, wenn Sie eine Zeichenfolge der Champernowne-Konstante zum letzten Zeitpunkt erstellen, wenn Sie x zum Ende hinzufügen , sodass ein Array von 1-x immer die Antwort enthält. Die Frage lautet: "Tritt sie früher auf?" . Dieser Code

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

e.g.

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

generiert einen Zahlenbereich, wandelt ihn in einen String um und sucht nach dem darin enthaltenen Parameter. Da PowerShell eine objektorientierte Shell ist, ist der Parameter eigentlich ein [int]Typ. Wenn Sie also versuchen, zwei Zeichen mit zu speichern, wird .IndexOf($i)die Zeichenfolge nach einer Ganzzahl durchsucht und es wird nichts gefunden. Deshalb verwende ich die String-Interpolation "$i".

MATL (Release 1.0.1), 22 Byte

iXK10+:"@Ys]N$hKYsXf1)

Beispiel

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

Erläuterung

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 (Release 20.8.0), 16 Bytes (Sprachnachbereitung)

Dank an @ Giuseppe für diese Version des Programms (leicht modifiziert)

10+:"@V]&hGVXf1)

Probieren Sie es online!

Erläuterung

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

Power Shell, 54 50 Bytes

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

Dank an TessellatingHeckler für die Idee, die whileSchleife gegen eine forSchleife auszutauschen.

Wird über eine forSchleife ausgeführt. Wie bei anderen Sprachen kann die erste Anweisung in der Schleife Variablen und Zuweisungen erstellen. Dies beginnt also mit $cder leeren Zeichenfolge, ''sodass die Zeichenfolge mit der dezimalen Indizierung der Challenge auf Null gesetzt wird. Wir sind dann in einer Schleife , die überprüft , ob $cdie Eingabe integer hat ( $args) irgendwo in ihm (dh, da .IndexOf()kehrt , -1wenn die Zeichenfolge nicht gefunden wird, fügen wir ein zu , dass ( 0) und nicht ( $TRUE) die Schleife fortgesetzt). Wenn es nicht gefunden wird, fügen wir unsere vorab inkrementierte $iZählervariable hinzu und überprüfen die Zeichenfolge erneut. Sobald die Zeichenfolge gefunden wurde, .IndexOf()wird ein positiver Wert zurückgegeben, dessen nicht$FALSE, bricht aus der Schleife aus. Zuletzt geben wir den Index mit aus $x.

JavaScript (ES6), 40 Byte

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

Verwendet die rekursive Funktion f, um Schleifen zu vermeiden. Die Suchmethode funktioniert genauso, indexOfaußer dass RegExp als Parameter verwendet wird, was für diese Herausforderung irrelevant ist.

Das Hinzufügen von a " "für den n=0Fall (Null ist in JS falsch) erzwingt das +Ausführen einer Zeichenfolgenverkettung anstelle des Hinzufügens und korrigiert die auf Null basierende Indizierung.

Python 3, 54.

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

CJam, 11 Bytes

r_i),s\#Be|

Teste es hier.

Ich finde die Position von Nin der Zeichenfolge 01234...N, um die 1-basierte Indizierung zu berücksichtigen. Zum Schluss fixiere ich 0mit 11 durch logisches ODER.

Im Ernst, 13 Bytes

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

Übernimmt die Eingabe als Ganzzahl. Enthält nicht druckbare Dateien, also hexdump:

0c3bf739752b526024604de4a1

Probieren Sie es online aus

Erläuterung:

;≈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 Zeichen / 22 Bytes

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

Try it here (Firefox only).

k4, 21 Bytes

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

Gleiches Algo wie alle anderen - verketten [1..10+x] als Zeichenfolge , nach x als Zeichenfolge suchen, in eine einseitige Indizierung konvertieren und den ersten Treffer zurückgeben.

Überprüfen der Testfälle:

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

Mathematica, 101 Bytes

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

Haskell , 82 73 55 Bytes

Aus dem Duplikat migriert

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

Probieren Sie es online!

Erläuterung

Zuerst definieren wir !. x!bschneidet bauf den ersten Auftritt von ab x. Dies geschieht, indem überprüft wird, ob bmit x( or$zipWith(==)x b) begonnen xwird, und ansonsten eine Zeichenfolge nach unten verschoben wird. Dann definieren wir unsere Hauptfunktion. Unsere Hauptfunktion ist eine punktfreie Funktion, die die Konstante ( show=<<[1..]) auf das erste Auftreten von abschneidet x. Dies dauert xals Zeichenfolge.

05AB1E , 6 Bytes (nicht konkurrierend)

nLJsk>

Probieren Sie es online!

JavaScript (ES6), 50 39 38 Byte

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

Versuch es

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>

Gelee , 5 Bytes

+⁵RVw

Probieren Sie es online!

Stax , 6 Bytes

⌐╛∙#»▓

Führen Sie es aus und debuggen Sie es

Perl 6 , 26 Bytes

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

Probieren Sie es online!

Findet den Index des Elements im verketteten Bereich von 0 bis zu diesem Element oder 11wenn die Zahl eine Null ist

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

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

Probieren Sie es online!

Erläuterung

(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 Bytes

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

Definiert eine Funktion mit einem Eingang ($ ^ a). Rufen Sie also an:

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

Anhängen $einer anonymen Variablen, die erhöht wird, $++bis die Eingabe $^agefunden wurde, und dann die Anzahl der Zeichen davor zählt. Das Erfordernis von mindestens 1 Zeichen, bevor es .+im regulären Ausdruck verwendet wird, schließt den Fall 0-> 0 sinnvollerweise aus

J, 30 Bytes

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

Könnte wahrscheinlich ein bisschen tiefer liegen, insbesondere bei der Verkettung der ersten n + 10 Ganzzahlen.

Erläuterung:

{.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

Beachten Sie, dass dies 0-indiziert ist. Beispiele:

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

Schale , 6 Bytes

€ΣmdNd

Probieren Sie es 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.