Tugas:

Keluarkan nilai untuk x, di mana a mod x = buntuk dua nilai yang diberikan a,b.

Anggapan

• adan bakan selalu menjadi bilangan bulat positif
• Tidak akan selalu ada solusi untuk itu x
• Jika ada beberapa solusi, hasilkan setidaknya satu di antaranya.
• Jika tidak ada solusi, tidak ada output atau indikasi yang tidak ada solusi.
• Built-in diizinkan (tidak menyenangkan seperti pendekatan matematika lainnya)
• Output selalu bilangan bulat

Contohnya

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

Ini adalah kode-golf , sehingga byte terendah menang.

JavaScript , 28 27 26 24 23 byte

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

Cobalah online!

false menunjukkan tidak ada solusi.

-1 terima kasih @Arnauld

MATL , 6 byte

tQ:\=f

Cobalah online! Atau verifikasi semua kasus uji .

Penjelasan

Pertimbangkan input 8, 2sebagai contoh.

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 byte

^{-6 byte terima kasih kepada Bubbler}

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

Cobalah online!

Jelly , 5 byte

‘R⁸%i

Mengembalikan minimal x atau 0 yang valid jika tidak ada.

Cobalah online!

Groovy, 48 byte (menggunakan bawaan):

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

Eval.me(...+"g") - Membubuhkan "g" ke input, menjadikannya BigInteger.

modInverse(...) - Melakukan operasi modulo terbalik.

Java 8, 70 byte

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

R , 33 28 byte

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

Cobalah online!

-4 byte berkat Jarko Dubbeldam.

-1 byte terima kasih kepada Giuseppe.

Kembali NAjika tidak ada solusi. TIO tidak memiliki pryr library yang diinstal, jadi kode pada tautan itu yang digunakan function(a,b).

Jelly , 11 10 byte

³%_⁴
r‘ÇÐḟ

Program lengkap mengambil dua bilangan bulat positif, adan b, dan mencetak daftar solusi bilangan bulat di antara min(a,b)+1dan max(a,b)+1inklusif.

Cobalah online!

Mathematica 36 Bytes

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

Memasukkan:

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

Keluaran:

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

Gangguan dengan code.hs: out of memory (requested ??? bytes)jika tidak ada solusi (batas waktu di TIO sebelum itu):

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

Cobalah online!

^{Terima kasih di Ørjan Johansen karena menemukan kesalahan!}

C # (Mono C # compiler) , 57 56 26 byte

Port of Rod's Python menjawab. Terima kasih kepada WW untuk -1 byte.

BESAR terima kasih kepada Kevin Cruijssen untuk -30 byte.

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

Cobalah online!

Pyth, 16 byte

hhx!0mqeQ%hQdShh

Cobalah online!

Semua uji kasus

Mengambil input sebagai [a, b], kesalahan jika tidak ada solusi yang ditemukan. Akan merevisi jika kesalahan tidak diizinkan.

APL (Dyalog Unicode) , 19 byte

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

Cobalah online!

Golf sedang berlangsung ...

Mathematica, 28 byte

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

PHP> = 7.1, 51 Bytes

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

Versi Online

Aksioma, 147 128 byte

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

ungolf itu dan uji

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

Ini akan menemukan semua solusi bahkan solusi set yang tak terbatas ...

Pip , 9 byte

a%,a+2@?b

Mengambil dua angka sebagai argumen baris perintah. Menghasilkan solusi terkecil, atau nol jika tidak ada solusi. Cobalah online!

Penjelasan

           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)

Misalnya, dengan input dari 8dan 2:

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

Indeks berbasis 0 dari kemunculan pertama 2dalam daftar ini adalah 3, yang merupakan solusi kami.

J , 14 byte

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

Cobalah online!

Terjemahan dari solusi Rod's Python 2 .

Bagaimana itu bekerja

Kasus yang jarang terjadi di mana kode J dapat langsung diterjemahkan ke dalam Python.

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

Japt , 13 byte

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

Cobalah online!

Terjemahan dari solusi JS eush77 .

Kode hanya (U-=V)?U>V&&U:-~Vketika ditransmisikan ke JS, di mana Udan Vmerupakan dua nilai input.

Ruby , 31 byte

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

Cobalah online!

Japt , 7 byte

(Akhirnya) Keluaran undefinedjika tidak ada solusi.

@%X¥V}a

Coba di sini

Perl 6 , 23 byte

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

Cobalah online!

Blok kode anonim yang mengembalikan daftar nilai yang mungkin dari 2hinggaa+1

ORK , 566 byte

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

Cobalah online!

O bjects R K ool. Untungnya, bagaimanapun, saya tidak perlu menggunakan (selain yang built-in) untuk tugas ini.

F #, 40 byte

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

Cobalah online!

Cukup mudah. Melempar System.Collections.Generic.KeyNotFoundExceptionjika tidak ada solusi yang dapat ditemukan.

Anda juga dapat memodifikasinya Seq.tryFind, yang akan mengembalikan int option, dengan Nonejika tidak ada solusi yang ditemukan.

05AB1E , 7 byte

>Lʒ¹s%Q

Cobalah secara online atau verifikasi semua kasus uji .

Penjelasan:

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

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

Port jawaban @Epicness 'C # , setelah saya mainkan sedikit lagi.

Cobalah online.

> <> , 21 byte

Trik yang sama dengan kebanyakan solusi yang diposting. Pertama, kami menyiapkan semua nilai yang diperlukan pada tumpukan dan kemudian memeriksa perbandingannya.

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

