İki tamsayı verildiğinde, A ve B, AB (A eksi B) AB (A'dan B'ye) ise A, aksi takdirde B çıkışı.

"Bir eksi B" standart çıkarmadır.

"A - B", A ve B ile biten, hem A hem de B'yi içeren, tam sayıların aralığıdır. Örneğin:

1 to 4: 1, 2, 3, 4
-2 to 5: -2, -1, 0, 1, 2, 3, 4, 5
3 to -1: 3, 2, 1, 0, -1
7 to 7: 7

Bayt cinsinden en kısa kod kazanır.

Test Kılıfları

A B Output
1 4 4
-2 5 5
3 -1 -1
7 7 7
90 30 90
90 -30 -30
-90 30 30
-90 -30 -90
-2 -2 -2
-2 -1 -2
-2 0 -2
-2 1 1
-2 2 2
-1 -2 -2
-1 -1 -1
-1 0 -1
-1 1 1
-1 2 2
0 -2 -2
0 -1 -1
0 0 0
0 1 1
0 2 2
1 -2 -2
1 -1 -1
1 0 1
1 1 1
1 2 2
2 -2 -2
2 -1 -1
2 0 2
2 1 2
2 2 2

^{Orijinal Sohbet-Mini Mücadelesi}

Python , 27 bayt

lambda a,b:[a,b][2*b*b>a*b]

Çevrimiçi deneyin!

Bir aritmetik formül. Neden 2*b*b>a*bsorun şartına eşdeğer bir olumsuzlama var a-b in symrange(a,b)?

Not x in symrange(a,b)eşdeğerdir 0 in symrange(a-x,b-x). Bunu uygulamak için x=a-bverir 0 in symrange(b,2*b-a). Değer 0, iki pozitif değer veya iki negatif değer arasında uzanmadığı sürece aralığa dahil edilir. Bu, aritmetik olarak "ürünleri b*(2*b-a)olumlu değil " olarak ifade edilebilir .

Sonunda al b*(2*b-a)<=0ve tekrar yaz 2*b*b<=a*b. Bir bayt saygısız tarafından kaydedilir <=için >ve davaları anahtarlama.

Jöle , 5 bayt

_erị,

Çevrimiçi deneyin!

Nasıl çalışır

_erị,  Main link. Arguments: a, b

_      Subtraction; Yield a-b.
  r    Range; yield [a, ..., b].
 e     Exists; yield 1 if a-b belongs to [a, ..., b], 0 if not.
    ,  Pair; yield [a, b].
   ị   At-index; yield the element of [a, b] at index 1 (a) or index 0 (b).

05AB1E , 7 bayt

Kod:

DŸ¹Æå_è

CP-1252 kodlamasını kullanır . Çevrimiçi deneyin!

Açıklama:

D         # Duplicate the input.
 Ÿ        # Inclusive range.
  ¹Æ      # Push the input [a, b] and compute a - b.
    å     # Check if the number exists in the range.
     _    # Boolean negate
      è   # Index at the first input

PHP, 58 Bayt

<?=in_array(($a=$argv[1])-$b=$argv[2],range($a,$b))?$a:$b;

JavaScript (ES6), 24 bayt

a=>b=>[a,b][2*b*b>a*b|0]

Test durumları

let f = a=>b=>[a,b][2*b*b>a*b|0]
let tests = [[1,4,4],[-2,5,5],[3,-1,-1],[7,7,7],[90,30,90],[90,-30,-30],[-90,30,30],[-90,-30,-90],[-2,-2,-2],[-2,-1,-2],[-2,0,-2],[-2,1,1],[-2,2,2],[-1,-2,-2],[-1,-1,-1],[-1,0,-1],[-1,1,1],[-1,2,2],[0,-2,-2],[0,-1,-1],[0,0,0],[0,1,1],[0,2,2],[1,-2,-2],[1,-1,-1],[1,0,1],[1,1,1],[1,2,2],[2,-2,-2],[2,-1,-1],[2,0,2],[2,1,2],[2,2,2]]
tests.map(test => `f(${test[0]})(${test[1]}) == ${test[2]}`).forEach(test => console.log(test, eval(test)))

Python 2, 37 bayt

lambda*s:s[min(s)<=s[1]-s[0]<=max(s)]

Olarak çağır f(B, A).

Python2, 55 52 51 bayt

lambda A,B:[B,A][A-B in range(min(A,B),max(A,B)+1)]

Çevrimiçi deneyin!

TIO'nun önerdiği gibi, OP'nin bahsettiği her test vakasını ele almaktadır (bunu ilan ederken).

JavaScript ES6, 40 37 bayt

a=>b=>a-b<(a<b?a:b)|a-b>(a<b?b:a)?b:a

Açıklaması:

a=>b=>                                   take a and b as inputs
      a-b<(a<b?a:b)                      if a-b is less than the lowest of a and b
                   |a-b>(a<b?b:a)        or a-b is greater than the largest of a and b
                                 ?b      return b
                                   :a    else return a

Arnauld sayesinde 3 byte kurtarıldı.

f=a=>b=>a-b<(a<b?a:b)|a-b>(a<b?b:a)?b:a

