_{이 질문 의 속편 .}

태스크

양의 정수 배열이 주어지면 가장 큰 요소 k 를 찾으십시오 .

존재 어떤 양의 정수 거리 , n은 어레이의 요소가 위치되도록, 해당  장소가 왼쪽 또는 오른쪽에서 k는 동일 없음 .

배열은이 조건을 만족시키는 요소를 하나 이상 포함합니다.

가장 짧은 코드 (바이트)가 이깁니다. 원하는 I / O 형식을 선택할 수 있습니다.

예

주어진 입력

[4, 6, 7, 9, 3, 6, 5, 7, 2]

적합한 값은 다음과 같습니다.

• 는 4, 같은 거기 7오른쪽에 7 위치에 위치
• 제가 6하는 바와 같이이 3오른쪽에 3 개 위치에 위치한
• 는 3, 같은 거기 4그 왼쪽에 위치한 4 개 포지션
• 는 5, 같은 거기 2오른쪽 2 위치에 위치
• 둘째 7하는 존재로 3그 왼쪽에 위치한 3 개 개의 위치.

이 값 중 가장 큰 값은 7입니다.

테스트 사례

[1, 13] → 13
[2, 9, 8, 3, 72, 2] → 8
[5, 28, 14, 5, 6, 3, 4, 7] → 14
[1, 3, 5, 15, 4, 1, 2, 6, 7, 7] → 7
[5, 1, 3, 5, 2, 5, 5, 8, 5, 1, 5, 1, 2, 3] → 5
[5, 12, 2, 5, 4, 7, 3, 3, 6, 2, 10, 5, 5, 5, 4, 1, 8, 5] → 10

젤리 , 9 바이트

Jạþ`=ḅa¹Ṁ

온라인으로 사용해보십시오! 또는 모든 테스트 사례를 확인하십시오 .

작동 원리

Jạþ`=ḅa¹Ṁ  Main link. Argument: A (array)

