Giriş

10 tabanında, Champernowne sabiti, ardışık tam sayıların temsillerini birleştirerek tanımlanır. 10 no'lu tabanda: 0.1234567891011121314151617...vb.

İlk görünüşte ondalıktan 15başladığını görebilirsiniz 20th:

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

İlk ondalık basamağın 45başlangıcı 4th:

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

Yani, görev kolaydır. Negatif olmayan bir tamsayı verildiğinde, tamsayı Champernowne sabitindeki konumunu gösterir.

kurallar

• Bir işlev veya program sağlayabilirsiniz
• Bu kod-golf , bu yüzden en az sayıda bayt olan gönderim kazanıyor!

Test durumları

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

İlk input + 10sayıları birleştirir sonra 0 tabanlı dizini artı bir tanesini bulur.

Test odası

LabVIEW, 29 LabVIEW İlkelleri

Bu şimdilik dizeleri kullanır. Girdiyi desen olarak eşleştirir ve ofset - (giriş uzunluğu -1) olarak çıkar.

Javascript, 57 bayt

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

Conor O'Brien sayesinde 1 bayt kaydedildi.

Haskell, 62 bayt

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

Kullanım örneği: (#(show=<<[1..])).show $ 2930-> 48.

Nasıl çalışır: a # bpozisyonunu bulur aiçinde b: eğer abir öneki bdönüşü 1, başka eklenti 1ile özyinelemeli çağrıya a # tail b. Pointfree işlevi (#(show=<<[1..])).show(adsız) bir argüman nve çağrılar bekler show n # show=<<[1..].

İşlev subIndexaynı zamanda işini de yapar #, ancak gereken işe import Data.List.Utilsyaramaz.

Ruby, 28

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

Eşleşmelerin 1 dizinli olmasını sağlamak için başlangıçta bir 0 içerir, ancak \Beşleşmenin dizenin başında olmamasını gerektirir.

Japt, 11 bayt

Bu başlangıçta Pyth'i yeniyordu, ama görünüşe göre girdi için işe yaramadı 0.

1+1oU+B ¬bU

Çevrimiçi deneyin!

Nasıl çalışır

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 Bayt

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

Not: Şu anda bu program hem dizenin ilk karakterinin ilk oluşumunu hem de bittiği noktayı yazdırır. Buna izin verilmezse, bir kaç bayta mal olur. Bonus almak istiyorum çünkü programım giriş numarasının hem ilk hem de son sırasını yazdırıyor.

MATL , 22 bayt

it10+:Yst' '=~)wYsXf1)

( i) Girişini alın, vektör 1'i + 10 ( 10+:) konumuna getirin, vektörü bir dizeye ( Ys) dönüştürün ve acı veren boşlukları kaldırın ( t' '=~)). Ardından, girişi bir dizgeye ( Ys) dönüştürün, giriş dizesinin sayı dizisinde nerede olduğunu bulun ( Xf) ve ilk konumu ( 1)) alın. tVar ve wsitesindeki yığını (sırasıyla, yinelenen ve takas) manipüle edilir.

PowerShell, 39 44 bayt