function t(){
    var tests = [[1,4,4],[-2,5,5],[3,-1,-1],[7,7,7],[90,30,90],[90,-30,-30],[-90,30,30],[-90,-30,-90],[-2,-2,-2],[-2,-1,-2],[-2,0,-2],[-2,1,1],[-2,2,2],[-1,-2,-2],[-1,-1,-1],[-1,0,-1],[-1,1,1],[-1,2,2],[0,-2,-2],[0,-1,-1],[0,0,0],[0,1,1],[0,2,2],[1,-2,-2],[1,-1,-1],[1,0,1],[1,1,1],[1,2,2],[2,-2,-2],[2,-1,-1],[2,0,2],[2,1,2],[2,2,2]];
    for (var test of tests) {
        console.log(`f(${test[0]},${test[1]}) == ${test[2]}`, f(test[0])(test[1])==test[2]);
    }
}

t();

Mathematica, 16 bayt

If[2#^2>1##,##]&

OP ile zıt sırada iki argüman alan saf işlev (örneğin, If[2#^2>1##,##]&[B,A]). Xnor'ın Python cevabının limanı .

R, 49 30 28 bayt

pryr::f("if"(2*b*b>a*b,b,a))

Ab'de bir: b olup olmadığını belirlemek için @ xnor mantığını kullanır.

Clojure, 71 41 bayt

-30 <=ve by yerine min/ bayt kullanarak .maxrange

#(if(<=(min % %2)(- % %2)(max % %2))% %2)

Olmadığını kontrol eder (a - b)aralığındadır aiçin bbuna uygun bir dönüş sevk.

(defn eh [a b]
  ; <= accepts any number of argments, and ensures all fall within the range
    (if (<= (min a b) (- a b) (max a b))
      a
      b))

PHP (7.1), 55 bayt

yeni dizi yok etme sözdizimini kullanır :

[,$a,$b]=$argv;echo in_array($a-$b,range($a,$b))?$a:$b;

Çalıştır -r, sayıları komut satırı argümanları olarak ver.

PowerShell , 37 35 32 bayt

($a,$b=$args)[$a-$b-notin$a..$b]

Çevrimiçi deneyin!

-notinOperatör kullanarak sorunun gerçek anlamıyla PowerShell'e çevrilmesi . Birden fazla atama ve kapsülleme kullanarak üç bayt kaydedildi. Bunun nedeni -, daha yüksek bir işleç önceliğine sahip -notinolduğundan ve ( )kodun bir kısmı ilk önce yürütüldüğünde ve bir dizi olarak döndürüldüğü için çalışır @($a,$b). Ancak, bunun $a,$byerine çıktı sonucunu çevirmek / çevirmek $b,$aiçin kullanmamız gerekir -notin.

Toplu iş, 107 bayt

@set/aa=%1,r=b=%2,x=a-b
@if %a% gtr %b% set/aa=b,b=%1
@if %a% leq %x% if %x% leq %b% set/ar=%1
@echo %r%

Pyth - 9 bayt

Daha fazla girdi kullanmayı umuyordum ... :(

@Q!}-FQ}F

Burada çevrimiçi deneyin .

Röda , 30 bayt

f a,b{[b]if[2*b*b>a*b]else[a]}

Çevrimiçi deneyin!

Xnor'ın cevabında kullanılan formülü kullanır.

Başka bir çözüm (37 bayt):

f a,b{[a]if[a-b in[seq(a,b)]]else[b]}

Çevrimiçi deneyin!

> <> , 21 bayt

@ Xnor's hilesini kullanır . -v B AYığını önceden doldurmak için kullanıyoruz . ( -v A B+1 bayttır).

:01pr:11p::2**r*)1gn;

Çevrimiçi deneyin!

açıklama

                        Input: [B, A] on stack.
:01pr:11p::2**r*)1gn;
:                       Duplicate.           [B, A, A]
 01p                    Push A to [0,1].     [B, A]
    r                   Reverse              [A, B]
     :                  Duplicate.           [A, B, B]
      11p               Push B to [1,1].     [A, B]
         ::             Duplicate x 2.       [A, B, B, B]
           2            Push 2.              [A, B, B, B, 2]
           2**          Compute 2*B*B.       [A, B, 2*B*B]
              r         Reverse.             [2*B*B, B, A]
               *        Compute A*B.         [2*B*B, A*B]
                )       >                    [2*B*B > A*B]
                 1      Push 1.              [2*B*B > A*B, 1]
                  g     If 2*B*B > A*B
                         get B, else get A.  [2*B*B > A*B ? B : A]
                   n    Output as number.
                    ;   Terminate.

Ruby , 27 22 bayt

->a,b{(b*a<2*b*b)?b:a}

Çevrimiçi deneyin!

Burada yenilikçi bir şey yok. Arkasındaki basit matematik:

(A<=A-B<=B or B<=A-B<=A)

olarak yazılabilir

(B>=0 and A>=2B) or (B<=0 and A<=2B)

yani: A-2B, B ile aynı işarete sahipse, menzil içindeyiz.

SpecBAS - 38 bit

