Zadanie:

Podaj wartość dla x, gdzie a mod x = bdla dwóch podanych wartości a,b.

Założenie

• ai bzawsze będą dodatnimi liczbami całkowitymi
• Nie zawsze będzie na to rozwiązanie x
• Jeśli istnieje wiele rozwiązań, wypisz co najmniej jedno z nich.
• Jeśli nie ma żadnych rozwiązań, nie wypisuj nic lub wskazuj, że nie ma żadnych rozwiązań.
• Wbudowane są dozwolone (nie tak zabawne, jak inne podejścia matematyczne)
• Dane wyjściowe są zawsze liczbami całkowitymi

Przykłady

A, B >> POSSIBLE OUTPUTS

5, 2 >> 3
9, 4 >> 5
8, 2 >> 3, 6
6, 6 >> 7, (ANY NUMBER > 6)
8, 7 >> NO SOLUTION
2, 4 >> NO SOLUTION
8, 5 >> NO SOLUTION
10,1 >> 3, 9

To jest golf golfowy , więc wygrywa najmniej bajtów.

JavaScript , 28 27 26 24 23 bajtów

a=>b=>(a-=b)?a>b&&a:b+1

Wypróbuj online!

false wskazuje brak rozwiązania.

-1 dzięki @Arnauld

MATL , 6 bajtów

tQ:\=f

Wypróbuj online! Lub sprawdź wszystkie przypadki testowe .

Wyjaśnienie

Rozważmy wejść 8, 2jako przykład.

t    % Implicit input. Duplicate                STACK: 8, 8
Q    % Add 1                                    STACK: 8, 9
:    % Range                                    STACK: 8, [1 2 3 4 5 6 7 8 9]
\    % Modulo                                   STACK: [0 0 2 0 3 2 1 0 8]
=    % Implicit input. Equality comparison      STACK: [0 0 1 0 0 1 0 0 0]
f    % Indices of nonzeros. Implicit display    STACK: [3 6]

Python 2 , 40 34 bajtów

^{-6 bajtów dzięki Bubblerowi}

lambda a,b:[(a==b)*-~a,a-b][a>b*2]

Wypróbuj online!

Galaretka , 5 bajtów

‘R⁸%i

Zwraca minimalną prawidłową wartość x lub 0, jeśli jej nie ma.

Wypróbuj online!

Groovy, 48 bajtów (przy użyciu wbudowanego):

{a,b->Eval.me(a+"g").modInverse(Eval.me(b+"g"))}

Eval.me(...+"g") - Umieszcza „g” na wejściu, co czyni go BigInteger.

modInverse(...) - Wykonuje odwrotną operację modulo.

Java 8, 70 bajtów

{a,b->return BigInteger.valueOf(a).modInverse(BigInteger.valueOf(b));}

R , 33 28 bajtów

pryr::f(match(b,a%%1:(a+1)))

Wypróbuj online!

-4 bajty dzięki Jarko Dubbeldam.

-1 bajt dzięki Giuseppe.

Zwraca, NAjeśli nie ma rozwiązania. TIO nie ma zainstalowanej biblioteki pryr, więc function(a,b)zamiast tego używa kodu w tym linku .

Galaretka , 11 10 bajtów

³%_⁴
r‘ÇÐḟ

Pełen program, biorąc dwie liczby całkowite dodatnie, ai b, i drukując listę rozwiązań całkowitą pomiędzy min(a,b)+1i max(a,b)+1włącznie.

Wypróbuj online!

Mathematica 36 bajtów

