Get the closest value to number

Question

In this code golf, you need to get the closest number from another one in a list.

The output may be the closest number to the input.

Example:

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

And, the program may work with negative numbers.

Example:

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


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

RULES:

As mentioned before, it has to work with negative numbers.

If there are two answers (Example: 0 -- [5,-5]), the program gives priority to the lowest number. (-5)

This is code golf so the shortest code wins!

Answer 1

Pyth, 6 bytes

haDQSE

Test suite

Input in the following form on STDIN:

num
array

Explanation:

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.

Answer 2

Ruby, 34 bytes

->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

Answer 3

Mathematica, 12 bytes

Min@*Nearest

Built-ins FTW! Buettner's explanation: "Mathematica has a built-in Nearest for this, but it returns a list of all tied numbers. Hence, we need to compose it with Min to break the tie."

Answer 4

Pyth, 8 bytes

hS.mabQE

Explanation

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

Try it online!

Answer 5

JavaScript ES6, 64 56 54 bytes

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

Try it online

Thanks to @Niel for saving two bytes

Test Snippet:

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>

Answer 6

Jelly, 7 6 bytes

ạżṛỤḢị

Try it online!

How it works

ạżṛỤḢị 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.

Answer 7

Jelly, 4 bytes

ạÐṂṂ

Try it online!

This takes A on the left and n on the right

I'm guessing the ÐṂ builtin didn't exist when Dennis wrote his answer.

How it works

ạÐṂṂ - Main link. Takes A on the left and n on the right
 ÐṂ  - Keep elements of A with a minimal:
ạ    -   Absolute difference with n
   Ṃ - Take the minimum

Answer 8

R, 37 bytes

(x=scan())[order(abs(x-scan()),x)][1]

Try it online!

After 4 years, 5 bytes shorter than the previous R answer.

Uses the order() function with two arguments, to order first by the closeness to the target value, and then to break ties by the array value. Finally outputs the first element after re-ordering.

Answer 9

APL (Dyalog Unicode), 17 16 bytes

⊢{⌊/⍺/⍨⍵=⌊/⍵}∘|-

Try it online!

This is a function which takes a single number as a left argument and a list of numbers as a right argument.

The general structure of this is a fork consisting of:

• the constant right function ⊢ returns the list of numbers
• |- calculates the absolute value of each difference between a number from the list and the left argument
• and the dfn {⌊/⍺/⍨⍵=⌊/⍵} which is called with the results of the other two functions:

            ⍝ ⍵: absolute differences (|-)
            ⍝ ⍺: the original list (⊢)
       ⌊/⍵  ⍝ the minimum of the absolute differences
     ⍵=     ⍝ element-wise equal to the absolute differences
  ⍺/⍨       ⍝ select all values from the original list where this is 1
⌊/          ⍝ take the minimum

A fully tacit function came out at 17 bytes: ⌊/∘∊((⊢=⌊/)∘|-)⊆⊢.

---

With some help from Adám, here is a shorter function in the extended variant:

APL (Dyalog Extended), 12 bytes

(⊃⍋⍤|⍤-⊇⊢)∘∧

Try it online!

Same arguments as before, ∧ sorts the list ascending and ⊃⍋⍤|⍤-⊇⊢ is applied with the left number and the sorted list as a right argument.

     -   ⍝ the difference between the left argument and each list entry of the sorted list
   |     ⍝ take the absolute values
 ⍋       ⍝ the indices that would sort this list (stable)
      ⊇  ⍝ index with these indices into ...
       ⊢ ⍝ ... the sorted list. This resorts the list on the absolute difference
⊃        ⍝ pick the first value

Answer 10

MATL, 10 bytes

Sti-|4#X<)

Try it online!

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

Answer 11

Python 2, 56 bytes

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

Gets the target number first a=input() - this has to be stored in a variable.

It then sorts the input with the function lambda x:abs(a-x) applied (think map(lambda x:abs(a-x), input()))

It then takes the minimum value in case of any duplicate values

Answer 12

Japt -g, 4 bytes

ÍñaV

Try it

ÍñaV     :Implicit input of array U and integer V
Í        :Sort U
 ñ       :Sort by
  aV     :  Absolute difference with V
         :Implicit output of first element

Answer 13

Python 3, 41 bytes

lambda n,a:min((abs(n-i),i)for i in a)[1]

Try it online!

No need to sort, because min captures the lowest difference and the lowest value.

Also works in Python 2.

Answer 14

Husk, 6 4 bytes

◄≠⁰O

Try it online!

◄           # element that minimizes
 ≠⁰         # difference to arg 1
   O        # applied to sorted elements
            # (implicitly) of arg 2

Answer 15

05AB1E, 4 bytes

{I.x

Try it online or verify all test cases.

Explanation:

{     # Sort the first (implicit) input-list from lowest to highest
  .x  # Pop the list, and push the value closest
 I    # to the second input-integer
      # (after which it is output implicitly as result)

This could have been 2 bytes (.x) if we were allowed to output the first instead of the lowest value in the list, if more than one is closest: try it online or verify all test cases.

Answer 16

TeaScript, 10 bytes

T#(y-l)a)░

TeaScript doesn't support array input so in the console run: TeaScript("T#y-la)░", [[1, 2, 3], 1], {}, TEASCRIPT_PROPS) to runthis.

Explanation

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

Answer 17

R, 42 bytes

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

Answer 18

Haskell, 38 bytes

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

Usage example: 2 # [1,5,3]-> 1.

For each element in the input list l make a pair of the absolute difference of the element with the input number e and the element itself, e.g. e=2, l=[1,5,3] -> [(1,1),(3,5),(1,3)]. Find the minimum and discard the difference.

Answer 19

zsh, 75 73 71 70 67 bytes

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

Expects input as command line arguments.

Note that the four spaces in the echo is actually supposed to be a tab, but Stack Exchange converts tabs to spaces in all posts.

Not Bash-compatible because of the for syntax.

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)

Thanks to dev-null for 2 bytes!

Answer 20

Perl 6, 31 bytes

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

Usage:

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

Answer 21

Stax, 7 bytes

ôXêUe>┤

Run and debug it

Answer 22

PHP, 62 bytes

foreach($a as $i){$s[$i]=abs($i-$n);}
asort($s);print key($s);

Try it online!

First PHP answer, please help!

(Define the number and array in header section)

Answer 23

T-SQL, 93 Bytes

SELECT MIN(B) FROM(SELECT B,abs(B-@v) AS C FROM @A) D WHERE C=(SELECT MIN(abs(B-@v)) FROM @A)

Example:

DECLARE @A TABLE(B  INT);
DECLARE @v INT = 5;
INSERT INTO @A SELECT * FROM (VALUES(1),(2),(3)) AS A(B);

SELECT MIN(B) -- 3. Finally, select the minimum list value from the rowset
FROM(
        SELECT B,abs(B-@v) AS C -- 1. Get list value along with absolute value of the difference.
        FROM @A
    ) D
WHERE C = (SELECT MIN(abs(B-@v)) -- 2. Filter for the smallest absolute difference.
          FROM @A
          )

Answer 24

C# 61 52 bytes

int v(int i,int[] a)=>a.Min(x=>(Math.Abs(i-x),x)).x;

Or function body only: 29 bytes.