Завдання

Зазначені два позитивних цілих чисел (DIVID е й і Divis O г), обчислити Q uotient і г emainder.
Зазвичай це було б обчислено як і e = o*q+rде . Для цього виклик все-таки, але і . Наприклад, і , як правило, це було б , оскільки і . Тут буде де і деq*o<=e0<=r<o
e = o*q+rq*o>=e-o<r<=0
e=20o=320/3 -> 20=3*6+218<=200<=2<320/3 -> 20=3*7-121>=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 байт

Мартін Ендер врятував 13 байт

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

Спробуйте в Інтернеті!

Python 2 , 25 байт

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

Спробуйте в Інтернеті!

Желе , 3 байти

NdN

Спробуйте в Інтернеті!

Як це працює

Знову зловживайте divmod \ o /. Подивися, ма 'не єдинод!

NdN - Повна програма / ланцюг Dyadic. | Приклад: 7, 20

N - заперечити перший вхід. | -7
 d - Divmod за другим. | [-1, 13]
  N - знову заперечуйте. | [1, -13]

Haskell , 25 байт

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

Спробуйте в Інтернеті!

Математика, 21 байт

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

Спробуйте в Інтернеті!

05AB1E , 4 байти

(s‰(

Спробуйте в Інтернеті!

5 байт

(‰ćÄJ

Спробуйте в Інтернеті!

Як вони працюють

Зловживає модулем Пітона! \ o /

(s ‰ (| Повна програма. Нехай A і B - два входи. | Приклад: 100, 13.

(| Обчислити -A. | -100
 s | Swap (в цьому випадку переверніть стек). | 13, -100
  ‰ | Divmod. | [-8, 4]
   (| Від'ємний (помножте кожен на -1, в основному). | [8, -4]

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

(‰ ćÄJ | Повна програма. Вводиться в зворотному порядку.

(| Негативний. Push -A.
 ‰ | Divmod
  ć | Виштовхнути голову ділмода (зробити стек [коефіцієнт, [залишок]].
   Ä | Абсолютне значення (діє на коефіцієнт).
    J | Приєднуйтесь до стека.

Аліса , 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.

Парі / 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=.>.@%

Це, по суті, рішення математики Jenny_mathy, переписане в Дж.

Як це працює:

a=.>.@% Знаходить стелю поділу аргументів на лівий і правий і зберігає їх у змінну a

,~ приєднаний до (зворотний)

([-]*a) віднімає * правий аргумент з лівого аргументу

Спробуйте в Інтернеті!

R , 31 29 байт

-2 байти завдяки Джузеппе

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

Спробуйте в Інтернеті!

Лист звичайний, 7 байт

Вбудована функція ceilingповертає два значення: стелю коефіцієнта та решту, які відповідають:

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

JavaScript (ES6), 37 31 29 27 25 байт

Збережено 2 байти завдяки @Rod
Збережено 2 байти завдяки @ETHproductions

Здійснює введення в синтаксис currying. Повертає [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

Спробуйте в Інтернеті!

Представляє нагадування за допомогою заперечення ( 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

Додайте ++ , 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)

Спробуйте в Інтернеті!

Деорст , 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