ความท้าทาย

สร้างฟังก์ชั่นที่ใช้อาร์เรย์ของตัวเลขและลบออกจากแต่ละองค์ประกอบซึ่งเป็นองค์ประกอบที่ต่ำที่สุดในอาร์เรย์ที่ยังไม่ได้ถูกลบออกจากอีกองค์ประกอบ

• หลังจากใช้ค่าต่ำสุดจะไม่สามารถใช้งานได้อีก
• ตัวเลขในอาร์เรย์เป็นตัวเลขทศนิยมและไม่จำเป็นต้องเป็นจำนวนเต็ม

ตัวอย่าง:

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]

กรณีทดสอบ

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]

นี่คือ รหัสกอล์ฟดังนั้นคำตอบที่สั้นที่สุดเป็นไบต์ชนะ

เยลลี่ 2 ไบต์

_Ṣ

ลองออนไลน์!

หรือลองกรณีทดสอบทั้งหมด

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

MATL , 3 ไบต์

tS-

ลองออนไลน์!

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

Husk , 4 ไบต์

Ṡz-O

ลองออนไลน์!

คำอธิบาย

      -- 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 ไบต์

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

ลองออนไลน์!

Ruby, 32 ตัวอักษร

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

JavaScript (ES6) 44 ไบต์

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

ลองออนไลน์!

แสดงความคิดเห็น

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 ไบต์

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

ปรับเปลี่ยนอินพุตอาร์เรย์แทนที่จะส่งคืนใหม่เพื่อบันทึกไบต์

ลองออนไลน์

คำอธิบาย:

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 ไบต์

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

ลองออนไลน์!

มันบอกว่า :)

Python 3, 42 40 ไบต์

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 ไบต์

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

ลองออนไลน์!

05AB1E , 2 ไบต์

{-

ลองมันออนไลน์หรือตรวจสอบกรณีทดสอบทั้งหมด

คำอธิบาย:

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

Lisp ทั่วไป, 46 ไบต์

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

ลองออนไลน์!

มะพร้าวขนาด 23 ไบต์

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

ลองออนไลน์!

Perl 6 , 15 ไบต์

{@^a Z-@a.sort}

ลองออนไลน์!

ฟังก์ชั่นไม่ระบุชื่อที่ใช้เวลาหนึ่งรายการและส่งกลับรายการ

Japt , 9 ไบต์

íNc n
®r-

ลองออนไลน์!

Stax , 5 ไบต์

ÿ◙┘¿N

เรียกใช้และแก้ไขข้อบกพร่อง

เพื่อแสดงวิธีการทำงานนี่เป็นเวอร์ชันที่ไม่ได้บรรจุและแสดงความคิดเห็น

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

เรียกใช้อันนี้

J , 4 ไบต์

-/:~

ลองออนไลน์!

คำอธิบาย:

จากการโต้แย้งลบ-เรียง/:~โต้แย้ง

Japt , 8 6 ไบต์

c í-Un

ลองที่นี่

คำอธิบาย

           :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 ไบต์

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

มีการปรับเปลี่ยนอาร์เรย์อินพุต

ARYOPดำเนินการในอาร์เรย์ทั้งหมดในครั้งเดียว ในกรณีนี้มันหักBจากและเก็บผลในAA

Julia 0.6 , 12 ไบต์

A->A-sort(A)

ลองออนไลน์!

PHP , 86 ไบต์

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

ลองออนไลน์!

Tcl , 49 ไบต์

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

ลองออนไลน์!