Jika AB berada di AB A lain B eh?

44

Diberikan dua bilangan bulat, A dan B, output A jika AB (A minus B) berada di AB (A ke B), jika tidak output B.

"A minus B" adalah pengurangan standar.

"A to B" adalah rentang bilangan bulat mulai dari A dan berakhir di B, termasuk A dan B. Misalnya:

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

Kode terpendek dalam byte menang.

Uji Kasus

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

Obrolan-Mini-Tantangan Asli

Hobi Calvin
sumber

Jawaban:

44

Python , 27 byte

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

Cobalah online!

Rumus aritmatika. Mengapa negasi 2*b*b>a*bsetara dengan kondisi masalah a-b in symrange(a,b)?

Catatan yang x in symrange(a,b)setara dengan 0 in symrange(a-x,b-x). Menerapkan ini untuk x=a-bmemberi 0 in symrange(b,2*b-a). Nilai 0tersebut termasuk dalam interval kecuali jika membentang antara dua nilai positif atau dua nilai negatif. Ini dapat dinyatakan secara hitung karena "produk mereka b*(2*b-a)tidak positif.

Akhirnya, ambil b*(2*b-a)<=0, dan tulis ulang 2*b*b<=a*b. Satu byte disimpan dengan membalik <=ke >dan mengganti kasing.

Tidak
sumber
10

Jelly , 5 byte

_erị,

Cobalah online!

Bagaimana itu bekerja

_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).
Dennis
sumber
8

05AB1E , 7 byte

Kode:

DŸ¹Æå_è

Menggunakan pengkodean CP-1252 . Cobalah online!

Penjelasan:

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
Adnan
sumber
1
@ OKK CMC meminta Boolean.
Dennis
6

PHP, 58 Bytes

<?=in_array(($a=$argv[1])-$b=$argv[2],range($a,$b))?$a:$b;
Jörg Hülsermann
sumber
1
The $btugas tidak memerlukan tanda kurung.
Titus
6

JavaScript (ES6), 24 byte

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

Uji kasus

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

alebianco
sumber
4

Python 2, 37 byte

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

Diminta sebagai f(B, A).

Lynn
sumber
4

Python2, 55 52 51 byte

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

Cobalah online!

Menangani setiap test case yang disebutkan OP (pada saat memposting ini), seperti yang disarankan oleh TIO.

Yytsi
sumber
4

JavaScript ES6, 40 37 byte

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

Dijelaskan:

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

Disimpan 3 byte berkat Arnauld.

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();

Tom
sumber
3

Mathematica, 16 byte

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

