Bazen uykuya dalmak için olabildiğince yüksek, sayısız kare atlayarak sayıları sayacağım . Üst üste birkaç sayıyı atladığımda biraz heyecanlanıyorum - örneğin, 48,49,50hepsi karesizdir (48 2 ^ 2, 49 x 7 ^ 2 ve 50 x 5 ^ 2 ile bölünebilir).

Bu beni, bazı rasgele bölen dizileri tarafından bölünebilen en yakın bitişik sayı örneği hakkında merak etmeme neden oldu.

Giriş

Giriş, a = [a_0, a_1, ...]en az 1 öğe içeren kesinlikle pozitif tam sayıların sıralı bir listesidir .

Çıktı

Çıktı, bölen , bölen ve daha genel olarak bölen nözellik ile en küçük pozitif tam sayıdır . Eğer böyle bir şey yoksa, fonksiyon / programın davranışı tanımlanmaz.a_0na_1n+1a_kn+kn

Test Kılıfları

[15] -> 15
[3,4,5] -> 3
[5,4,3] -> 55
[2,3,5,7] -> 158
[4,9,25,49] -> 29348
[11,7,5,3,2] -> 1518

puanlama

Bu kod golf ; en kısa sonuç (dil başına) palavra haklarını kazanır. Her zamanki boşluklar hariçtir.

Wolfram Dili (Mathematica) , 51 bayt

