44

Учитывая два целых числа, A и B, выведите A, если AB (A минус B) находится в AB (от A до B), в противном случае выведите B.

«Минус В» является стандартным вычитанием.

«A - B» - это диапазон целых чисел, начинающийся с A и заканчивающийся на B, включая A и B. Например:

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

Самый короткий код в байтах побеждает.

Тестовые случаи

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

^{Оригинальный чат-мини-вызов}

code-golf math number arithmetic Кальвин Хобби
источник

44

Python , 27 байт

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

Попробуйте онлайн!

Арифметическая формула. Почему отрицание 2*b*b>a*bэквивалентно условию проблемы a-b in symrange(a,b)?

Обратите внимание, что x in symrange(a,b)эквивалентно 0 in symrange(a-x,b-x). Применяя это к x=a-bдает 0 in symrange(b,2*b-a). Значение 0включается в интервал, если только оно не растягивается между двумя положительными значениями или двумя отрицательными значениями. Это можно сформулировать арифметически как «их произведение b*(2*b-a)не является положительным.

Наконец, возьмите b*(2*b-a)<=0и перепишите 2*b*b<=a*b. Байт сохраняется переворачивая , <=чтобы >и переключая дела.

XNOR
источник

10

Желе , 5 байт

_erị,

Попробуйте онлайн!

Как это работает

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

Деннис
источник

8

05AB1E , 7 байтов

Код:

DŸ¹Æå_è

Использует кодировку CP-1252 . Попробуйте онлайн!

Объяснение:

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

Аднан
источник

1

@Okx CMC попросил логическое значение.

Деннис

6

PHP, 58 байт

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

Йорг Хюльсерманн
источник

1

$bЗадание не нуждается в круглых скобках.

Титус

6

JavaScript (ES6), 24 байта

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

Контрольные примеры

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
источник

4

Python 2, 37 байт

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

Вызывать как f(B, A).

Линн
источник

4

Python2, 55 52 51 байт

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

Попробуйте онлайн!

Обрабатывает каждый контрольный пример, о котором упоминал OP (на момент публикации), как рекомендует TIO.

Yytsi
источник

4

JavaScript ES6, 40 37 байт

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

Разъяснение:

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

Сохранено 3 байта благодаря Арно.

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

Развернуть фрагмент

Том
источник

3

Mathematica, 16 байтов

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

