이 도전을 짧게 유지하십시오.

p1, p2, p3 및 p4의 4 가지 숫자가 제공됩니다.

숫자의 마법 합계는 다음과 같이 정의됩니다.

magic_sum = |p1 - p2| + |p2 - p3| + |p3 - p4| + |p4 - p1|

위의 정수 값 중 하나만 변경할 수 있습니다 (p1, p2, p3 또는 p4). 값의 마법 합계가 최소값에 도달하도록 값을 변경해야합니다.

예를 들면 다음과 같습니다.

p1, p2, p3, p4 = 17, -6, 15, 33.이 경우 매직 합의 값은 78입니다.

여기에서 -6을 16으로 변경할 수 있으며, 매직 합의 값은 36이 될 수 있으며 이는 최소값입니다.

숫자는 양수 또는 음수 일 수 있습니다.

이것은 코드 골프이므로 코드의 바이트 수가 가장 적습니다. 브라우니는 레크리에이션 언어보다 실용 언어를 사용하는 것에 대한 포인트입니다. 네 번째가 당신과 함께 있기를 바랍니다.

반복해서 :

샘플 1

입력 1

17 -6 15 33

출력 1

36

설명 1

-6은 16으로 대체 될 수 있으며 가능한 최소한의 마법 합계를줍니다.

샘플 2

입력 2

10 10 10 10

출력 2

0 or 2

어느 쪽이든 괜찮습니다

설명 2

4 개의 양의 정수의 최소 합계가 0이므로 최소 도달 가능 매직 합계는 0입니다. 숫자를 변경해야하는 경우 10 중 하나를 9로 변경하여 출력 2를 얻을 수 있습니다.

샘플 3

입력 3

1 2 3 4

출력 3

4

설명 3

입력 자체는 6을 마법 합계로 나타냅니다. 4에서 1로 변경하고 최소 마법 합계 인 4를 얻습니다.

젤리 , 6 바이트

ṢŒœIṂḤ

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

내 파이썬 답변 의 포트 .

     (input)        [17, -6, 15, 33]
Ṣ    sort           [-6, 15, 17, 33]
Œœ   odd-even elts  [[-6, 17], [15, 33]]
I    increments     [23, 18]
M    minimum        18
Ḥ    double         36 

파이썬 2 , 44 바이트

a,b,c,d=sorted(input())
print min(c-a,d-b)*2

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

입력을 a,b,c,d,오름차순으로 정렬하고 c-aand 중 더 작은 값을 가져와 d-b두 배로 늘립니다. 왜 이것이 작동합니까?

먼저 요소를 총주기 거리의 총합으로 최대화 할 때와 같이 이웃과 동일하게 변경하는 것이 가장 17, -6, 15, 33 -> 17, 17, 15, 33좋습니다 (또는 최적을 위해 묶여 있음) . 왼쪽 및 오른쪽 순환 이웃에 대한 새로운 총 거리는 적어도 그 이웃 사이의 거리이므로,이를 동일하게 만드는 것이 우리가 할 수있는 최선입니다.

이제 숫자의 인접한 두 사본 중 하나를 삭제하면 동일한 주기적 거리 합이 제공됩니다. 이 예에서는 17, 15, 33거리를 지정 2 + 18 + 16합니다. 따라서 네 개의 숫자 중 하나를 바꾸는 대신 세 개의 숫자를 남기고 주기적 거리의 합을 사용하여 삭제하는 것과 같습니다.

숫자가 3 개인 경우 가장 큰 거리는 두 개의 작은 거리의 합입니다. 우리가하는 숫자를 정렬하면 때문이다 a ≤ b ≤ c다음 |a - c| = |a - b| + |b - c|. 다시 말해, 중간 숫자를 피트 스탑으로 한 번만 사용하여 가장 큰 숫자와 가장 작은 숫자를 두 번 이동합니다. 따라서 세 거리의 합은 최소와 최대 사이의 거리의 두 배에 불과합니다 (c-a)*2.