Cobalah online!

Bisikan v2 , 128 byte

> 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

Cobalah online!

Mengembalikan set semua solusi yang mungkin, dan set kosong (mis $\emptyset$) ketika tidak ada solusi.

Bagaimana itu bekerja

Tidak mengherankan, ia bekerja hampir identik dengan sebagian besar jawaban lain: ia menghasilkan daftar angka dan memeriksa masing-masing untuk modulus terbalik dengan argumen.

Jika Anda terbiasa dengan bagaimana struktur program Whispers bekerja, jangan ragu untuk beralih ke garis horizontal. Jika tidak: pada dasarnya, Whispers bekerja pada sistem referensi baris demi baris, mulai dari baris terakhir. Setiap baris digolongkan sebagai salah satu dari dua opsi. Entah itu adalah garis nilad , atau itu adalah garis operator .

Garis Nilad dimulai dengan >, seperti > Inputatau > {0}dan mengembalikan nilai tepat yang diwakili pada garis itu yaitu > {0}mengembalikan set$\{0\}$. > Inputmengembalikan baris STDIN berikutnya, dievaluasi jika mungkin.

Jalur operator dimulai dengan >>, seperti >> 1²atau >> (3]dan menunjukkan menjalankan operator pada satu atau beberapa nilai. Di sini, angka-angka yang digunakan tidak mereferensikan angka-angka eksplisit itu, melainkan mereka merujuk nilai pada baris itu. Sebagai contoh, ²adalah perintah kuadrat ($n \to n^2$), jadi >> 1²tidak mengembalikan nilai$1^2$, alih-alih mengembalikan kuadrat dari baris 1 , yang, dalam hal ini, adalah input pertama.

Biasanya, garis operator hanya berfungsi menggunakan angka sebagai referensi, namun Anda mungkin telah memperhatikan garis >> L=2dan >> L⋅R. Kedua nilai ini, Ldan R, digunakan bersama dengan Eachpernyataan. Eachpernyataan bekerja dengan mengambil dua atau tiga argumen, lagi sebagai referensi numerik. Argumen pertama (misalnya 5) adalah referensi ke garis operator yang digunakan fungsi, dan sisanya dari argumen adalah array. Kami kemudian mengulangi fungsi di atas array, di mana Ldan Rdi fungsi mewakili elemen saat ini (s) dalam array yang diulangi. Sebagai contoh:

Membiarkan $A = [1, 2, 3, 4]$, $B = [4, 3, 2, 1]$ dan $f(x, y) = x + y$. Dengan asumsi kita menjalankan kode berikut:

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

Kami kemudian mendapatkan demonstrasi tentang bagaimana Eachpernyataan bekerja. Pertama, ketika bekerja dengan dua array, kita ritsleting mereka untuk membentuk$C = [(1, 4), (2, 3), (3, 2), (4, 1)]$ lalu petakan $f(x, y)$ atas setiap pasangan, membentuk susunan terakhir kami $D = [f(1, 4), f(2, 3), f(3, 2), f(4, 1)] = [5, 5, 5, 5]$

Cobalah online!

Cara kerja kode ini

Bekerja berlawanan secara intuitif dengan cara Whispers bekerja, kita mulai dari dua baris pertama:

> Input
> Input

Ini mengumpulkan dua input kami, katakanlah $x$ dan $y$, dan menyimpannya masing-masing di jalur 1 dan 2 . Kami kemudian menyimpan$x^2$pada baris 3 dan buat rentang$A := [1 ... x^2]$pada saluran 4 . Selanjutnya, kita lompat ke bagian

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

Hal pertama dilaksanakan di sini adalah garis 7 , >> Each 5 4yang iterates baris 5 melewati garis 4 . Ini menghasilkan array$B := [i \: \% \: x \: | \: i \in A]$dimana $a \: \% \: b$didefinisikan sebagai modulus dari$a$ dan $b$.

Kami kemudian mengeksekusi baris 8 , >> Each 6 7yang iterates baris 6 lebih$B$, menghasilkan sebuah array $C := [(i \: \% \: x) = y \: | \: i \in A]$.

Untuk input $x = 5, y = 2$, kita punya $A = [1, 2, 3, ..., 23, 24, 25]$, $B = [0, 1, 2, 1, 0, 5, 5, ..., 5, 5]$ dan $C = [0, 0, 1, 0, 0, ..., 0, 0]$

Kami kemudian melompat ke bawah

>> L⋅R
>> Each 9 4 8

yang merupakan contoh kita dari Eachpernyataan diad . Di sini, fungsi kami adalah garis 9 yaitu >> L⋅Rdan dua array kami adalah$A$ dan $C$. Kami mengalikan setiap elemen dalam$A$ dengan elemen yang sesuai di $C$, yang menghasilkan array, $E$, di mana setiap elemen bekerja dari hubungan berikut:

Kami kemudian berakhir dengan array yang terdiri dari $0$dan moduli kebalikan dari $x$ dan $y$. Untuk menghapus$0$s, kami mengonversi array ini ke set ( >> {10}), lalu mengambil perbedaan set antara set ini dan$\{0\}$, menghasilkan, lalu mengeluarkan, hasil akhir kami.

C #, 53 byte (83 dengan judul fungsi)

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

Cobalah secara Online

Pertama coba di codegolf. Mungkin bukan bahasa terbaik untuk digunakan, atau pengkodean yang paling efisien.