Чистая функция, принимающая два аргумента в противоположном порядке как OP (например, If[2#^2>1##,##]&[B,A]). Порт ответа xnor на Python .

Грег Мартин
источник

2

R, 49 30 28 байт

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

Использует логику @ xnor для определения, находится ли ab в a: b.

BLT
источник

безымянные функции, как правило, разрешены

MickyT

Вы можете потерять еще 3 байта, используяpryr::f(match(a-b,a:b,b))

mnel

@mnel спасибо, что поделились этим, я не знал, как% в% работал раньше; но это терпит неудачу всякий раз, когда ab находится в a: b. f (-90, -30) = 31

BLT

Верно. `pryr :: f (match (ab, a: b, 0) + b) исправляет это (и все еще сохраняет байт.

mnel

2

Clojure, 71 41 байт

-30 байт с использованием <=и min/ maxвместо ranges.

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

Проверяет, (a - b)находится ли значение в диапазоне от aдо b, соответственно отправляя возврат.

(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
источник

2

PHP (7.1), 55 байт

использует новый синтаксис деструктуризации массива:

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

Запустите с -r, укажите числа в качестве аргументов командной строки.

Titus
источник

2

PowerShell , 37 35 32 байта

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

Попробуйте онлайн!

Дословный перевод задачи в PowerShell с помощью -notinоператора. Сохранено три байта с использованием множественного назначения и инкапсуляции. Это работает, потому что -имеет более высокий приоритет оператора, чем -notin, и ( )часть кода выполняется в первую очередь и возвращается в виде массива @($a,$b). Однако, поскольку это $a,$bскорее, чем $b,$aнам, мы должны использовать, -notinчтобы перевернуть / провалить результат вывода.

AdmBorkBork
источник

1

Пакет, 107 байт

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

Нил
источник

1

Pyth - 9 байт

Надеюсь использовать более неявный ввод ... :(

@Q!}-FQ}F

Попробуйте это онлайн здесь .

Maltysen
источник

1

Рёда , 30 байт

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

Попробуйте онлайн!

Он использует формулу, использованную в ответе xnor.

Другое решение (37 байт):

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

Попробуйте онлайн!

fergusq
источник

1

> <> , 21 байт

Использует трюк @ xnor . Мы используем -v B Aдля предварительного заполнения стека. ( -v A B+1 байт).

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

Попробуйте онлайн!

объяснение

                        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.

PidgeyUsedGust
источник

1

Рубин , 27 22 байта

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

Попробуйте онлайн!

Здесь нет ничего инновационного. Простая математика за этим:

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

можно записать как

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

то есть: если A-2B имеет тот же знак, что и B, мы находимся в диапазоне.

гигабайт
источник

1

SpecBAS - 38 байт

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

IIF это inline-IF-THEN-ELSE, чтобы вывести правильное значение.

Брайан
источник

1

Haskell, 21 байт

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

Попробуйте онлайн!

Удобочитаемый

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

объяснение

Использует формулу @ xnor, чтобы проверить, находится ли ab в диапазоне. Ничего особенного кроме этого.

Eisfunke
источник

1

Haskell, 58 байт

Совсем недавно я снова влюбился в стрелки. К сожалению, они требуют, чтобы мы работали с кортежами вместо бинарных функций. И, конечно же, Haskell не имеет симметричной rangeфункции.

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

Берги
источник

1

PHP 7 - 45 байт

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

PerQsive
источник

Добро пожаловать на сайт!

DJMcMayhem

1

Октава, 55 байтов

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

Это может быть оптимизировано в дальнейшем. Я добавлю объяснение позже.

Том Карпентер
источник

Более простой подход . +1 за все "сумасшедшие вещи", хотя там: P

Стьюи Гриффин

1

Ним, 60 байт

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

Попробуйте онлайн!

Довольно стандартный, насколько ответы идут, никаких больших уловок в этом.

Сирил
источник

1

Свифт -38 30 22 байта

^{Сохранено 8 байтов благодаря @Matt}

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

Попробуйте это в IBM Swift Sandbox онлайн!

Или 21 байт:

^{(благодаря формуле @xnor ) и сэкономили 8 байтов благодаря @Matt}

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

Свифт - не лучший язык для игры в гольф (он очень жесткий), поэтому, если вы увидите любую другую возможность для игры в гольф, я полностью отредактирую ответ.

Мистер Xcoder
источник

Почему бы не поместить троичный в печать как печать (a ... b ~ = ab?

Мэтт

О да, хорошая идея. Спасибо @Matt

г-н Xcoder

1

Java 7, 84 60 58 байт

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

Java 8, 37 байт

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

Объяснение:

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

Тестовый код: попробуйте здесь.

Кевин Круйссен
источник

1

Ti-Basic (TI-84 Plus CE), 26 24 23 байта

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

TI-Basic - это токенизированный язык; все используемые токены являются однобайтовыми токенами .

Prompt предложит вам два номера.

A-B≥A and A-B≤Bпроверяет, находится ли AB между A и B (включительно); это возвращает 1, если истина и ноль, если ложь, которая сохраняется в Ans.

Так как мы возвращаем A, если AB находится между A и B, мы умножаем A на Ans, который будет A, если мы должны вернуть A, и 0 в противном случае.

Далее мы добавим Bnot(Ansк этому. Если Ans было 1 (правдиво), мы получаем not(его и получаем 0, таким образом, наша сумма равна A. Если Ans было 0 (ложно), мы not(получаем 1, который мы умножаем на B и добавляем к 0, чтобы получить B.

Последняя оценка в TI-Basic возвращается неявно.

-2 байта благодаря Скотту Милнеру

pizzapants184
источник

Вы можете сохранить два байта, не сохраняя третью строку Yи просто используя Ansв четвертой строке.

Скотт Милнер

1

Пыть , 32 байта

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

Принимает A и B из стандартного ввода в качестве двух отдельных входов

Объяснение:

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

где: C = BA и D = C∈ [A, ..., B] (1, если истина, 0, если ложь)

mudkip201
источник

0

Ом , 10 байт (CP437)

Вероятно, есть более удачный способ сделать это, но строго типизированная природа Ruby делает это трудным.

G┼┘-îε?┼¿┘

Ник Клиффорд
источник

0

Perl 6 , 31 29 24 байта

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

Попытайся

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

Попытайся

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

Попытайся

Брэд Гилберт b2gills
источник

Если AB будет в AB A еще B а?

Тестовые случаи

Ответы:

Python , 27 байт

Желе , 5 байт

Как это работает

05AB1E , 7 байтов

PHP, 58 байт

JavaScript (ES6), 24 байта

Контрольные примеры

Python 2, 37 байт

Python2, 55 52 51 байт

JavaScript ES6, 40 37 байт

Mathematica, 16 байтов

R, 49 30 28 байт

Clojure, 71 41 байт

PHP (7.1), 55 байт

PowerShell , 37 35 32 байта

Пакет, 107 байт

Pyth - 9 байт

Рёда , 30 байт

> <> , 21 байт

объяснение

Рубин , 27 22 байта

SpecBAS - 38 байт

Haskell, 21 байт

Удобочитаемый

объяснение

Haskell, 58 байт

PHP 7 - 45 байт

Октава, 55 байтов

Ним, 60 байт

Свифт -38 30 22 байта

Или 21 байт:

Java 7, 84 60 58 байт

Java 8, 37 байт

Ti-Basic (TI-84 Plus CE), 26 24 23 байта

Пыть , 32 байта

Ом , 10 байт (CP437)

Perl 6 , 31 29 24 байта