직무

감안 개의 양의 정수 (divId는의 E ND과 원격지에있는 DiViS O , R)는 계산 의 Q uotient 및 R의 emainder한다.
일반적으로 e = o*q+r위치 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.

파이썬 3 , 39 26 바이트

마틴 엔더 가 13 바이트를 절약했습니다

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

온라인으로 사용해보십시오!

파이썬 2 , 25 바이트

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

온라인으로 사용해보십시오!

젤리 , 3 바이트

NdN

온라인으로 사용해보십시오!

작동 원리

divmod를 다시 사용하면 \ o /. 유니 코드를 보지 마라!

NdN-전체 프로그램 / Dyadic chain. | 예 : 7, 20

N-첫 번째 입력을 무효화합니다. | -7
 d-두 번째로 Divmod. | [-1, 13]
  N-각각 다시 부정하십시오. | [1, -13]

하스켈 , 25 바이트

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

온라인으로 사용해보십시오!

수학, 21 바이트

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

온라인으로 사용해보십시오!

05AB1E , 4 바이트

(s‰(

온라인으로 사용해보십시오!

5 바이트

(‰ćÄJ

온라인으로 사용해보십시오!

작동 방식

파이썬의 모듈로를 남용합니다! \영형/

(s ‰ (| 전체 프로그램. A와 B를 두 개의 입력으로 설정하십시오. | 예 : 100, 13.

(| 계산 -A. | -100
 s | 스왑 (이 경우 스택을 뒤집습니다). | 13, -100
  ‰ | Divmod. | [-8, 4]
   (| 음수 (기본적으로 -1을 곱함). | [8, -4]

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

(‰ ćÄJ | 전체 프로그램. 입력을 역순으로 수행합니다.

(| 부정. -A를 누릅니다.
 ‰ | 디 모드
  ć | 헤드 추출 된 divmod를 밉니다 (스택을 quot, [remainder]].
   Ä | 절대 값 (몫에서 작동).
    J | 스택에 가입하십시오.

Alice , 15 바이트

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

온라인으로 사용해보십시오!

설명

루비의 정수 나눗셈과 모듈로 (앨리스가 구현 된)는 음의 제수를 사용하여 이미 우리가 원하는 것을 수행하도록 정의됩니다. 제수를 부정하면 자동으로 올바른 모듈로를 얻게되고 원하는 몫을 빼게됩니다. 따라서 이것을 해결하는 가장 쉬운 방법은 많은 숫자를 무효화하는 것입니다.

/   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 바이트

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

온라인으로 사용해보십시오!

줄리아 , 18 바이트

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

온라인으로 사용해보십시오!

.-은 요소 별 부정 fldmod이며 층 분할 및 결과 잔류 물로 구성된 튜플을 반환합니다.

MATL , 5 4 바이트

_&\_

온라인으로 사용해보십시오!

Luis Mendo 덕분에 -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)

온라인으로 사용해보십시오!

공통 리스프, 7 바이트

내장 함수 ceiling는 몫의 천장과 일치하는 나머지 값을 반환합니다.

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

자바 스크립트 (ES6), 37 31 29 27 25 바이트

@Rod 덕분에
2 바이트 절약 @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);
}

온라인으로 사용해보십시오!

자바 (OpenJDK 8) , 30 바이트

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

온라인으로 사용해보십시오!

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

++ 추가 , 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;}

이것은 두 가지 기능을 사용하여 부정 행위 일 수 있으며 다른 테스트에 실패 할 수 있습니까?

온라인으로 사용해보십시오

스위프트 , 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 바이트

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

온라인으로 사용해보십시오!

작동 원리

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