J          Indices; yield [1, ..., len(A)].
   `       Use the previous return value as left and right argument:
 ạþ        Absolute difference table; take the absolute value of the difference
           of each pair of indices, yielding a 2D array.
    =      Compare each absolute difference with the corresponding item of A.
     ḅ     Base; convert each Boolean list from base i to integer, where i is the
           corresponding item of A. The value of i is not important; we only care
           if the list contains a 1, which will result in a non-zero integer.
       ¹   Identity; yield A.
      a    Logical AND; replace non-zero values with the corresponding items of A.
        Ṁ  Take the maximum.

05AB1E , 21 바이트

vyN+Ny-})¹gL<Ãv¹yè})Z

설명

v      }               # for each num in input
 yN+                   # push index + num
    Ny-                # push index - num
        )              # wrap stack in a list
         ¹gL<Ã         # remove indices outside the range of input
              v¹yè})   # get list of elements in input at the remaining indices
                    Z  # get max

온라인으로 사용해보십시오!

하스켈, 61 57 55 바이트

f x=maximum[a|(n,a)<-x,(i,b)<-x,b==abs(n-i)]
f.zip[0..]

사용 예 : (f.zip[0..]) [5,28,14,5,6,3,4,7] -> 14.

(더 많거나 적은) 정의의 직접 구현 : n입력 목록의 각 색인마다 색인 이 있으면 x유지 a := x!!n하십시오.ib := x!!i equals 있는abs(n-i) . 최대 값을 찾으십시오.

편집 : @xnor은 2 바이트를 저장했습니다. 감사!

젤리 , 10 바이트

,N+JFfJị¹Ṁ

온라인으로 사용해보십시오! 또는 모든 테스트 사례를 확인 .

작동 원리

,N+JFfJị¹Ṁ  Main link. Argument: A (array)

,N          Pair A with -A (element-wise negative).
   J        Yield the indices of A [1, ..., len(A)].
  +         Add the elements of A (and their negatives) with the corr. indices.
    F       Flatten the resulting 2D array.
     fJ     Filter indices; remove invalid indices (not in [1, ..., len(A)]) from
            the generated array. The result is the list of all indices of eligible
            elements of A.
       ị¹   Retrieve the corresponding elements of A.
         Ṁ  Take the maximum.

파이썬 3, 85 80 72 바이트

lambda l,e=enumerate:max(i for p,i in e(l)for s,j in e(l)if j==abs(s-p))

편집 : @ Dennis 덕분에 -8 바이트

엑셀 : 32 30 바이트

=MAX(IF(A:A-ROW(A:A)<0,A:A,0))

나는 이것이 내가 짧다는 것을 믿을 수 없다 ...

사용법 :
열 A의 셀을 제외한 모든 셀에 이것을 붙여 넣습니다 . 붙여 넣은 후에도 편집하는 동안 control+ shift+ enter를 눌러 올바르게 입력하십시오.
CSV 항목에 따라 셀당 1 개의 값을 열 A에 입력하십시오.

이것이 어떻게 작동하는지 알고 싶다면 Excel의 골프 팁 질문에 추가 팁을 게시했습니다 .

자바 스크립트 (ES6), 61 바이트

a=>Math.max(...a.filter((_,i)=>a.some((e,j)=>e==i-j|e==j-i)))

펄, 45 바이트

에 +2 포함 -ap

STDIN의 줄에 숫자를 적으십시오.

largest.pl <<< "5 12 2 5 4 7 3 3 6 2 10 5 5 5 4 1 8 5"

largest.pl:

#!/usr/bin/perl -ap
($_)=sort{$b-$a}map@F[$^P=$n-$_,$n+++$_],@F

교체하여 하나 이상의 바이트를 얻을 수 있습니다 ^P리터럴 제어 문자 하여 있지만 최근 perls에서 STDERR에 경고가 발생합니다.

가정 largest number + array length < 2^32

Pyth, 19 17 바이트

-2 바이트에 대한 @ Pietu1998 덕분에

eS@LQ@UQs.e,-kb+b

STDIN에 목록을 입력하고 결과를 인쇄하는 프로그램.

온라인으로 사용해보십시오

작동 원리

eS@LQ@UQs.e,-kb+b  Program. Input: Q
         .e        Map over Q (implicit input fill) with elements as b and indices as k:
            -kb     k-b
               +b   k+b (Implicit fill with k)
           ,        2-element list of those (possible indices)
        s          Flatten that
      UQ           Yield [0, 1, 2, 3..., len(Q)-1]
     @             Filter the flattened list by presence in the above, removing invalid
                   indices
  @LQ              Index into Q at those indices
 S                 Sort that
e                  Yield the last element of that, giving the maximum
                   Implicitly print

MATL, 13 바이트

ttn:tYTq=a)X>

입력은 열 벡터 여야합니다. 즉, 입력은 [1; 2; 3]과 같이 세미콜론으로 구분되거나 끝에 [1,2,3] '과 같이 쉼표로 쉼표로 구분됩니다.

온라인으로 사용해보십시오!

모든 테스트 사례 : (A) , (B) , (C) , (D) , (E) , (F)

MATL 대화방 에서 2자를 절약 할 수 있는 제안에 대해 Suever에게 감사드립니다 .

설명:

전반적인 전략은 Octave / MATLAB 답변과 동일하며 기본 개념은 https://codegolf.stackexchange.com/a/94161/42247입니다.

이 MATL 답변의 특정 코드는 다음과 같이 구성됩니다.

이 방법의 핵심은 ij '번째 항목이 abs (ij) 인 Toeplitz 매트릭스의 구성입니다. 먼저 다음과 같이 MATL의 toeplitz 명령 YT로 항목 abs (i-1) +1을 사용하여 Toeplitz 행렬을 구성합니다.

n:tYT % Equivalent to @(v)toeplitz(1:length(v))

이것이 어떻게 작동하는지보기 위해이 코드 스 니펫 'v'에 입력 벡터를 호출 해 봅시다. 'n'은 v의 길이를 찾은 다음 ':'은 벡터 1 : length (v)를 구성합니다. 다음으로 't'는 스택에 1 : length (v)의 다른 사본을 만듭니다. 이 추가 사본은 MATL의 YT 함수에 잘 알려진 버그 (toeplitz ()와 동등한 MATL)로 인해 필요합니다. 여기서 1 대신 입력 사본이 2 개가 필요합니다. 그러면 YT는이 벡터의 사본 2 개를 가져옵니다 1 : length (v)를 스택에서 빼고 abs (ij) +1 Toeplitz 행렬을 스택에서 만듭니다.

이제이 행렬에서 1을 빼서 abs (ij) 항목이있는 Toeplitz 행렬을 구하고이 abs (ij) Toeplitz 행렬이 입력의 열 복사본을 포함하는 모든 열 벡터의 행렬과 동일한 ij 위치를 찾아야합니다. 벡터 v. 이것은 다음과 같이 수행됩니다.

t n:tYT q=
% t [code] q= is equivalent to @(v) [code](v)-1 == v

첫 번째 't'는 추가 입력 사본을 만들어 스택에 저장합니다. 'n : tYT'는 앞에서 설명한대로 toeplitz 매트릭스를 만들어 스택으로 출력합니다. 그런 다음 'q'는 Toeplitz 행렬에서 1을 빼고 '='는 abs (ij) 행렬과 열이 입력의 복사 본인 벡터 간의 요소 별 등가 비교를 수행합니다. 열 벡터를 행렬과 비교함으로써 MATLAB / MATL의 연산자 브로드 캐스트 규칙을 암시 적으로 활용합니다 (비교의 열 벡터는 명령을 실행하지 않고 행렬을 만들기 위해 복사됩니다).

마지막으로, 위에 구성된 행렬 차이의 ij 번째 항목이 1과 같은 열 j가있는 행 인덱스 i를 찾은 다음이 인덱스에 해당하는 입력 벡터의 값을 얻은 다음 최대 값을 가져옵니다. 이것은 다음 세 단계로 이루어집니다.

1) 0이 아닌 행을 포함하는 인덱스를 찾으십시오.

tn:tYTq= a
% [code] a is equivalent to @(v) any([code](v))

2) 해당 인덱스에 해당하는 입력 벡터의 요소를 추출하십시오.

t tn:tYTq= a ) X>
% t [code] ) is equivalent to @(v) v([code](v)]

3) 최대 요소를 찾아 반환하십시오.

t tn:tYTq= a ) X>
% [code] X> is equivalent to @(v) max(v).

루비, 66 바이트

->a{i=-1;a.map{|e|i+=1;[a[j=i+e]||0,a[0>(k=i-e)?j:k]||0].max}.max}

옥타브 / MATLAB, 40 바이트

@(v)max(v(any(toeplitz(1:nnz(v))-v==1)))

입력은 열 벡터 여야합니다.

3 바이트 절약 제안에 대해 Luis Mendo에게 감사드립니다 (의견 참조).

4 바이트를 더 절약하는 제안에 대해 Suever에게 감사드립니다 (~ ((())를 any ()로 대체)

설명:

입력 벡터 v가 주어지면,이 문제는 다음의 이산 방정식의 모든 솔루션 i, j를 찾는 것과 같습니다.

abs(i-j) = v(i),   i,j both in 1..k,

여기서 abs ()는 절대 값 함수입니다. 이 방정식이 해결되는 각 v (i)는 우리가 최대화 할 수있는 후보 솔루션 중 하나입니다.

i와 j의 이산 함수로서, 왼쪽에 대한 모든 가능성은 다음과 같은 토플 리츠 행렬로 배열 될 수 있습니다.

[0, 1, 2, 3, 4]
[1, 0, 1, 2, 3]
[2, 1, 0, 1, 2]    <--- abs(i-j)
[3, 2, 1, 0, 1]
[4, 3, 2, 1, 0]

오른쪽은 i에 의존하지 않기 때문에 모든 가능성은 열이 입력의 복사 본인 행렬로 배열 될 수 있습니다.

[v(1), v(1), v(1), v(1), v(1)]
[v(2), v(2), v(2), v(2), v(2)]
[v(3), v(3), v(3), v(3), v(3)]   <--- v(i)
[v(4), v(4), v(4), v(4), v(4)]
[v(5), v(5), v(5), v(5), v(5)]

방정식에 대한 모든 해를 구하기 위해이 두 행렬을 빼고 0이있는 위치를 찾습니다. 0이있는 행은 원하는 인덱스 i에 해당하고, 여기서 a (j)는 abs (ij) = v (i)가됩니다.

다른 트릭 :

• 절대 값 함수에 1 (abs (ij) +1)을 더한 문자를 더 적게 사용하고 실제 (변이되지 않은) 절대 값 함수를 구성하는 대신 차이가 1 인 위치를 확인하십시오.
• 자동 운영자 브로드 캐스팅을 사용하여 v의 열 사본을 내재적으로 작성
• length () 대신 nnz ()를 통해 입력의 길이를 가져옵니다. 이는 문제 설명에서 입력이 양수라고 말하므로 작동합니다.

수학, 69 바이트

Max@MapIndexed[{If[#2[[1]]>#,a[[#2-#]],{}],a[[#2+#]]~Check~{}}&,a=#]&

익명의 기능. 정수 목록을 입력으로 취하고 정수를 출력으로 리턴합니다. 생성 된 메시지를 무시하십시오.

스칼라, 94 바이트

a=>a.zipWithIndex.filter(p=>a.zipWithIndex.exists(x=>x._1==Math.abs(p._2-x._2))).unzip._1.max

PHP, 128 바이트

<?foreach(($i=$_GET[i])as$k=>$v){$k-$v<0?:!($i[$k-$v]>$m)?:$m=$i[$k-$v];if($k+$v<count($i))if($i[$k+$v]>$m)$m=$i[$k+$v];}echo$m;

자바 7, 125 123 바이트

int c(int[]a){int r=0,i=0,l=a.length,x;for(;i<l;r=l>(x=i+a[i])?a[x]>r?a[x]:r:r,r=(x=i-a[i++])>0?a[x]>r?a[x]:r:r);return r;}

@mrco 덕분에 2 바이트가 절약 되었습니다 .

Ungolfed (정렬) 및 테스트 코드 :

여기에서 시도하십시오.

class M{
  static int c(int[] a){
    int r = 0,
        i = 0,
        l = a.length,
        x;
    for(; i < l; r = l > (x = i + a[i])
                      ? a[x] > r
                         ? a[x]
                         : r
                      : r,
                 r = (x = i - a[i++]) > 0
                      ? a[x] > r
                         ? a[x]
                         : r
                      : r);
    return r;
  }

  public static void main(String[] a){
    System.out.println(c(new int[]{ 1, 13 }));
    System.out.println(c(new int[]{ 2, 9, 8, 3, 72, 2 }));
    System.out.println(c(new int[]{ 5, 28, 14, 5, 6, 3, 4, 7 }));
    System.out.println(c(new int[]{ 1, 3, 5, 15, 4, 1, 2, 6, 7, 7 }));
    System.out.println(c(new int[]{ 5, 1, 3, 5, 2, 5, 5, 8, 5, 1, 5, 1, 2, 3 }));
    System.out.println(c(new int[]{ 5, 12, 2, 5, 4, 7, 3, 3, 6, 2, 10, 5, 5, 5, 4, 1, 8, 5 }));
  }
}

산출:

13
8
14
7
5
10

자바, 118 바이트

int f(int[]a){int t=0,i,j,z=0,l=a.length;while(t<l*l){i=t/l;j=t++%l;z=a[i]>z&&((i<j?j-i:i-j)==a[j])?a[i]:z;}return z;}

파이썬, 58 바이트

Tony S.의 Ruby 답변을 기반으로 합니다. 이 답변은 Python 2 및 3에서 작동합니다. 골프 제안을 환영합니다.

lambda n:max([n[i+v]for i,v in enumerate(n)if i+v<len(n)])

언 골핑

def f(array):
    result = []
    for index, value in enumerate(array):
        if index + value < len(array):
            result.append(array[index + value])
    return max(result)

루비 56 바이트

가장 작은 루비 솔루션.

->n{x=[];i=0;n.map{|v|x<<n[v+i]&&v+i<n.size;i+=1};x.max}

레일 콘솔에서 테스트하기 매우 쉽습니다.

a = ->n{x=[];i=0;n.map{|v|x<<n[v+i]&&v+i<n.size;i+=1};x.max}
a[[1, 13]
=> 13
a[[2, 9, 8, 3, 72, 2]]
=> 8
a[[5, 12, 2, 5, 4, 7, 3, 3, 6, 2, 10, 5, 5, 5, 4, 1, 8, 5]]
=> 10

이것은 63 바이트에서 시작되었습니다.

실제로 17 바이트

이 답변은 실제로 파이썬 답변의 포트입니다 . 골프 제안을 환영합니다. 온라인으로 사용해보십시오!

;╗ñ♂Σ⌠╜l>⌡░⌠╜E⌡MM

언 골핑

         Implicit input L.
;╗       Duplicate L and save a copy of L to register 0.
ñ        enumerate() the other copy of L.
♂Σ       sum() all the pairs of [index, value of n]. Call this list Z.
⌠...⌡░   Push values of Z where the following function returns a truthy value. Variable v_i.
  ╜        Push L from register 0.
  l        Push len(L).
  >        Check if len(L) > v_i.
⌠...⌡M   Map the following function over Z_filtered. Variable i.
  ╜        Push L from register 0.
  E        Take the ith index of L.
M        max() the result of the map.
         Implicit return.

T-SQL (sqlserver 2016), 132 바이트

골프 :

;WITH C as(SELECT value*1v,row_number()over(order by 1/0)n FROM STRING_SPLIT(@,','))SELECT max(c.v)FROM C,C D WHERE abs(D.n-C.n)=D.v

언 골프 드 :

DECLARE @ varchar(max)='2, 9, 8, 3, 72, 2'

;WITH C as
(
  SELECT
    value*1v,
    row_number()over(order by 1/0)n
  FROM
    STRING_SPLIT(@,',')
)
SELECT
  max(c.v)
FROM
  C,C D
WHERE
  abs(D.n-C.n)=D.v

깡깡이

자바 스크립트 (ES6), 56 54 바이트

let f =
    
l=>l.map((n,i)=>m=Math.max(m,l[i+n]|0,l[i-n]|0),m=0)|m

console.log(f([1, 13])); // → 13
console.log(f([2, 9, 8, 3, 72, 2])); // → 8
console.log(f([5, 28, 14, 5, 6, 3, 4, 7])); // → 14
console.log(f([1, 3, 5, 15, 4, 1, 2, 6, 7, 7])); // → 7
console.log(f([5, 1, 3, 5, 2, 5, 5, 8, 5, 1, 5, 1, 2, 3])); // → 5
console.log(f([5, 12, 2, 5, 4, 7, 3, 3, 6, 2, 10, 5, 5, 5, 4, 1, 8, 5])); // → 10

클로저, 68 바이트

#(apply max(map(fn[i](get % i 0))(flatten(map-indexed(juxt - +)%))))

예를 들어 (map-indexed (juxt - +) [3 4 1 2])인 ([-3 3] [-3 5] [1 3] [1 5])(색인 +/-이 원래 벡터로부터 룩업 값으로 사용되며, 그 값 () 범위를 벗어난을 디폴트 0)과 최대 값을 알 수있다. 아직도 조금 장황한 느낌이 들지만 적어도 나는 사용해야합니다 juxt:)