a_±b_:=Select[Range[9a],a~Mod~#==b&]

Wejście:

5 ± 2
9 ± 4
8 ± 2
6 ± 6
8 ± 7
2 ± 4
8 ± 5
10 ± 1

Wynik:

{3}
{5}
{3, 6}
{7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, \
25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, \
42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54}
{}
{}
{}
{3, 9}

Haskell , 33 bajty

Występuje awaria, code.hs: out of memory (requested ??? bytes)jeśli nie ma rozwiązania (wcześniej limit czasu na TIO):

a!b=[x|x<-[b+1..],mod(a-b)x<1]!!0

Wypróbuj online!

^{Dzięki dla Ørjan Johansen za wykrycie błędu!}

C # (kompilator Mono C #) , 57 56 26 bajtów

Odpowiedź Port Pytona na Rod . Dzięki WW za -1 bajt.

Ogromne podziękowania dla Kevina Cruijssena za -30 bajtów.

a=>b=>a-b>b?a-b:a==b?a+1:0

Wypróbuj online!

Pyth, 16 bajtów

hhx!0mqeQ%hQdShh

Wypróbuj online!

Wszystkie przypadki testowe

Pobiera dane wejściowe jako [a, b]błędy, jeśli nie znaleziono rozwiązania. Skoryguje, jeśli błędy nie są dozwolone.

APL (Dyalog Unicode) , 19 bajtów

A←{(⍳⍵+1)/⍨⍺=⍵|⍨⍳⍵+1}

Wypróbuj online!

Gra w golfa w toku ...

Mathematica, 28 bajtów

Which[#>2#2,#-#2,#==#2,#+1]&

PHP> = 7,1, 51 bajtów

for([,$a,$b]=$argv;++$x<2*$a;)$a%$x!=$b?:print$x._;

Wersja online

Aksjomat, 147 128 bajtów

g(a:PI,c:PI):Union(List PI,Stream INT)==(a<c=>[];r:=a-c;r=0=>expand((a+1..)::UniversalSegment INT);[b for b in divisors(r)|b>c])

rozkop go i przetestuj

--a%b=c return all possible b
f(a:PI,c:PI):Union(List PI, Stream INT)==
    a<c=>[]
    r:=a-c
    r=0=>expand((a+1..)::UniversalSegment INT)
    [b  for b in divisors(r)|b>c]

(3) -> [[i,j,g(i,j)] for i in [5,9,8,6,8,2,8,10] for j in [2,4,2,6,7,4,5,1]]
   (3)
   [[5,2,[3]], [9,4,[5]], [8,2,[3,6]], [6,6,[7,8,9,10,11,12,13,14,15,16,...]],
    [8,7,[]], [2,4,[]], [8,5,[]], [10,1,[3,9]]]
                                                      Type: List List Any

To znalazłoby całe rozwiązanie, nawet rozwiązanie nieskończonego zestawu ...

Pip , 9 bajtów

a%,a+2@?b

Pobiera dwie liczby jako argumenty wiersza polecenia. Zwraca najmniejsze rozwiązanie lub zero, jeśli nie istnieje żadne rozwiązanie.Wypróbuj online!

Wyjaśnienie

           a, b are cmdline args (implicit)
  ,a+2     Range from 0 up to but not including a+2
a%         Take a mod each of those numbers
           (Note that a%0 returns nil; it emits a warning, but only if warnings are turned on)
      @?b  Find the index of the first occurrence of b in this list, or nil if it doesn't occur
           Autoprint (implicit)

Na przykład z danymi wejściowymi 8i 2:

   a+2   10
  ,      [0 1 2 3 4 5 6 7 8 9]
a%       [() 0 0 2 0 3 2 1 0 8]

Bazujący na 0 indeks pierwszego wystąpienia 2na tej liście 3to nasze rozwiązanie.

J , 14 bajtów

(->]){-,~=*1+]

Wypróbuj online!

Tłumaczenie rozwiązania Rod's Python 2 .

Jak to działa

Rzadkie przypadki, w których kod J można bezpośrednio przetłumaczyć na język Python.

(->]){-,~=*1+]  <=>  [(a==b)*(1+b),a-b][a-b>b]
         =*1+]        (a==b)*(1+b)
      -,~            [            ,a-b]
     {                                 [     ]
(->])                                   a-b>b

Japt , 13 bajtów

UµV ?U>V©U:ÒV

Wypróbuj online!

Tłumaczenie rozwiązania JS eush77 .