따라서 남은 3 개의 숫자 중 최소값과 최대 값 사이의 가장 작은 거리를 얻기 위해 어떤 숫자를 삭제하는지가 문제입니다. 분명히 가장 작은 숫자 또는 가장 큰 숫자를 삭제합니다. a, b, c, d정렬 된 순서로 호출하고 , a나뭇잎 d - b을 삭제 하고, d나뭇잎을 삭제 하면 c - a, 최종 결과는 더 작은 값의 두 배입니다.

R , 66 33 바이트

function(x)2*min(diff(sort(x),2))

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

xnor의 알고리즘으로 훨씬 짧습니다 (설명을 읽고 게시물을 올리십시오!).

구 버전:

R , 66 바이트

function(x,m=matrix(x,3,4))min(colSums(abs(diff(rbind(m,m[1,])))))

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

입력을 4 개의 정수로 구성된 벡터로 취합니다.

$p_2$$p_2$$p_1\leq p_2\leq p_3$$|p_1-p_2|+|p_2-p_3|$$p_2=p_1$.

변경할 번호를 선택하는 4 가지 방법이 있습니다. 이들 각각에 대해 3 가지 절대 차이의 합만 계산하면됩니다.

$3\times4$rbind

젤리 , 11 10 바이트

I;SASƲ$-ƤṂ

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

정수가 입력 인 경우 목록을 가져 오는 모나드 링크입니다. 임의의 목록 크기에 적합합니다. 목록에서 각 숫자를 제거하고, 마법 합계를 계산하고 최소값을 취하여 테스트하여 최소 합계를 얻을 수 있음을 기반으로 작동합니다.

젤리 , 8 바이트

ṁ-Ƥ⁸IA§Ṃ

정수 목록을 허용하는 정수 링크 *

_{*가 1보다 많으면 임의의 숫자가 될 수 있습니다. 같은 스타일의 마법 공식을 사용하여 주변의 차이점을 요약합니다.}

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

방법?

ṁ-Ƥ⁸IA§Ṃ - Link: list of integers, X       e.g. [17,-6,15,33]
 -Ƥ      - for overlapping "outfixes" of length length(X)-1:
         -                                      [[-6,15,33],[17,15,33],[17,-6,33],[17,-6,15]]
ṁ  ⁸     -   mould like X                       [[-6,15,33,-6],[17,15,33,17],[17,-6,33,17],[17,-6,15,17]]
    I    - incremental differences              [[21,18,-39],[-2,18,-16],[-23,39,-16],[-23,21,2]]
     A   - absolute (vectorises)                [[21,18,39],[2,18,16],[23,39,16],[23,21,2]]
      §  - sums                                 [78,36,78,46]
       Ṃ - minimum                              36

Japt -Q , 11 바이트

ñÍó ®r- ÑÃn

@xnor의 알고리즘을 사용하여 4 바이트를 절약했습니다.

@Shaggy 덕분에 5 바이트 절약

시도 해봐

J , ^{24 20 18} 17 바이트

xnor 알고리즘을 사용하는 대체 버전 :

