Görev

Verilen iki pozitif tamsayı (divid e nd ve divis o r) hesaplamak q uotient ve R emainder.
Normalde e = o*q+rnerede q*o<=eve olarak hesaplanır 0<=r<o.
Bu meydan okuma için hala e = o*q+rama q*o>=eve -o<r<=0.
Örneğin e=20ve o=3normalde 20/3 -> 20=3*6+2, 18<=20ve 0<=2<3. İşte 20/3 -> 20=3*7-1nerede olacak 21>=20ve-3<-1<=0

Test Durumları

Input -> Output
20, 3 -> 7, -1
10, 5 -> 2, 0
7, 20 -> 1, -13
100, 13 -> 8, -4

Ele almanıza gerek yok o=0.

Python 3 , 39 26 bayt

Martin Ender 13 bayt kurtardı

lambda x,y:(-(x//-y),x%-y)

Çevrimiçi deneyin!

Python 2 , 25 bayt

lambda x,y:(-(x/-y),x%-y)

Çevrimiçi deneyin!

Jöle , 3 bayt

NdN

Çevrimiçi deneyin!

Nasıl çalışır

Divmod'u tekrar kötüye kullanma \ o /. Bak unicode yok!

NdN - Tam program / Çift zincir. | Örnek: 7, 20

N - İlk girişi sıralayın. | -7
 d - İkincisi tarafından divmod. | [-1, 13]
  N - Her birini tekrar birleştirin. | [1, -13]

Haskell , 25 bayt

n#k=[-div(-n)k,mod n(-k)]

Çevrimiçi deneyin!

Mathematica, 21 bayt

{s=⌈#/#2⌉,#-#2s}&

Çevrimiçi deneyin!

05AB1E , 4 bayt

(s‰(

Çevrimiçi deneyin!

5 bayt

(‰ćÄJ

Çevrimiçi deneyin!

Onlar nasıl çalışır

Python'un modulo'unu kötüye kullanıyor! \Ö/

(s ‰ (| Tam program. A ve B iki giriş olsun. | Örnek: 100, 13.

(| Compute -A. | -100
 s | Takas edin (bu durumda yığını ters çevirin). | 13, -100
  ‰ | Divmod. | [-8, 4]
   (| Negatif (temel olarak her birini -1 ile çarpın). | [8, -4]

-------------------------------------------------- -

(‰ ćÄJ | Tam program. Girişi ters sırada alır.

(| Olumsuz. Push -A.
 ‰ | Divmod
  ć | Kafa çıkarılan divmod itin (yığını [bölüm, [kalan]] olun.
   Ä | Mutlak değer (bölüm üzerinde çalışır).
    J | Yığına katılın.

Alice , 15 bayt

/O.
\io/R%e,R:R

Çevrimiçi deneyin!

açıklama

Ruby'nin tamsayı bölümü ve modulo (Alice'in uygulandığı) tanımlanır, böylece negatif bir bölen kullanmak zaten bir tür istediğimizi yapar. Böleni reddedersek, otomatik olarak doğru modüloyu alırız ve eksi istediğimiz bölümü elde ederiz. Yani bunu çözmenin en kolay yolu bir grup sayıyı reddedmektir:

/   Switch to Ordinal mode.
i   Read all input as a string "e o".
.   Duplicate the string.
/   Switch to Cardinal mode.
R   Implicitly convert the top string to the two integer values it
    contains and negate o.
%   Compute e%-o.
e,  Swap the remainder with the other copy of the input string. We can't
    use the usual ~ for swapping because that would convert the string 
    to the two numbers first and we'd swap e%-o in between e and o instead
    of to the bottom of the string.
R   Negate o again.
:   Compute e/-o.
R   Negate the result again.
\   Switch to Ordinal mode.
O   Output -(e/-o) with a trailing linefeed.
o   Output e%-o.

    The code now bounces through the code for a while, not doing much except
    printing a trailing linefeed when hitting O again. Eventually, the IP
    reaches : and attempts a division by zero which terminates the program.

Pari / GP , 18 bayt

x->y->-[-x\y,-x%y]

Çevrimiçi deneyin!

Julia , 18 bayt

x$y=.-fldmod(-x,y)

Çevrimiçi deneyin!

.-element akıllıca olumsuzluktur ve fldmoddöşenmiş bölme ve ilgili kalıntıların sonuçlarından oluşan bir demet döndürür.

MATL , 5 4 bayt

_&\_

Çevrimiçi deneyin!

Luis Mendo sayesinde -1 bayt

      # implicit input
_     # unary minus (negates first input, o)
&\    # alternative output mod, returns remainder, quotient, implicitly takes e
_     # unary minus, takes the opposite of the quotient.
      # implicit output, prints stack as remainder
                                         quotient

J , 16 bayt

([-]*a),~a=.>.@%

Bu esasen, J'de yeniden yazılmış Jenny_mathy'nin Mathematica çözümüdür.

Nasıl çalışır:

a=.>.@% Sol ve sağ argümanların bölümünün tavanını bulur ve bunu değişken a

,~ birleştirilmiş (ters çevrilmiş)

([-]*a) * sağ argümanını sol argümandan çıkarır

Çevrimiçi deneyin!

R , 31 29 bayt

Giuseppe sayesinde -2 bayt

function(e,o)-c(e%/%-o,-e%%o)

Çevrimiçi deneyin!

Ortak Lisp, 7 bayt

Yerleşik işlev ceilingiki değer döndürür: bölümün tavanı ve eşleşecek kalan kısım:

$ clisp -q
[1]> (ceiling 20 7)
3 ;
-1

JavaScript (ES6), 37 31 29 27 25 bayt

@Rod sayesinde 2 bayt kaydedildi @ETHproductions
sayesinde 2 bayt kaydedildi

Currying sözdiziminde girdi alır. [Q, r] değerini döndürür .

a=>b=>[q=~-a/b+1|0,a-q*b]

Test senaryoları

let f =

a=>b=>[q=~-a/b+1|0,a-q*b]

console.log(JSON.stringify(f(20)(3)))   // -> 7, -1
console.log(JSON.stringify(f(10)(5)))   // -> 2, 0
console.log(JSON.stringify(f(7)(20)))   // -> 1, -13
console.log(JSON.stringify(f(100)(13))) // -> 8, -4

Perl 5 , 30 + 1 ( -p) = 31 bayt

say+($_-($\=$_%-($"=<>)))/$"}{

Çevrimiçi deneyin!

4 , 55 50 bayt

3.711712114001231311141130013513213131211513115154

Çevrimiçi deneyin!

Dil, OP yorumu tarafından geçerli kabul edilen bayt giriş ve çıkışını kullandığından hatırlatıcıyı olumsuzlama ( 10yerine -10) ile temsil eder .

Yorumcu , 90 bayt

//
;{- -}
{-{-//-}e#<!-}
;{-{-{- -}-}-}
{-{-{-e#-}
;{-{- -}-}
{-%e#*/-}#          /*-}e#*/

Çevrimiçi deneyin!

Kalan, daha sonra bölüm, satırsonu çıktısını çıktılar.

C (gcc) , 43 bayt

f(x,y,z)int*x;{for(z=0;*x>0;*x-=y)z++;y=z;}

kullanım

main(){
    int a=7,b=20,c; 
    c=f(&a,b); 
    printf("%d %d\n",c,a);
}

Çevrimiçi deneyin!

Java (OpenJDK 8) , 30 bayt

(i,j)->(i+j-1)/j+","+(i%j-j)%j

Çevrimiçi deneyin!

7,-1
2,0
1,-13
8,-4

++ , 35 bayt ekle

L*,@0$_$2D2D%V/1B]b\GLVB]-1Gx$pBcB*

Çevrimiçi deneyin!

C (gcc) 41 bayt

f(a,b){b=(a+b-1)/b;}g(a,b){b=a-f(a,b)*b;}

Bu iki işlevi kullanarak hile olabilir ve diğer testlerde başarısız olabilir?

Çevrimiçi deneyin

Swift , 47 bayt

func f(a:Int,b:Int){print((a+b-1)/b,(a%b-b)%b)}

SNOBOL4 (CSNOBOL4) , 124 123 105 bayt

 E =INPUT
 O =INPUT
 Q =E / O
 R =E - Q * O
 EQ(0,R) :S(A)
 R =R - O
 Q =Q + 1
A OUTPUT =Q
 OUTPUT =R
END

Çevrimiçi deneyin!

Olarak girişi alır E, daha sonra O, bir satır ve baskılar üzerinden ayrılmış Q, daha sonra R, bir satır ile ayrılmıştır.

TXR: 8 bayt

Dahili fonksiyon ceil-rem. Örneğin (ceil-rem 20 7)verim (7 -1).

Temiz , 42 bayt

import StdEnv
f a b#c=(a-1)/b+1
=(c,a-c*b)

Çevrimiçi deneyin!

Deorst , 23 bayt

@l0-%z]@l0-,l0-@l0-miE_

Çevrimiçi deneyin!

Nasıl çalışır

@                       - Swap the inputs
 l0-                    - Negate
    %                   - Modulo
     z]                 - Push the inputs
       @                - Swap
        l0-             - Negate
           ,            - Integer divide
            l0-         - Negate
               @        - Swap
                l0-     - Negate
                   miE_ - Print