1 INPUT a,b: ?IIF(a-b IN [a TO b],a,b)

IIF doğru değeri yazdırmak için satır içi-IF-THEN-ELSE'dir.

Haskell, 21 bayt

a!b|b*a<2*b*b=b|0<1=a

Çevrimiçi deneyin!

Okunabilir

func :: Int -> Int -> Int
func a b
    | b*a < 2*b*b = b
    | otherwise = a

açıklama

Ab'nin menzil içinde olup olmadığını kontrol etmek için @ xnor formülünü kullanır. Bundan başka özel bir şey yok.

Haskell, 58 bayt

Daha yakın zamanlarda oklara tekrar aşık oldum. Maalesef, ikili fonksiyonlar yerine tekillerle çalışmamızı istiyorlar. Ve elbette Haskell'in simetrik bir rangeişlevi yoktur.

import Control.Arrow
u=uncurry
app<<<elem.u(-)&&&(u enumFromTo<<<u min&&&u max)

PHP 7 - 45 Bayt

echo(in_array($a-$b,range($a,$b))?$a:$b)==$c;

Octave, 55 bayt

@(a,b)(c=b*~[find((a:1-2*(b<a):b)==(a-b)) 0](1))+(a*~c)

Bu muhtemelen daha da optimize edilebilir. Daha sonra bir açıklama ekleyeceğim.

Nim, 60 bayt

proc f(a,b:int):int=
  if a-b in min(a,b)..max(a,b):a else:b

Çevrimiçi deneyin!

Cevaplar gelince oldukça standart, bu konuda büyük hileler.

Swift -38 30 22 bayt

^{@Matt sayesinde 8 byte kurtarıldı}

print(a...b~=a-b ?a:b)

Çevrimiçi IBM Swift Sandbox'ta deneyin!

Veya 21 bayt:

^{( @xnor formülü sayesinde ) ve @Matt sayesinde 8 bayt kurtardı}

print(2*b*b>a*b ?a:b)

Swift, golf oynamak için en iyi dil değildir (çok katıdır), bu nedenle başka bir golf fırsatı görürseniz, cevabı tamamen düzenleyeceğim.

Java 7, 84 60 58 bayt

int c(int a,int b){return(a<b?a:b)>a-b|(a<b?b:a)<a-b?b:a;}

Java 8, 37 bayt

a->b->(a<b?a:b)>a-b|(a<b?b:a)<a-b?b:a

Açıklama:

int c(int a, int b){          // method with two integer parameters and integer return-type
  return (a<b ? a : b) > a-b  //  if smallest of the input is larger than a-b
       | (a<b ? b : a) < a-b  //    or if the largest of the input is smaller than a-b
    ? b                       //   return b
    :                         //  else
      a                       //   return a
}                             // end of method

Test kodu: Burada deneyin.

Ti-Basic (TI-84 Plus CE), 26 24 23 bayt

Prompt A,B
A-B≥A and A-B≤B
AAns+Bnot(Ans

TI-Basic belirtilmiş bir dildir; Kullanılan tüm belirteçler bir baytlık belirteçlerdir .

Prompt sizden iki numarayı ister.

A-B≥A and A-B≤BAB'nin A ile B arasında olup olmadığını kontrol eder (dahil); bu true ise 1, false ise sıfır olmak üzere sıfır döndürür Ans.

AB, A ve B arasındaysa A'yı geri döndürdüğümüz için, A'yı Ans ile çarpıyoruz; bu, A'yı geri döndürmemiz gerekiyorsa A olacak, aksi takdirde 0.

Ardından buna ekleriz Bnot(Ans. Eğer Ans 1 ise (truthy), biz alırız not(ve 0 alırız , bu yüzden toplamımız A not(olur.

TI-Basic'teki son değerlendirme örtük olarak iade edilir.

Scott Milner sayesinde -2 bayt

Pyt , 32 bayt

←Đ←Đ3Ș⇹Đ3ȘĐ4Ș3Ș-3Ș⇹Ř∈Đ3Ș⇹¢*3Ș⇹*+

Stdin'den A ve B'yi iki ayrı giriş olarak alır

Açıklama:

AABB -> ABBA -> ABAB -> ABABB -> ABBBA -> ABBBAA -> ABAABB -> ABABBA -> ABABC -> ABCBA -> ABCAB -> ABC [A, ..., B] -> ABD -> ABDD - > ADDB -> ADBD -> AD {B * (1-D)} -> {B * (1-D)} AD -> {B * (1-D)} + {A * D}

burada: C = BA ve D = C∈ [A, ..., B] (doğru ise 1, yanlışsa 0)

Ohm , 10 bayt (CP437)

Muhtemelen bunu yapmanın daha kolay bir yolu vardır, ancak Ruby'nin kesinlikle yazılmış yapısı bunu zorlaştırır.

G┼┘-îε?┼¿┘

Perl 6 ,  31 29  24 bayt

{$^a-$^b==any($a...$b)??$a!!$b}

Dene

{$^a-$^b∈($a...$b)??$a!!$b}

Dene

->\a,\b{2*b*b>a*b??b!!a}
->\a,\b{2*b²>a*b??b!!a}

Dene