2*[:<./2 2-/@$\:~

방법

입력을 분류하여 형성된 2x2 행렬 의 첫 번째 행에서 두 번째 행 2 *의 최소값을 두 배로 [:<./뺀 값[:-/2 2$\:~

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

원래 답변 : J , 24 바이트

[:<./1(1#.2|@-/\],{.)\.]

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

Nick Kennedy의 아이디어를 사용합니다.

• 1(...)\.] 길이 1의 모든 접두사에 괄호로 동사를 적용하십시오 (길이 n의 접두사는 n 개의 연속 된 요소가 제거 된 목록이므로 1m이 제거 된 모든 가능한 목록을 생성합니다)
• (1 #. 2 |@-/\ ] , {.)이것은 입력에 첫 번째 elm을 추가하고 길이 2의 접두사에 ] , {.abs 차이 |@-/를 적용 2 ...\하고 결과를 합산하여 magic sum을 계산합니다 1 #..
• [:<./ 분을 반환

05AB1E , 11 7 바이트

@xnor 포트 의 젤리 답변 . @Emigna 및 @Grimy
덕분에 -4 바이트 .

{2ô`αß·

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

레거시 버전 05AB1E에서만 작동하는 7 바이트 대안 ( 새 버전 에서는 €이전 버전이 필요함 ¥) :

{2ôø¥W·

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

설명:

{        # Sort the (implicit) input-list
         #  i.e. [17,-6,15,33] → [-6,15,17,33]
 2ô      # Split this list into parts of size 2
         #  → [[-6,15],[17,33]]
   `     # Push both separated to the stack
    α    # And take their absolute differences
         #  → [23,18]
     ß   # Pop and push the minimum
         #  → 18
      ·  # Double it (and output implicitly as result)
         #  → 36

{        # Sort the (implicit) input-list
         #  i.e. [17,-6,15,33] → [-6,15,17,33]
 2ô      # Split this list into parts of size 2
         #  → [[-6,15],[17,33]]
   ø     # Zip/transpose, swapping rows/columns
         #  → [[-6,17],[15,33]]
    ¥    # Get the deltas/forward differences of the inner lists
         #  → [[23],[18]]
     W   # Get the flattened minimum (without popping)
         #  → 18
      ·  # Double it (and output implicitly as result)
         #  → 36

C ++ (gcc)

풀 프로그램 : 138 바이트

#include<iostream>
#include<regex>
using namespace std;int main(){int a[4];for(int&b:a)cin>>b;sort(a,a+4);cout<<min(a[2]-*a,a[3]-a[1])*2;}

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

핵심 기능 : 84 바이트

#include<regex>
int m(int*a){std::sort(a,a+4);return std::min(a[2]-*a,a[3]-a[1])*2;}

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

또한 xnor 알고리즘을 사용하여 Python 2 게시물에서 설명했습니다.

숯 , 20 바이트

Ｉ⌊ＥＥθΦθ⁻κμΣＥι↔⁻λ§ι⊕μ

온라인으로 사용해보십시오! 링크는 자세한 버전의 코드입니다. @NickKennedy의 아이디어를 사용하고 있습니다. 설명:

   Ｅθ                   Map over input array
     Φθ                 Filter over input array where
       ⁻κμ              Outer and inner indices differ
  Ｅ                     Map over resulting list of lists
           Ｅι           Map over remaining values in list
                §ι⊕μ    Get the next value in the list
             ↔⁻λ        Compute the absolute difference with the current value
          Σ             Take the sum of absolute differences
 ⌊                      Take the minimum sum
Ｉ                       Cast to string and implicitly print

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

사용 XNOR의 훨씬 더 영리한 방법 :

a=>([a,b,c,d]=a.sort((a,b)=>a-b),b+c<a+d?c-a:d-b)*2

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

원래 답변, 96 바이트

입력을 4 개의 정수 배열로 취합니다. 아마도 가장 짧은 접근법은 아닐 것 입니다.

a=>a.map(m=x=>a.map((y,i)=>a[m=a.map(v=>s+=Math.abs(p-(p=v)),a[i]=x,p=a[3],s=0)|m<s?m:s,i]=y))|m

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

Wolfram Language (Mathematica) , 29 바이트

@xnor 알고리즘 포트

2{#3-#}~Min~{#4-#2}&@@Sort@#&

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

자바 8 , 235 바이트

@xnor의 Python 응답 및 알고리즘 포트

import java.util.*;interface M{static void main(String[]A){Scanner I=new Scanner(System.in);int a[]={0,0,0,0};for(int i=0;i<4;a[i++]=I.nextInt());java.util.Arrays.sort(a);System.out.print(2*(a[2]-a[0]>a[3]-a[1]?a[3]-a[1]:a[2]-a[0]));}}

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

입증되지 않은 Java 10 , 222 바이트

Java 10을 var사용하면 온라인으로 컴파일 할 수 없으므로 스캐너 선언의 왼쪽을로 대체 할 수 있어야 하므로 퀴즈로 추가 할 수 있습니다. 죄송합니다.

interface M{static void main(String[]A){var I=new java.util.Scanner(System.in);int a[]={0,0,0,0};for(int i=3;i<4;a[i++]=I.nextInt());java.util.Arrays.sort(a);System.out.print(2*(a[2]-a[0]>a[3]-a[1]?a[3]-a[1]:a[2]-a[0]));}}