Kod jest po (U-=V)?U>V&&U:-~Vprzeniesieniu do JS, gdzie Ui Vsą dwiema wartościami wejściowymi.

Ruby , 31 bajtów

->a,b{(1..a+1).find{|x|a%x==b}}

Wypróbuj online!

Japt , 7 bajtów

(Ostatecznie) Wyprowadza, undefinedjeśli nie ma rozwiązania.

@%X¥V}a

Wypróbuj tutaj

Perl 6 , 23 bajtów

{grep $^a%*==$^b,^$a+2}

Wypróbuj online!

Anonimowy blok kodu, który zwraca listę możliwych wartości od 2doa+1

ORK , 566 bajtów

When this program starts:
I have a inputter called I
I have a number called a
I have a number called b
I is to read a
I is to read b
I have a mathematician called M
M's first operand is a
M's second operand is b
M is to subtract
I have a number called n
n is M's result
M's first operand is b
M's second operand is n
M is to compare
I have a scribe called W
If M says it's less then W is to write n
If M says it's less then W is to write "\n"
M's second operand is a
M is to compare
If M says it's equal then W is to write a
If M says it's equal then W is to write a

Wypróbuj online!

O bjects R K schłodzić. Na szczęście jednak nie musiałem używać żadnych (oprócz wbudowanych) do tego zadania.

F #, 40 bajtów

let m a b=Seq.find(fun x->a%x=b){1..a+1}

Wypróbuj online!

Całkiem proste. Zgłasza a, System.Collections.Generic.KeyNotFoundExceptionjeśli nie można znaleźć rozwiązania.

Możesz także zmodyfikować go do Seq.tryFind, który zwróci an int option, Nonejeśli nie można znaleźć rozwiązania.

05AB1E , 7 bajtów

>Lʒ¹s%Q

Wypróbuj online lub sprawdź wszystkie przypadki testowe .

Wyjaśnienie:

>          # First (implicit) input + 1
 L         # Create a range [1, n]
  ʒ        # Filter; only keep elements where:
   ¹s%     #  The first input modulo this value
      Q    #  Equals the second (implicit) input

Java 8, 26 bajtów

a->b->a-b>b?a-b:a==b?a+1:0

Port @Epicness 'C # odpowiedź , po ja grałem go nieco więcej.

Wypróbuj online.

> <> , 21 bajtów

Ta sama sztuczka, co większość opublikowanych rozwiązań. Najpierw przygotowujemy wszystkie niezbędne wartości na stosie, a następnie sprawdzamy porównania.

