Các thách thức

Tạo một hàm lấy một mảng các số và trừ từ mỗi phần tử phần tử thấp nhất trong mảng chưa được trừ đi từ một phần tử khác.

• Sau khi sử dụng giá trị thấp nhất, nó không thể được sử dụng lại.
• Các số trong mảng là số thập phân và không nhất thiết phải là số nguyên.

Thí dụ:

Input: [6, 4, 7, 8, 9, 2, 1, 4]

Next lowest value:          Output:
[6, 4, 7, 8, 9, 2, 1, 4]    [6, 4, 7, 8, 9, 2, 1, 4]
                   ^         ^
                            6-1 = 5
[6, 4, 7, 8, 9, 2, -, 4]    [5, 4, 7, 8, 9, 2, 1, 4]
                ^               ^
                            4-2 = 2
[6, 4, 7, 8, 9, -, -, 4]    [5, 2, 7, 8, 9, 2, 1, 4]
    ^                              ^
                            7-4 = 3
[6, -, 7, 8, 9, -, -, 4]    [5, 2, 3, 8, 9, 2, 1, 4]
                      ^               ^
                            8-4 = 4
[6, -, 7, 8, 9, -, -, -]    [5, 2, 3, 4, 9, 2, 1, 4]
 ^                                       ^
                            9-6 = 3
[-, -, 7, 8, 9, -, -, -]    [5, 2, 3, 4, 3, 2, 1, 4]
       ^                                    ^
                            2-7 = -5
[-, -, -, 8, 9, -, -, -]    [5, 2, 3, 4, 3,-5, 1, 4]
          ^                                    ^
                            1-8 = -7
[-, -, -, -, 9, -, -, -]    [5, 2, 3, 4, 3,-5,-7, 4]
             ^                                    ^
                            4-9 = -5

Final output: [5, 2, 3, 4, 3, -5, -7, -5]

Các trường hợp thử nghiệm

Input: [6, 4, 7, 8, 9, 2, 1, 4] => Output: [5, 2, 3, 4, 3, -5, -7, -5]

Input: [4, 7, 4, 9, -10, 8, 40] => Output: [14, 3, 0, 2, -18, -1, 0]

Input: [0.25, -0.5, 8, 9, -10] => Output: [10.25, 0, 7.75, 1, -19]

Input: [3, 4, 9, 1, 1, 1, -5] => Output: [8, 3, 8, 0, -2, -3, -14]

Đây là môn đánh gôn , vì vậy câu trả lời ngắn nhất bằng byte sẽ thắng.

Thạch , 2 byte

_Ṣ

Hãy thử trực tuyến!

hoặc Thử tất cả các trường hợp thử nghiệm

_   # Subtract from...
 Ṣ  # The input array sorted 

MATL , 3 byte

tS-

Hãy thử trực tuyến!

(implicit input as an array)
t                              # duplicate
 S                             # sort
  -                            # element-wise subtract
(implicit output)

Husk , 4 byte

Ṡz-O

Hãy thử trực tuyến!

Giải trình

      -- input, e.g. [6,4,7,8,9,2,1,4]
   O  -- sort        [1,2,4,4,6,7,8,9]
Ṡz-   -- element wise difference to input: [6-1,4-2,7-4,8-4,9-6,2-7,1-8,4-9]
      -- return result [5,2,3,4,3,-5,-7,-5]

Prolog (SWI) , 93 80 68 byte

[H|T]/[A|B]/[X|Y]:-X is H-A,(T=[],Y=T;T/B/Y).
X*Y:-msort(X,S),X/S/Y.

Hãy thử trực tuyến!

Ruby, 32 ký tự

->a{a.zip(a.sort).map{|x,y|x-y}}

JavaScript (ES6), 44 byte

a=>[...a].map(x=>x-a.sort((a,b)=>b-a).pop())

Hãy thử trực tuyến!

Đã bình luận

a =>                 // given the input array a[]
  [...a]             // create a copy of a[]
  .map(x =>          // for each integer x in the copy:
    x -              //   update x by ...
    a.sort((a, b) => //     sorting the original array in descending order
      b - a          //     (we only need to sort it once, but it's shorter to do it here)
    ).pop()          //     taking the element at the top of a[] and subtracting it from x
  )                  // end of map()

Java 10, 83 byte

a->{var b=a.clone();java.util.Arrays.sort(b);for(int i=0;i<a.length;a[i]-=b[i++]);}

Sửa đổi mảng đầu vào thay vì trả về một mảng mới để lưu byte.

Hãy thử trực tuyến.

Giải trình:

a->{                         // Method with double-array parameter and no return-type
  var b=a.clone();           //  Create a copy of the input-array
  java.util.Arrays.sort(b);  //  Sort this copy
  for(int i=0;i<a.length;    //  Loop over the indices
    a[i]-=                   //   Subtract from the `i`'th item in the input-array:
          b[i++]);}          //    The `i`'th item of the sorted array

R , 18 byte

(x=scan())-sort(x)

Hãy thử trực tuyến!

Có nói gì không :)

Python 3, 42 40 byte

lambda a:[b-c for b,c in zip(a,sorted(a))]

lambda a:[a.pop(0)-b for b in sorted(a)]

Haskell , 34 byte

import Data.List
zipWith(-)<*>sort

Hãy thử trực tuyến!

05AB1E , 2 byte

{-

Hãy thử trực tuyến hoặc xác minh tất cả các trường hợp thử nghiệm .

Giải trình:

{     # Sort the input-array
 -    # Subtract all values in this sorted array from the input-array

Lisp thông thường, 46 byte

(lambda(x)(mapcar #'- x(sort(copy-seq x)#'<)))

Hãy thử trực tuyến!

Dừa , 23 byte

a->map((-),a,sorted(a))

Hãy thử trực tuyến!

Perl 6 , 15 byte

{@^a Z-@a.sort}

Hãy thử trực tuyến!

Hàm ẩn danh có một danh sách và trả về một danh sách.

Japt , 9 byte

íNc n
®r-

Hãy thử trực tuyến!

Stax , 5 byte

ÿ◙┘¿N

Chạy và gỡ lỗi nó

Để hiển thị cách thức hoạt động, đây là phiên bản được giải nén, nhận xét.

m       for each element execute, then pop and print:
  xo    sort the original input
  i@    index into array using iteration index
  -     subtract

Chạy cái này

J , 4 byte

-/:~

Hãy thử trực tuyến!

Giải trình:

Từ đối số trừ đi đối số đã -sắp xếp/:~

Japt , 8 6 byte

c í-Un

Hãy thử nó ở đây

Giải trình

           :Implicit input of array U
c          :Flatten (simply creates a 2nd copy of the array because JavaScript's sort mutates the original array)
  í        :Interleave
    Un     :U sorted
   -       :Reduce each pair by subtraction

SmileBASIC, 49 byte

DEF R A
DIM B[0]COPY B,A
SORT B
ARYOP 1,A,A,B
END

Mảng đầu vào được sửa đổi tại chỗ.

ARYOPkhông hoạt động trên toàn bộ mảng cùng một lúc. Trong trường hợp này nó trừ Btừ Avà lưu trữ kết quả trong A.

Julia 0,6 , 12 byte

A->A-sort(A)

Hãy thử trực tuyến!

PHP , 86 byte

function f($a){$b=$a;sort($b);return array_map(function($x,$y){return $y-$x;},$b,$a);}

Hãy thử trực tuyến!

Tcl , 49 byte

proc S L {lmap n $L m [lsort -r $L] {expr $n-$m}}

Hãy thử trực tuyến!