Fungsi murni mengambil dua argumen dalam urutan yang berlawanan sebagai OP (misalnya, If[2#^2>1##,##]&[B,A]). Port jawaban Python xnor .

Greg Martin
sumber
2

R, 49 30 28 byte

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

Menggunakan logika xnor untuk menentukan apakah ab ada dalam: b.

BLT
sumber
fungsi tanpa nama umumnya diperbolehkan
MickyT
Anda dapat kehilangan 3 byte lainnya menggunakanpryr::f(match(a-b,a:b,b))
mnel
@ terima kasih sudah berbagi karena itu, saya tidak tahu bagaimana% dalam% bekerja sebelumnya; tetapi itu gagal setiap kali ab ada di: b. f (-90, -30) = 31
BLT
Memang. `pryr :: f (match (ab, a: b, 0) + b) memperbaiki itu (dan masih menyimpan byte.
mnel
2

Clojure, 71 41 byte

-30 byte dengan menggunakan <=dan min/ maxbukannya ranges.

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

Cek apakah (a - b)dalam kisaran dari ake b, mengirim pengembalian sesuai.

(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))
Carcigenicate
sumber
2

PHP (7.1), 55 byte

menggunakan sintaksis susunan array baru :

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

Jalankan dengan -r, berikan angka sebagai argumen baris perintah.

Titus
sumber
2

PowerShell , 37 35 32 byte

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

Cobalah online!

Terjemahan harfiah masalah ke dalam PowerShell menggunakan -notinoperator. Disimpan tiga byte dengan menggunakan banyak penugasan dan enkapsulasi. Ini berfungsi karena -memiliki prioritas operator yang lebih tinggi daripada -notin, dan ( )bagian dari kode dieksekusi terlebih dahulu dan dikembalikan sebagai array @($a,$b). Namun, karena ini $a,$bbukan $b,$a, kita perlu menggunakan -notinuntuk membalik / menjatuhkan hasil keluaran.

AdmBorkBork
sumber
1

Batch, 107 byte

@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%
Neil
sumber
1

Rosda , 30 byte

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

Cobalah online!

Ini menggunakan rumus yang digunakan dalam jawaban xnor.

Solusi lain (37 byte):

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

Cobalah online!

fergusq
sumber
1

> <> , 21 byte

Memanfaatkan trik @ xnor . Kami gunakan -v B Auntuk mengisi ulang tumpukan. ( -v A Badalah +1 byte).

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

Cobalah online!

Penjelasan

                        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.
PidgeyDigunakanGust
sumber
1

Ruby , 27 22 byte

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

Cobalah online!

Tidak ada yang inovatif di sini. Matematika sederhana di baliknya:

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

dapat ditulis sebagai

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

yaitu: jika A-2B memiliki tanda yang sama dengan B, kita berada dalam jangkauan.

GB
sumber
1

SpecBAS - 38 btes

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

IIF adalah inline-IF-THEN-ELSE, untuk mencetak nilai yang benar.

Brian
sumber
1

Haskell, 21 byte

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

Cobalah online!

Dapat dibaca

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

Penjelasan

Menggunakan rumus @ xnor untuk memeriksa apakah ab berada dalam kisaran. Tidak ada yang istimewa selain itu.

Eisfunke
sumber
1

Haskell, 58 byte

Baru-baru ini saya jatuh cinta dengan panah lagi. Sayangnya mereka mengharuskan kami untuk bekerja dengan tuple alih-alih fungsi biner. Dan tentu saja Haskell tidak memiliki rangefungsi simetris .

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

PHP 7 - 45 Bytes

echo(in_array($a-$b,range($a,$b))?$a:$b)==$c;
PerQsive
sumber
Selamat datang di situs ini!
DJMcMayhem
1

Oktaf, 55bytes

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

Ini mungkin dapat dioptimalkan lebih lanjut. Saya akan menambahkan penjelasan nanti.

Tom Carpenter
sumber
Pendekatan yang lebih sederhana . 1 untuk semua "hal gila" di sana: P
Stewie Griffin
1

Nim, 60 byte

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

Cobalah online!

Sejauh standar jawabannya, tidak ada trik besar dalam hal ini.

syril
sumber
1

Cepat -38 30 22 byte

Disimpan 8 byte berkat @Matt

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

Cobalah di IBM Swift Sandbox online!


Atau 21 byte:

(berkat formula @xnor ) dan menyimpan 8 byte berkat @Matt

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

Swift bukan bahasa terbaik untuk bermain golf (sangat kaku), jadi jika Anda melihat peluang bermain golf lainnya, saya akan benar-benar mengedit jawabannya.

Tuan Xcoder
sumber
Mengapa tidak meletakkan terner di dalam cetakan seperti cetakan (a ... b ~ = ab? A: b)
Matt
Oh, ya, ide yang bagus. Terima kasih @Matt
Tn. Xcoder
1

Java 7, 84 60 58 byte

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

Java 8, 37 byte

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

Penjelasan:

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

Kode uji: Coba di sini.

Kevin Cruijssen
sumber
1

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

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

TI-Basic adalah bahasa tokenized; semua token yang digunakan adalah token satu byte .

Prompt meminta Anda untuk dua nomor.

A-B≥A and A-B≤Bmemeriksa apakah AB berada di antara A dan B (inklusif); ini mengembalikan 1 jika benar dan nol jika salah, yang disimpan Ans.

Karena kita mengembalikan A jika AB berada di antara A dan B, kita mengalikan A dengan Ans, yang akan menjadi A jika kita seharusnya mengembalikan A, dan 0 sebaliknya.

Selanjutnya, kita tambahkan Bnot(Ans. Jika Ans adalah 1 (benar), kita not(mendapatkannya dan mendapatkan 0, maka jumlah kita adalah A. Jika Ans adalah 0 (palsu), kita not(mendapat 1, yang kita kalikan dengan B dan tambahkan ke 0 untuk mendapatkan B.

Evaluasi terakhir dalam TI-Basic dikembalikan secara implisit.

-2 byte terima kasih kepada Scott Milner

pizzapants184
sumber
Anda dapat menyimpan dua byte dengan tidak menyimpan baris ketiga Ydan hanya menggunakan Ansdi baris keempat.
Scott Milner
1

Pyt , 32 byte

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

Mengambil A dan B dari stdin sebagai dua input terpisah

Penjelasan:

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

di mana: C = BA dan D = C∈ [A, ..., B] (1 jika benar, 0 jika salah)

mudkip201
sumber
0

Ohm , 10 byte (CP437)

Mungkin ada cara golf untuk melakukan ini, tetapi sifat Ruby yang diketik ketat membuat ini sulit.

G┼┘-îε?┼¿┘
Nick Clifford
sumber
0

Perl 6 ,  31 29  24 byte

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

Cobalah

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

Cobalah

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

Cobalah

Brad Gilbert b2gills
sumber