[Düzenleme: benim varsayımım tutmuyor, 1-0 arasında bir dizi oluşturmak, yerde 0 bulmuyor.

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

Her zaman bulacaksınız x eklediğinizde son noktada Champernowne sabit bir dizi oluştururken x ucuna 1-x bir dizi her zaman içinde cevap olacaktır böylece. Soru şu, "Bundan daha erken meydana geliyor mu?" . Bu kod

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

e.g.

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

bir sayı aralığı oluşturur, onu bir dizgeye aktarır ve içindeki parametreyi arar. PowerShell nesne yönelimli bir kabuk olduğundan, parametre aslında bir [int]türdür, bu nedenle iki karakteri kaydetmeye çalışmak .IndexOf($i)dizgede bir tamsayı arar ve hiçbir şey bulamaz. Bu yüzden string enterpolasyonu kullanıyorum "$i".

MATL (sürüm 1.0.1), 22 bayt

iXK10+:"@Ys]N$hKYsXf1)

Örnek

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

açıklama

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 (sürüm 20.8.0), 16 bayt (dil sonrası görevler tarihi)

Programın bu sürümü için @Giuseppe'e teşekkür ederiz (biraz değiştirilmiş)

10+:"@V]&hGVXf1)

Çevrimiçi deneyin!

açıklama

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 Bayt

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

Döngü için döngü değiştirme fikri için TessellatingHeckler teşekkürler .whilefor

Bir fordöngü ile yürütülür . Diğer dillerde olduğu gibi, döngüdeki ilk ifade değişkenler ve atamalar oluşturabilir, bu yüzden bu $csadece boş dizgeye eşit olarak başlar, böylece ''meydanın ondalık dizini ile dizilen dizgenin sıfır dizinine sahip oluruz. Biz bir döngü içinde daha sonra olduğunuzu olup olmadığını kontrol eder $cgirdi tamsayı (vardır $argsonun içinde) bir yere (yani bu yana .IndexOf()döner -1dize bulunmazsa, biz de buna bir tane ekleyin ( 0) ve (değil $TRUE) döngü devam etmek). $iBulunmazsa, önceden arttırılmış sayaç değişkenimizi ekleriz , sonra dizgiyi tekrar kontrol ederiz . Dize bulunduğunda, .IndexOf()pozitif olmayan bir değer döndürülür.$FALSE, döngüden kopuyor. Sonunda endeksi ile çıktı $x.

JavaScript (ES6), 40 bayt

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

fDöngüleri önlemek için özyinelemeli işlevi kullanır . Arama yöntemi ile aynı şekilde çalışan indexOfbu meydan okuma için alakasız bir parametre olarak bir RegExp alır dışında.

Bir durum " "için a eklenmesi n=0(JS'de sıfır yanlıştır), +ekleme yerine dize birleştirmeyi gerçekleştirmeye zorlar ve sıfır temelli dizin oluşturmayı düzeltir.

Python 3, 54.

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

CJam, 11 bayt

r_i),s\#Be|

Burada test et.

1 tabanlı indeksleme için hesaba Nkatar pozisyonunu buluyorum 01234...N. Sonunda 011 ile mantıksal OR uygulayarak düzeltirim .

Cidden, 13 bayt

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

Bir tamsayı olarak girdi alır. Yazdırılamaz, yani hexdump:

0c3bf739752b526024604de4a1

Çevrimiçi deneyin

Açıklama:

;≈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, 13 karakter / 22 bayt

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

Try it here (Firefox only).

k4, 21 bayt

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

Diğer herkesle aynı algo — [1..10+x]dizge olarak birleştirin , x'i dizge olarak arayın, tek tabanlı bir dizine dönüştürün, ilk isabeti döndürün.

Test durumlarını kontrol etmek:

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

Mathematica, 101 bayt

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

Haskell , 82 73 55 bayt

Çoğaltmadan taşındı

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

Çevrimiçi deneyin!

açıklama

İlk önce tanımlarız !. ilk görünümüne x!bkısalır . Bunu, eğer başlıyorsa ( ) ile başlayıp başkasına döndürerek başlayıp başlamayacağınızı kontrol ederek yapar. Sonra ana işlevimizi tanımlarız. Ana fonksiyonumuz sabiti ( ) sabitleyen ve onu ilk görünümüne kesen noktasuz bir fonksiyondur . Bu bir dize olarak alır .bxbxor$zipWith(==)x bxshow=<<[1..]xx

05AB1E , 6 bayt ( yarışmaz )

nLJsk>

Çevrimiçi deneyin!

JavaScript (ES6), 50 39 38 bayt

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

Dene

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>

Jöle , 5 bayt

+⁵RVw

Çevrimiçi deneyin!

Stax , 6 bayt

⌐╛∙#»▓

Koş ve hata ayıkla

Perl 6 , 26 bayt

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

Çevrimiçi deneyin!

0'dan o öğeye birleştirilmiş aralıktaki öğenin dizinini bulur veya 11sayı sıfırsa

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

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

Çevrimiçi deneyin!

açıklama

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

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

Tek girişli bir fonksiyon tanımlar ($ ^ a). Arayın:

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

$Anonim bir değişken ekleme , $++giriş bulunana kadar artırma $^ave ondan önceki karakter sayısını sayma. Regex'ten önce en az 1 karakter gerektirmesi .+, 0-> 0 harfini hariç tutar

J, 30 Bayt

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

Muhtemelen ilk n + 10 tam sayılarını bir araya getirmede biraz daha golf oynayabilirdi.

Açıklama:

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

Bunun 0 indeksli olduğuna dikkat edin. Örnekler:

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

Kabuğu , 6 bayt

€ΣmdNd

Çevrimiçi deneyin!

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