有时要入睡，我会尽力而为，而跳过那些不是平方的数字。当我连续跳过几个数字时，我会有些激动-例如，48,49,50并非全部都是无平方的（48被2 ^ 2整除，49被7 ^ 2整除，而50被5 ^ 2整除）。

这使我想知道相邻数被任意除数序列整除的最早示例。

输入项

输入是a = [a_0, a_1, ...]包含至少1个元素的严格正整数的有序列表。

输出量

输出是最小的正整数，n具有可a_0划分n，a_1划分n+1，更一般地a_k划分的属性n+k。如果不n存在，则功能/程序的行为未定义。

测试用例

[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

计分

这是代码高尔夫球；最短的结果（每种语言）赢得吹牛的权利。通常的漏洞被排除在外。

Wolfram语言（Mathematica），51个字节

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

在线尝试！

外壳，7个字节

VδΛ¦⁰ṫN

在线尝试！

说明

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个字节

`Gf@q+G\a}@

在线尝试！

`           % 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.

尚未完全针对速度进行优化...使用MATL进行最大的测试用例需要一整分钟，而在MATLAB上则需要大约0.03s。MATL的开销很小。

JavaScript，42 40字节

如果没有解决方案（或解决方案太大），将引发递归错误。

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

使用Rick Hitchcock的指针保存了2个字节

试试吧

输入逗号分隔的数字列表。

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个字节

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

在线尝试！

05AB1E，9个字节

Xµā<N+sÖP

在线尝试！

说明

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字节

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

在线尝试！

编辑：-1字节感谢妮米！

干净，61字节

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

在线尝试！

Pyth，11个字节

f!s.e%+kTbQ 

在线尝试！

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个字节

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

在线尝试！

R，51字节

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

在线尝试！

使用有关any将k隐式转换为的引发警告logical，其中k返回值为。

Perl 6，34个字节

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

在线尝试！

APL（Dyalog Unicode），24 23 22字节

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

在线尝试！

从技术上讲，这是默认功能。我必须这样做，因为允许的唯一输入是整数列表。用途⎕IO←0（0索引）

值得注意的是，该功能如果n不存在就会超时。

感谢@ngn和@ H.PWiz每个1字节。

怎么样？

{∨/×⍺|⍵+⍳≢⍺:⍺∇⍵+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字节

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

在线尝试！

Japt，10个字节

undefined如果不存在任何解决方案，并且最终没有使您的浏览器崩溃，它将最终输出。

@e_X°vZÃ}a

试试吧

说明

               :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?

红宝石，48个字节

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

在线尝试！

Python 2，80个字节

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

在线尝试！

标准ML（MLton），96字节

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

在线尝试！

取消高尔夫：

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

在线尝试！从开始n=1，函数f递增n直到all满足-condition为止，在这种情况下n返回。

tabulate(m,g)用一些整数m和函数g构建列表[g 0, g 1, ..., g m]。在我们的条件tabulate被称为与输入列表的长度l和一个函数，它检查是否i的第i个元素l划分n+i。这会产生一个布尔值列表，因此all使用identity函数fn x=>x检查所有元素是否为真。

我发现了一个很好的高尔夫技巧，可以在这种情况下将标识函数缩短四个字节：代替lambda (fn x=>x)，使用了内置函数hd，该函数返回列表的第一个元素，并且将生成的布尔值tabulate包装在[和]中创建单例列表。

PowerShell，65 62字节

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

在线尝试！

PowerShell没有等价的anyor some或类似物，因此我们需要一种略有不同的方法。

这将输入$args[0]作为数组，然后进入无限for循环。我们将每个迭代设置$o为1（稍后说明），并设置$i为++$j。递增$j会保留关于拟议解决方案的第一个数字的标签，而$i将在其余拟议解决方案上递增。

然后，我们将输入的每个元素发送$args[0]到ForEach-Object循环中。在内部循环中，我们将布尔$o结果乘以运算结果。这样一来，如果计算失败，$o则将变为0。计算为!($i++%$_)，或取模运算的布尔值-非。由于在PowerShell中任何非零值都是真实的，因此这会将所有余数转换为伪值，从而$o变为0。

在内部循环之外，它if $o为非零值，我们发现一个递增的解决方案有效，因此我们输出$j和exit。

tinylisp，108字节

(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

最后一行是一个未命名的lambda函数，该函数接受一个列表并返回一个整数。在线尝试！

不打高尔夫球

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

朱莉娅0.6，79字节

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

在线尝试！

没有有效的solutiosn的输入将导致无限循环... :)

Python 2，78个字节

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

编辑：-26感谢@Chas Brown

果冻，10字节

1Ḷ+$ọ¥Ạ¥1#

在线尝试！

APL NARS，140字节，70个字符

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

测试

  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字节

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->{                 // 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字节

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

在线尝试！

注意：该(1..)语法仅在ruby 2.6中受支持，目前TIO仅支持2.5，因此链接指向较旧的版本（43字节）。