ในกอล์ฟรหัสนี้คุณจะต้องได้รับหมายเลขที่ใกล้เคียงที่สุดจากรายการอื่นในรายการ

ผลลัพธ์อาจเป็นจำนวนที่ใกล้เคียงที่สุดกับอินพุต

ตัวอย่าง:

value: (Input) 5 --- [1,2,3] --- 3

และโปรแกรมอาจทำงานกับตัวเลขติดลบ

ตัวอย่าง:

value: (Input) 0 --- [-1,3,5] --- -1


value: (Input) 2 --- [1, 5, 3] --- 1 (Because it gives priority to lower numbers)

กฎ:

ดังที่ได้กล่าวมาก่อนหน้านี้มันจะต้องทำงานกับตัวเลขติดลบ

หากมีสองคำตอบ (ตัวอย่าง: 0 - [5, -5]) โปรแกรมจะให้ความสำคัญกับจำนวนต่ำสุด (-5)

นี่คือรหัสกอล์ฟเพื่อให้รหัสที่สั้นที่สุดชนะ!

Pyth, 6 ไบต์

haDQSE

ชุดทดสอบ

ป้อนข้อมูลในแบบฟอร์มต่อไปนี้บน STDIN:

num
array

คำอธิบาย:

haDQSE
          Implicit: Q = eval(input()) (num)
     E    Evaluate input (array)
    S     Sort (smaller values to the front)
 aDQ      Sort by absolute difference with Q.
h         Take the first element of the sorted list, the min.
          Print implicitly.

Ruby, 34 ไบต์

->n,a{a.sort.min_by{|x|(n-x).abs}}

a.sort       min_by tiebreaks by position in array, so put smaller numbers 1st
.min_by{|x|  select the element which returns the smallest val for predicate...
(n-x).abs}   (absolute) difference between input num and element

Mathematica ขนาด 12 ไบต์

Min@*Nearest

FTW ในตัว! คำอธิบายของ Buettner: "Mathematica มีการติดตั้งภายในเครื่องNearestแต่จะส่งคืนรายการหมายเลขที่เชื่อมโยงทั้งหมดดังนั้นเราจำเป็นต้องเขียนด้วยMinเพื่อแยกการผูก"

Pyth, 8 ไบต์

hS.mabQE

คำอธิบาย

         - autoassign Q = eval(input())
  .m   E -   min_values([V for b in eval(input())])
    abQ  -    abs(b-Q)
 S       -  sorted(^)
h        - ^[0]

ลองออนไลน์!

JavaScript ES6, 64 56 54 ไบต์

(i,a)=>a.sort((a,b)=>s(i-a)-s(i-b)||a-b,s=Math.abs)[0]

ลองออนไลน์

ขอบคุณ@Nielสำหรับการบันทึกสองไบต์

ตัวอย่างการทดสอบ:

f=(i,a)=>a.sort((a,b)=>s(i-a)-s(i-b)||a-b,s=Math.abs)[0];

[
  [5, [1, 2, 3]],
  [2, [3, 5, 1]],
  [2, [1, 3, 5]],
  [0, [-1, 2, 3]],
  [5, [1, 2, 3]]
].map(v=>O.textContent+=JSON.stringify(v)+": "+f.apply(null,v)+"\n")

<pre id=O></pre>

เยลลี่, 7 6 ไบต์

ạżṛỤḢị

ลองออนไลน์!

มันทำงานอย่างไร

ạżṛỤḢị Main link. Left input: n (number). Right input: A (list)

ạ      Take the asbolute difference of n and the items of A.
  ṛ    Yield the right argument, A.
 ż     Zip the left result with the right one.
       This pairing causes ties in absolute value to be broken by initial value.
   Ụ   Grade up; sort the indices of the resulting list by their associated values.
    Ḣ  Retrieve the first index, which corresponds to the smallest value.
     ị Retrieve the item of A at that index.

MATL 10 ไบต์

Sti-|4#X<)

ลองออนไลน์!

S       % implicitly input array, and sort. This ensures smaller numbers have priority
t       % duplicate
i       % input number
-|      % compute array of absolute differences
4#X<    % arg min. If there are several minimizers, the position of the first is returned
)       % index into original array. Implicitly display

Python 2, 56 ไบต์

a=input()
print sorted(input(),key=lambda x:abs(a-x))[0]

รับหมายเลขเป้าหมายก่อนa=input()- สิ่งนี้จะต้องเก็บไว้ในตัวแปร

จากนั้นจะเรียงลำดับอินพุตด้วยฟังก์ชันที่lambda x:abs(a-x)ใช้ (คิดmap(lambda x:abs(a-x), input()))

จากนั้นใช้ค่าต่ำสุดในกรณีที่มีค่าซ้ำกัน

TeaScript ขนาด 10 ไบต์

T#(y-l)a)░

TeaScript ไม่รองรับอินพุตอาร์เรย์ดังนั้นในการเรียกใช้คอนโซล: TeaScript("T#y-la)░", [[1, 2, 3], 1], {}, TEASCRIPT_PROPS)ไปยัง Runthis

คำอธิบาย

T#  // Sort input by...
  (y-l)a // absolute difference with input
)░  // First item in array

R, 42 ไบต์

x=sort(scan());x[which.min(abs(x-scan()))]

Haskell, 38 ไบต์

e#l=snd$minimum$(zip=<<map(abs.(e-)))l

ตัวอย่างการใช้งาน: ->2 # [1,5,3]1

สำหรับองค์ประกอบในรายการป้อนข้อมูลแต่ละlทำให้คู่ของความแตกต่างแน่นอนขององค์ประกอบที่มีจำนวนอินพุตeและองค์ประกอบของตัวเองเช่นe=2, ->l=[1,5,3] [(1,1),(3,5),(1,3)]ค้นหาขั้นต่ำและทิ้งความแตกต่าง

zsh, 75 73 71 70 67 ไบต์

for n in ${@:2};{echo "$[$1-n]    $n"}|tr -d -|sort -n|head -1|cut -f2

ต้องการอินพุตเป็นอาร์กิวเมนต์บรรทัดคำสั่ง

โปรดทราบว่าช่องว่างทั้งสี่ใน echoนั้นควรจะเป็นแท็บจริงๆ แต่ Stack Exchange จะแปลงแท็บเป็นช่องว่างในโพสต์ทั้งหมด

ไม่รองรับ Bash เนื่องจากfor ไวยากรณ์

for n in ${@:2};      for each argument except the first...
{echo "$[$1-n]\t$n"}  output the difference from the first argument
                        and then the original number
|tr -d -              poor man's abs()
|sort -n              sort by first num (difference), tiebreaking by second num
                        (original value)
|head -1              take the thing that sorted first
|cut -f2              print field 2 (aka discard the difference)

ขอบคุณdev-nullสำหรับ 2 ไบต์!

Perl 6 , 31 ไบต์

{@^b.sort.sort((*-$^a).abs)[0]}

การใช้งาน:

my &code = {@^b.sort.sort((*-$^a).abs)[0]}

say code 5, [1,2,3];   # 3
say code 0, [-1,3,5];  # -1
say code 2, [1, 5, 3]; # 1
say code 0, [5,-5];    # -5