仕事

2つの正の整数（divid e ndとdivis o r）が与えられた場合、q uotientとr emainderを計算します。
通常、e = o*q+rwhere q*o<=eおよびとして計算され0<=r<oます。
この挑戦のためにまだe = o*q+rそれがq*o>=e、そして-o<r<=0。
たとえばe=20とo=3、通常はそれは次のようになり20/3 -> 20=3*6+2、以来18<=20と0<=2<3。ここでそれは20/3 -> 20=3*7-1どこに21>=20なります-3<-1<=0

テストケース

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

処理する必要はありませんo=0。

Pythonの3、39の 26バイト

Martin Enderは13バイトを節約しました

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

オンラインでお試しください！

Python 2、25バイト

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

オンラインでお試しください！

ゼリー、3バイト

NdN

オンラインでお試しください！

使い方

再びdivmodを乱用します\ o /。まさかユニコードじゃない！

NdN-フルプログラム/ダイアディックチェーン。| 例：7、20

N-最初の入力を無効にします。| -7
 d-2番目の除算。| [-1、13]
  N-再度ネゲートします。| [1、-13]

Haskell、25バイト

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

オンラインでお試しください！

Mathematica、21バイト

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

オンラインでお試しください！

05AB1E、4バイト

(s‰(

オンラインでお試しください！

5バイト

(‰ćÄJ

オンラインでお試しください！

仕組み

Pythonのモジュロを乱用します！\ o /

（s‰（|完全なプログラム。AとBを2つの入力とします。|例：100、13。

（| Compute -A。| -100
 s | スワップ（この場合、スタックを逆にします）。| 13、-100
  ‰| Divmod。| [-8、4]
   （|負（基本的にそれぞれ-1を乗算）。| [8、-4]

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

（‰ćÄJ|完全なプログラム。逆順で入力を取ります。

（|マイナス。プッシュ-A。
 ‰| Divmod
  ć| プッシュヘッド抽出divmod（スタック[商、[剰余]]を作成します。
   Ä| 絶対値（商で演算）。
    J | スタックに参加します。

アリス、15バイト

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

オンラインでお試しください！

説明

Rubyの整数除算とモジュロ（Aliceの実装）は、負の除数を使用することで既に望んでいることを行うように定義されています。除数を否定すると、正しいモジュロが自動的に取得され、必要な商がマイナスになります。したがって、これを解決する最も簡単な方法は、多数の数字を無効にすることです。

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

パリ/ GP、18バイト

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

オンラインでお試しください！

ジュリア、18バイト

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

オンラインでお試しください！

.-は要素ごとの否定でありfldmod、フロア除算の結果と対応する剰余で構成されるタプルを返します。

MATL、5 4バイト

_&\_

オンラインでお試しください！

ルイス・メンドーのおかげで-1バイト

      # 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バイト

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

これは基本的に、Jで書き直されたJenny_mathyのMathematicaソリューションです。

使い方：

a=.>.@% 左右の引数の除算の上限を見つけて、変数aに格納します

,~ 連結（反転）

([-]*a) 左引数からa * right引数を引きます

オンラインでお試しください！

R、31 29バイト

-ジュゼッペのおかげで2バイト

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

オンラインでお試しください！

Common Lisp、7バイト

組み込み関数ceilingは、商の上限と一致する剰余の2つの値を返します。

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

JavaScript（ES6）、37 31 29 27 25バイト

保存された2は@Rodのおかげでバイト
保存@ETHproductionsに2つのバイトのおかげで

カリー化構文の入力を受け取ります。[q、r]を返します。

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

テストケース

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バイト

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

オンラインでお試しください！

4、55の 50バイト

3.711712114001231311141130013513213131211513115154

オンラインでお試しください！

言語はバイトの入出力を使用し、OPコメントで有効と見なされるため、（）10ではなく-10）否定によってリマインダーを表します。

コメンテーター、90バイト

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

オンラインでお試しください！

余りを出力し、次に商を改行で区切って出力します。

C（gcc）、43バイト

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

使用法

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

オンラインでお試しください！

Java（OpenJDK 8）、30バイト

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

オンラインでお試しください！

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

Add ++、35バイト

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

オンラインでお試しください！

C（gcc）41バイト

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

これは、2つの関数を使用した不正行為であり、他のテストに失敗する可能性がありますか？

オンラインで試す

Swift、47バイト

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

SNOBOL4（CSNOBOL4） 、124の 123 105バイト

 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

オンラインでお試しください！

入力をE、次にO、改行で区切って出力しQ、次にR、改行で区切って出力します。

TXR：8バイト

組み込み関数ceil-rem。例えば、(ceil-rem 20 7)収量(7 -1)。

クリーン、42バイト

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

オンラインでお試しください！

Deorst, 23 bytes

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

Try it online!

How it works

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