Mod[ChineseRemainder[1-Range@Length@#,#],LCM@@#,1]&

Çevrimiçi deneyin!

Kabuğu , 7 bayt

VδΛ¦⁰ṫN

Çevrimiçi deneyin!

açıklama

VδΛ¦⁰ṫN  Input is a list x.
      N  The list [1,2,3...
     ṫ   Tails: [[1,2,3...],[2,3,4...],[3,4,5...]...
V        Index of first tail y satisfying this:
  Λ       Every element
    ⁰     of x
   ¦      divides
 δ        the corresponding element of y.

MATL , 11 bayt

`Gf@q+G\a}@

Çevrimiçi deneyin!

`           % Do ....
 Gf         %   Convert input to [1,2,...,]
   @q+      %   Add current iteration index minus one, to get [n, n+1, ....]
      G\    %   Elementwise mod([n,n+1,...],[a_0,a_1,...])
        a   % ...while any of the modular remainders is nonzero.
         }  % Finally:
          @ %   Output the iteration index.

Hız için tam olarak optimize edilmemiş ... en büyük test çantası MATL kullanarak tam bir dakika ve MATLAB üzerinde yaklaşık 0.03 saniye sürer. MATL'in biraz daha fazla ek yükü olma ihtimali çok düşük.

JavaScript, 42 40 bayt

Çözüm yoksa (veya çözüm çok büyükse) bir özyineleme hatası atar.

a=>(g=y=>a.some(x=>y++%x)?g(++n):n)(n=1)

Rick Hitchcock'dan bir işaretçi ile 2 bayt kurtardı

Dene

Virgülle ayrılmış bir numara listesi girin.

o.innerText=(f=
a=>(g=y=>a.some(x=>y++%x)?g(++n):n)(n=1)
)(i.value=[5,4,3]);oninput=_=>o.innerText=f(i.value.split`,`.map(eval))

<input id=i><pre id=o>

Python 3 , 62 bayt

f=lambda x,n=1:all(j%k<1for j,k in enumerate(x,n))or-~f(x,n+1)

Çevrimiçi deneyin!

05AB1E , 9 bayt

Xµā<N+sÖP

Çevrimiçi deneyin!

açıklama

Xµ          # loop until counter equals 1
  ā         # push range [1 ... len(input)]
   <        # decrement
    N+      # add current iteration index N (starts at 1)
      sÖ    # elementwise evenly divisible by
        P   # product
            # if true, increase counter
            # output N

Haskell , 45 44 bayt

f a=[n|n<-[1..],1>sum(zipWith mod[n..]a)]!!0

Çevrimiçi deneyin!

Düzenleme: nimi sayesinde -1 bayt!

Temiz , 61 bayt

import StdEnv
$l=hd[n\\n<-[1..]|and[i/e*e==i\\i<-[n..]&e<-l]]

Çevrimiçi deneyin!

Pyth , 11 bayt

f!s.e%+kTbQ 

Çevrimiçi deneyin!

f!s.e%+kTbQ         Full program - inputs list from stdin and outputs to stdout
f                   First number T such that
   .e     Q         The enumerated mapping over the Input Q
      +kT           by the function (elem_value+T)
     %   b          mod (elem_index)
 !s                 has a false sum, i.e. has all elements 0

J , 23 bayt

[:I.0=]+/@:|"1#]\[:i.*/

Çevrimiçi deneyin!

R , 51 bayt

function(l){while(any((F+1:sum(l|1))%%l))F=F+1
F+1}

Çevrimiçi deneyin!

Kullanımı anyatar körtülü dönüşümü hakkında uyarı logical, kdönüş değeridir.

Perl 6 , 34 bayt

->\a{first {all ($_..*)Z%%a},^∞}

Çevrimiçi deneyin!

APL (Dyalog Unicode) , 24 23 22 bayt

{∨/×⍺|⍵+⍳⍴⍺:⍺∇⍵+1⋄⍵}∘1

Çevrimiçi deneyin!

Teknik olarak, bu tam bir işlevdir. Bunu yapmak zorundaydım çünkü izin verilen tek girdi tamsayıların listesi. Kullanım Alanları ⎕IO←0(0-indexing)

İşlev yoksa n, zaman aşımına uğrarsa dikkat edin .

Her biri 1 byte için @ngn ve @ H.PWiz'e teşekkürler.

Nasıl?

{∨/×⍺|⍵+⍳≢⍺:⍺∇⍵+1⋄⍵}∘1 ⍝ Main function. ⍺=input; ⍵=1.
{                   }∘1 ⍝ Using 1 as right argument and input as left argument:
           :            ⍝ If
        ⍳≢⍺             ⍝ The range [0..length(⍺)]
      ⍵+                ⍝ +⍵ (this generates the vector ⍵+0, ⍵+1,..., ⍵+length(⍺))
    ⍺|                  ⍝ Modulo ⍺
   ×                    ⍝ Signum; returns 1 for positive integers, ¯1 for negative and 0 for 0.
 ∨/                     ⍝ Logical OR reduction. Yields falsy iff the elements of the previous vector are all falsy.
            ⍺∇⍵+1       ⍝ Call the function recursively with ⍵+1.
                 ⋄⍵     ⍝ Else return ⍵.

Perl 5 , 49 + 2 ( -pa) = 51 bayt

$i=!++$\;($\+$i)%$_&&last,$i++for@F;$i<@F&&redo}{

Çevrimiçi deneyin!

Japt, 10 bayt

undefinedİlk önce tarayıcınızı kilitlememesi durumunda, hiçbir çözüm yoksa, sonuçta çıkacaktır .

@e_X°vZÃ}a

Dene

açıklama

               :Implicit input of array U
@       }a     :Loop and output the first integer X that returns true.
 e_    Ã       :For every element Z in U
   X°          :X, postfix increcemnted
     vZ        :Is it divisible by Z?

Ruby , 48 bayt

->l{1+(1..1/0.0).find{|x|l.all?{|y|(x+=1)%y<1}}}

Çevrimiçi deneyin!

Python 2,80 bayt

def f(l,n=1):
 while n:
	n+=1
	if all((n+i)%v<1for i,v in enumerate(l)):return n

Çevrimiçi deneyin!

Standart ML (MLton) , 96 bayt

open List;fun$n% =if all hd(tabulate(length%,fn i=>[1>(n+i)mod nth(%,i)]))then n else$(n+1)%;$1;

Çevrimiçi deneyin!

Ungolfed:

open List
fun f n l = 
    if all (fn x=>x)
           (tabulate ( length l
                     , fn i => (n+i) mod nth(l,i) = 0))
    then n 
    else f (n+1) l
val g = f 1

Çevrimiçi deneyin! Başlangıçtan itibaren n=1, işlev yerine getirilene kadar fartar , bu durumda döndürülür.nalln

tabulate(m,g)bazı tamsayı mve fonksiyonlarla glisteyi oluşturur [g 0, g 1, ..., g m]. Bizim durumumuzda tabulategiriş listesinin uzunluğu lve ith öğesinin lbölünüp bölünmediğini kontrol eden bir işlev ile çağrılır n+i. Bu, bir boole listesi verir, böylece allkimlik fonksiyonu ile fn x=>xtüm öğelerin doğru olup olmadığını kontrol eder.

Dört bayt Bu durumda kimlik fonksiyonu kısaltmak için iyi bir golf hile Bulunan: yerine lambda (fn x=>x), yapı-fonksiyon hdlistesi ilk elemanı döndüren kullanılır ve elde edilen bool değerlerden oluşan içinde tabulatesarılır [ve ]hiç singleton listeleri oluşturun.

PowerShell , 65 62 bayt

for(){$o=1;$i=++$j;$args[0]|%{$o*=!($i++%$_)};if($o){$j;exit}}

Çevrimiçi deneyin!

PowerShell bir eşdeğer yoktur anyya somebiz biraz daha farklı bir yaklaşıma ihtiyacımız nedenle, benzeri veya.

Bu, $args[0]diziyi girdi olarak alır , sonra sonsuz bir fordöngüye girer . Her belirlediğimiz yineleme $oolmak 1(daha sonra açıklanacaktır) ve seti $iolmak ++$j. Artış $j, önerilen çözümün $igeri kalanı üzerinde artmaya devam ederken, önerilen çözümün ilk sayısının ne olduğuna dair sekmeleri tutar .

Daha sonra girişin her elemanını $args[0]bir ForEach-Objectdöngüye göndeririz . İç döngü içinde, $obir hesaplama sonucu Boole ile çarpılırız . Bu, hesaplama bir değer için başarısız olursa $o, dönüşecek şekilde yapacaktır 0. Hesaplama !($i++%$_)veya modulo işleminin Boole değeridir. PowerShell'de sıfır olmayan herhangi bir değer eksik olduğundan, bu, kalanları bir yanlış değere dönüştürür $ove böylece dönüşür 0.

İç döngünün dışında if $o, sıfır değil, işe yarayan artan bir çözüm bulduk, çıktı alıyoruz $jve exit.

tinylisp , 108 bayt

(load library
(d ?(q((L N)(i L(i(mod N(h L))0(?(t L)(inc N)))1
(d S(q((L N)(i(? L N)N(S L(inc N
(q((L)(S L 1

Son satır, liste alan ve bir tamsayı döndüren adsız bir lambda işlevidir. Çevrimiçi deneyin!

Ungolfed

(load library)

(comment Function to check a candidate n)
(def sequentially-divisible?
 (lambda (divisors start-num)
  (if divisors
   (if (divides? (head divisors) start-num)
    (sequentially-divisible? (tail divisors) (inc start-num))
    0)
   1)))

(comment Function to check successive candidates for n until one works)
(def search
 (lambda (divisors start-num)
  (if (sequentially-divisible? divisors start-num)
   start-num
   (search divisors (inc start-num)))))

(comment Solution function: search for candidates for n starting from 1)
(def f
 (lambda (divisors)
  (search divisors 1)))

Julia 0.6 , 79 bayt

f(s,l=length(s),n=s[])=(while !all(mod.(collect(0:l-1).+n,s).==0);n+=s[];end;n)

Çevrimiçi deneyin!

Geçerli çözüm olmadan girişler sonsuz döngüye neden olur ... :)

Python 2,78 bayt

def f(a,c=0):
 while [j for i,j in enumerate(a) if(c+i)%j<1]!=a:c+=1
 return c

EDIT: -26 @Chas Brown sayesinde

Jöle , 10 bayt

1Ḷ+$ọ¥Ạ¥1#

Çevrimiçi deneyin!

APL NARS, 140 bayt, 70 karakter

r←f w;i;k
i←r←1⊃,w⋄k←¯1+⍴w⋄→0×⍳k=0
A:→0×⍳0=+/(1↓w)∣(k⍴r)+⍳k⋄r+←i⋄→A

Ölçek

  f 15
15
  f 3 4 5
3
  f 5 4 3
55
  f 2 3 5 7
158
  f 4 9 25 49
29348
  f 11 7 5 3 2 
1518

Java 8, 82 75 bayt

a->{for(int r=1,i,f;;r++){i=f=0;for(int b:a)f+=(r+i++)%b;if(f<1)return r;}}

Açıklama:

Çevrimiçi deneyin.

a->{                 // Method with integer-array parameter and integer return-type
  for(int r=1,       //  Return-integer, starting at 1
          i,         //  Index-integer
          f;         //  Flag-integer
      ;r++){         //  Loop indefinitely, increasing `r` by 1 after every iteration
    i=f=0;           //   Reset both `i` and `f` to 0
    for(int b:a)     //   Inner loop over the input-array
      f+=(r+i++)%b;  //    Increase the flag-integer by `r+i` modulo the current item
    if(f<1)          //   If the flag-integer is still 0 at the end of the inner loop
      return r;}}    //    Return `r` as result

Ruby , 47 46 43 42 bayt

->a{(1..).find{|i|a.all?{|v|i%v<1&&i+=1}}}

Çevrimiçi deneyin!

Not: (1..)sözdizimi sadece Ruby 2.6'da desteklenir, çünkü TIO sadece 2.5'i desteklediği için bağlantı eski bir sürüme (43 bayt) gelir.