정수 목록의 차이 목록은 연속 멤버의 목록 차이입니다.

예를 들어 차이 목록

1, 3, 2 ,4

이다

2, -1, 2

당신의 임무는 차이 목록을 입력으로 가져 와서 원래 목록이 정렬 된 경우 차이 목록의 모양을 출력하는 것입니다.

예를 들어 차이 목록

2, 1, -2, -1

목록을 나타낼 수 있습니다

2 4 5 3 2

정렬 할 때

2 2 3 4 5

차이점 목록이있는

0 1 1 1

이것은 코드 골프 이므로 바이트 수가 적을수록 답이 바이트로 표시됩니다.

05AB1E , 4 바이트

.¥{¥

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

설명

.¥{¥
.¥   # Undelta the input list
  {  # Sort it
   ¥ # And get the deltas

파이썬 3 과 NumPy와 , 56 54 53 바이트

@Artyer 덕분에 2 바이트가 줄었습니다 ( sort표준 대신 Numpy 's sorted). 감사 오프하는 1 바이트 @notjagan (이동 0로 cumsum)

lambda x:diff(sort(cumsum([0]+x)))
from numpy import*

이 코드는 목록 또는 Numpy 배열을 입력하고 Numpy 배열을 출력하는 익명 함수를 정의합니다.

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

Mathematica, 40 바이트

Differences@Sort@Accumulate@Join[{1},#]&

젤리 , 6 바이트

0;+\ṢI

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

껍질 , 4 바이트

Ẋ-O∫

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

설명

      -- implicit input, e.g                               [2,1,-2,-1]
   ∫  -- cumulative sum                                    [0,2,3,1,0]
  O   -- sort                                              [0,0,1,2,3]
Ẋ     -- apply function to all adjacent pairs in the list  [(0,0),(0,1),(1,2),(2,3)]
 -    --   subtract                                        [0,1,1,1]

Pyth , 9 바이트

@EriktheOutgolfer 덕분에 -1 바이트 .

.+S+0sM._

테스트 스위트.

Pyth , 10 바이트

.+S.u+YNQ0

온라인으로 사용해보십시오! 또는 더 많은 테스트 사례를 시도하십시오 .

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

@ETHproductions 덕분에 1 바이트 절약

a=>a.map(n=>t-=n,p=t=0).sort((a,b)=>b-a).map(n=>p-(p=n))

데모

let f =

a=>a.map(n=>t-=n,p=t=0).sort((a,b)=>b-a).map(n=>p-(p=n))

console.log(JSON.stringify(f([2, 1, -2, -1])))

자바 8, 123 바이트

표준 솔루션 : 누적 합계 입력, 정렬 및 차이. 실질적인 구현 요령도 없습니다.

l->{int s=l.length,d[]=new int[s+1],i=0;while(i<s)d[i+1]=d[i]+l[i++];for(java.util.Arrays.sort(d);i-->0;)l[i]=d[i+1]-d[i];}

캐스팅 Consumer<int[]>. 출력이 변형 된 입력입니다.

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

언 골프 람다

l -> {
    int
        s = l.length,
        d[] = new int[s + 1],
        i = 0
    ;
    while (i < s)
        d[i + 1] = d[i] + l[i++];
    for (java.util.Arrays.sort(d); i-- > 0; )
        l[i] = d[i + 1] - d[i];
}

감사의 말

• 부정한 자동 증가의 마스터 인 Olivier Grégoire 덕분에 -3 바이트
• Nevay 덕분에 -1 바이트

Brachylog , 15 바이트

a₀ᶠ+ᵐ,0o{s₂↔-}ᶠ

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

R , 31 32 바이트

@ user2390246 덕분에 -4 바이트 diffinv

Jarko에서 +5 바이트 cat

cat(diff(sort(diffinv(scan()))))

stdin에서 읽고 stdout에 씁니다. 주어진 시작 값 diffinv의 역수입니다 diff(기본적으로 0). 그것은 이후diff다시 편집 그 가치가 무엇인지는 중요하지 않습니다.

Jarko Dubbeldam이 지적한 것처럼 5 바이트의 비용으로 결과를 올바르게 출력해야했습니다. 아아.

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

파이썬 2 , 83 바이트

l,r=input(),[1]
for i in l:r+=[r[-1]+i]
r.sort()
print[b-a for a,b in zip(r,r[1:])]

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

끔찍한 해결책.

펄 6 , 46 바이트

{[\+](0,|@_).sort.rotor(2=>-1).flat.map(*R-*)}

시도 해봐

넓히는:

{  # bare block lambda with implicit signature :(*@_)

  [\+](         # triangle reduce using &infix:«+»
    0,          # start with 0
    |@_         # Slip in the arguments from the outer block
  )             #                  (0, 2, 3, 1, 0)

  .sort         # sort the results (0,0,1,2,3)
  .rotor(2=>-1) # group in twos    ((0,0),(0,1),(1,2),(2,3))
  .flat         # flatten          (0,0,0,1,1,2,2,3)
  .map(*R-*)    # grab 2 values at a time, and subtract first from second
                # (0, 1, 1, 1)
}

하스켈 , 74 바이트

import Data.List
g=sort.scanl(+)0
h l|k<-g l=map(\(x,y)->x-y)$zip(tail$k)k

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

똑바로.

TI 기본 (TI-84 Plus CE), 23 바이트

Prompt X
augment({0},cumSum(LX→X
SortA(LX
ΔList(LX

사용자 입력을 요구합니다. 목록은 앞에 {, 숫자로 구분 ,하고 선택적으로 후행을 입력해야합니다 }.

TI-Basic은 토큰 화 된 언어입니다 . ΔList(과cumSum( 2 바이트 토큰 기타 모든 토큰이 각 바이트 하나이다.

실행 예제 ( NAME프로그램 이름 및 {4,-2,7,-4,0}입력) :

prgmNAME
X=?{4,-2,7,-4,0}
               {2 2 1 0 4}

설명:

Prompt X                  # 3 bytes, get list input, store in LX
augment({0},cumSum(LX→X   # 12 bytes, 
          # store the list ({0} prepended to the cumulative sum of LX) to LX
SortA(LX                  # 4 bytes, sort LX ascending
ΔList(LX                  # 4 bytes, implicitly print the difference list of LX

C ++ (gcc) , 136 바이트

명명되지 않은 일반 람다로서 입력이 같다고 가정 std::list하고 참조 매개 변수를 통해 반환합니다.

[](auto&L){auto r=L.begin(),l=L.insert(r,0);while(r!=L.end())*r+++=*l++;for(L.sort(),l=r=--L.end();--l!=L.begin();*r---=*l);L.erase(l);}

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

언 골프 드 :

[](auto&L){
 auto r=L.begin(),
      l=L.insert(r,0); //adds a zero right in front
 while(r!=L.end())
   *r++ += *l++;       //sum left to right
 for(
  L.sort(),            //sorting invalidates the iterators
  l=r=--L.end();       //so, reinit
  --l!=L.begin();      //decrement l beforehand 
  *r-- -= *l           //diff right to left
 );
 L.erase(l);           //l==L.begin(), so this removes the temporary 0
}

Pyth, 8 바이트

.+S+M.uP

데모

.+S+M.uP
.+S+M.uPNQ    Implicit variables
     .u  Q    Apply the following function to the input repeatedly until it
              stops changing, then output the list of values, including the
              starting value.
       PN     Remove the last element. No-op if the list is empty.
   +M         Sum each list. This gives the cumulative sums in reverse order,
              including a 0 at the end for the empty list.
  S           Sort
.+            Deltas

TI 기본, 20 바이트

cumSum(augment({0},Ans->L1
SortA(L1
ΔList(L1

Perl 5 , 87 + 1 (-a) = 88 바이트

$a[0]=1;push@a,$a[-1]+$_ for@F;@a=sort{$a<=>$b}@a;print$a[0]-$_,$"while($_=shift@a)&&@a

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

VB.NET (.NET 4.5), 109 바이트

Sub A(n)
Dim c=n.count-1
For i=1To c
n(i)+=n(i-1)
Next
n.Sort()
For i=c To 1 Step-1
n(i)-=n(i-1)
Next
End Sub

목록을 입력으로 예상하고 직접 수정하는 함수입니다. 그런 다음 원래 매개 변수를 사용하여 출력 할 수 있습니다

1. 목록을 통해 포워드를 추가하여 원래 목록을 다시 작성합니다 (암시 적 0을 첫 번째 요소로 가정)
2. 원본 목록을 정렬합니다
3. 뒤로 이동하여 차이점을 얻습니다 (따라서 다른 목록을 추적 할 필요가 없습니다) (암시 적 인 첫 번째 요소 0은 첫 번째 차이가 가장 작은 요소와 동일 함을 의미합니다)

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

APL (Dyalog) , 15 14 바이트

ngn 덕분에 -1 바이트 .

(¯2-/⍋⊃¨⊂)0,+\

+\ 누적 합계

0, 0을 붙이다

(… ) 그것에 다음의 암묵적 기능을 적용하십시오 :

 ⊂ 동봉 (여러 항목을 선택할 수 있음)

 ⍋⊃¨ 인수를 정렬하는 각 인덱스가

 ¯2-/ 쌍으로 차이를 반전

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

Dyalog '17 사용자 미팅 에서 Code Golf Hackathon 참가자가 발견 한 독창적 인 솔루션 :

¯2-/l[⍋l←+\0,⎕]

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

⎕ 입력 프롬프트

0, 0을 붙이다

+\ 누적 합계

l← 로 저장 l

⍋ 정렬 할 지수를 찾으십시오 l

l[… ] 색인으로 사용하십시오l

¯2-/ 쌍으로 차이를 반전

MATL , 6 바이트

0hYsSd

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

0       # push 0
 h      # horizontal concatenate with implicit input
  Ys    # cumulative sum
    S   # sort
     d  # diff (implicit output)

Gaia, 7 bytes

1¤++⊣ȯọ

Try it online!

Explanation

1¤+      Prepend 1
   +⊣    Cumulative sums
     ȯ   Sort
      ọ  Deltas

k, 16 bytes

1_-':{x@<x}@+\0,

Try it online!

              0, /prepend a 0
            +\   /cumulative sum
     {x@<x}@     /sort
1_-':            /differences list

Japt, 10 bytes

iT å+ n än

Test it

Röda, 42 bytes

{i=0{[0];[i]if i+=_}|sort|slide 2|[_2-_1]}

Try it online!

This is similar to the Perl 6 answer. .sort is |sort, .rotor(2=>-1).flat is |slide 2 and .map(*R-*) is |[_2-_1].

Explanation:

{
  i=0 /* initialize variable i */
  /* the following block recreates the original list from differences: */
  {
    [0];       /* push 0 to the stream */
    [i]if i+=_ /* add every number in the stream to i and push i back */
  }|
  sort|    /* sort the numbers */
  slide 2| /* for values i1, i2, i3, ... in the stream
              push pairs i1, i2, i2, i3, ... */
  [_2-_1]  /* calculate difference of numbers in each pair in the stream */
}

The statement [i]if i+=_ is equivalent to

for sfv do
  if i += sfv do
    push(i)
  done
done

The += operator does not push values to the stream, so it is truthy. I could also have used some kind of block (eg. {|j|i+=j;[i]}_) to tie the addition and pushing statements together, but if is shorter.

Julia 0.6.0 (34 bytes)

Pretty much a copy of what has been done in R and Python 3

x->diff(sort(cumsum(vcat([0],x))))

J, 10 bytes

/:~&.(+/\)

explanation

"sort under scan sum": In J, the Under conjunction &. applies the transformation to its right to the input, then applies the verb to its left (in this case sort /:~) and then does the reverse transformation. That is, J understands how to invert a scan sum, which is exactly what's needed here: the successive differences are the input that, when scan-summed, will produce that scan-sum.

Try it online!