::r::{-:{)?nr=?!;1+n;

Wypróbuj online!

Whispers v2 , 128 bajtów

> Input
> Input
>> 1²
>> (3]
>> 1%L
>> L=2
>> Each 5 4
>> Each 6 7
>> L⋅R
>> Each 9 4 8
> {0}
>> {10}
>> 12∖11
>> Output 13

Wypróbuj online!

Zwraca zestaw wszystkich możliwych rozwiązań oraz pusty zestaw (tj $\emptyset$), gdy nie ma rozwiązania.

Jak to działa

Nic dziwnego, że działa prawie identycznie jak większość innych odpowiedzi: generuje listę liczb i sprawdza każdą z nich pod kątem modułu odwrotności z argumentem.

Jeśli znasz się na strukturze programu Szeptów, możesz przejść do linii poziomej. Jeśli nie: zasadniczo Szepty działają w systemie odniesienia linia po linii, zaczynając od ostatniej linii. Każda linia jest sklasyfikowana jako jedna z dwóch opcji. Albo jest to linia Nilad , albo linia operatora .

Linie Nilad zaczynają się od >, na przykład > Inputlub, > {0}i zwracają dokładną wartość przedstawioną w tym wierszu, tj. > {0}Zwraca zestaw$\{0\}$. > Inputzwraca następny wiersz STDIN, oceniany, jeśli to możliwe.

Linie operatora zaczynają się od >>, na przykład >> 1²lub >> (3]i oznaczają uruchomienie operatora na jednej lub więcej wartości. W tym przypadku użyte liczby nie odnoszą się do tych wyraźnych liczb, lecz odnoszą się do wartości w tym wierszu. Na przykład ²to polecenie kwadratowe ($n \to n^2$), więc >> 1²nie zwraca wartości$1^2$, zamiast tego zwraca kwadrat linii 1 , który w tym przypadku jest pierwszym wejściem.

Zazwyczaj linie operatora działają tylko przy użyciu liczb jako odniesień, ale być może zauważyłeś linie >> L=2i >> L⋅R. Te dwie wartości Li Rsą używane w połączeniu z Eachinstrukcjami. Eachinstrukcje działają na podstawie dwóch lub trzech argumentów, ponownie jako odniesień numerycznych. Pierwszy argument (np. 5) Jest odniesieniem do linii operatora używanej funkcji, a pozostałe argumenty są tablicami. Następnie iterujemy funkcję po tablicy, gdzie Li Rw funkcji reprezentują bieżący element (y) w tablicach, które są iterowane. Jako przykład:

Pozwolić $A = [1, 2, 3, 4]$, $B = [4, 3, 2, 1]$ i $f(x, y) = x + y$. Zakładając, że uruchamiamy następujący kod:

> [1, 2, 3, 4]
> [4, 3, 2, 1]
>> L+R
>> Each 3 1 2

Następnie otrzymujemy demonstrację działania Eachoświadczeń. Po pierwsze, pracując z dwiema tablicami, spakujemy je do postaci$C = [(1, 4), (2, 3), (3, 2), (4, 1)]$ następnie mapuj $f(x, y)$ nad każdą parą, tworząc naszą ostateczną tablicę $D = [f(1, 4), f(2, 3), f(3, 2), f(4, 1)] = [5, 5, 5, 5]$

Wypróbuj online!

Jak działa ten kod

Pracując w sposób sprzeczny z intuicją, jak działa Szept, zaczynamy od dwóch pierwszych linii:

> Input
> Input

To zbiera nasze dwa wejścia, powiedzmy $x$ i $y$i zapisuje je odpowiednio w wierszach 1 i 2 . Następnie przechowujemy$x^2$w linii 3 i utwórz zakres$A := [1 ... x^2]$na linii 4 . Następnie przeskakujemy do sekcji

>> 1%L
>> L=2
>> Each 5 4
>> Each 6 7

Pierwszą rzeczą tutaj jest wykonywany linia 7 , >> Each 5 4, który iteracje linii 5 na linię 4 . To daje tablicę$B := [i \: \% \: x \: | \: i \in A]$, gdzie $a \: \% \: b$ is defined as the modulus of $a$ and $b$.

We then execute line 8, >> Each 6 7, which iterates line 6 over $B$, yielding an array $C := [(i \: \% \: x) = y \: | \: i \in A]$.

For the inputs $x = 5, y = 2$, we have $A = [1, 2, 3, ..., 23, 24, 25]$, $B = [0, 1, 2, 1, 0, 5, 5, ..., 5, 5]$ and $C = [0, 0, 1, 0, 0, ..., 0, 0]$

We then jump down to

>> L⋅R
>> Each 9 4 8

which is our example of a dyadic Each statement. Here, our function is line 9 i.e >> L⋅R and our two arrays are $A$ and $C$. We multiply each element in $A$ with it's corresponding element in $C$, which yields an array, $E$, where each element works from the following relationship:

We then end up with an array consisting of $0$s and the inverse moduli of $x$ and $y$. In order to remove the $0$s, we convert this array to a set (>> {10}), then take the set difference between this set and $\{0\}$, yielding, then outputting, our final result.

C#, 53 bytes (83 with function heading)

static int F(int a, int b){
    for(int i=1;i<=a+1;i++){if(a%i==b)return i;}return 0;
}

Try It Online

First try at codegolf. Probably not the best language to use, nor the most efficient coding.