ऊपरी Divmod की गणना करें

Question

कार्य

दो पॉजिटिव पूर्णांक (विभाजन 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।

Comments

इसे नियमित दिव्यांग का एक तुच्छ संस्करण कहा जाता है।

— नील

क्या यह rउन rभाषाओं के लिए वास्तविक के रूप में आउटपुट के लिए स्वीकार्य है जो डेटा को संग्रहीत करने या अतिप्रवाह करने के लिए अहस्ताक्षरित बाइट्स का उपयोग करती है? ( -1→ 1/ 255)

— उरियेल

@ युरील हाँ, लेकिन उत्तर पर इसके बारे में एक नोट जोड़ें

— रॉड

Answer 1

पायथन 3 , 39 26 बाइट्स

मार्टिन एंडर ने 13 बाइट्स बचाए

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

इसे ऑनलाइन आज़माएं!

पायथन 2 , 25 बाइट्स

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

इसे ऑनलाइन आज़माएं!

Comments

मुझे लगता है कि आप केवल x%-yशेष पाने के लिए कर सकते हैं ।

— मार्टिन एंडर

वास्तव में, सभी रास्ते क्यों नहीं चलते ...(-(x//-y),x%-y)

— मार्टिन एंडर

@MartinEnder वास्तव में बहुत अच्छा है

— Halvardamm

@ Mr.Xcoder में दोनों शामिल थे

— Halvardamm

Answer 2

जेली , 3 बाइट्स

NdN

इसे ऑनलाइन आज़माएं!

यह काम किस प्रकार करता है

Divmod को फिर से गाली देना \ _ /। देखो माँ 'कोई यूनिकोड नहीं!

एनडीएन - पूर्ण कार्यक्रम / डायैडिक श्रृंखला। | उदाहरण: 7, 20

एन - नेगट पहला इनपुट। | -7
 डी - दूसरा एक द्वारा Divmod। | [-1, 13]
  एन - नेगेट प्रत्येक फिर से। | [१, -१३]

Answer 3

हास्केल , 25 बाइट्स

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

इसे ऑनलाइन आज़माएं!

Answer 4

गणितज्ञ, 21 बाइट्स

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

इसे ऑनलाइन आज़माएं!

Comments

क्या आप एक स्पष्टीकरण जोड़ सकते हैं, कृपया?

— रॉड

@ रोड ⌈#/#2⌉उनके विभाजन की छत की गणना करता है, और इसे एक चर में संग्रहीत करता है s, और फिर तर्क 1 से तर्क 2 * s को

— घटाता है

@ Mr.Xcoder आप तेज हैं!

— J42161217

Answer 5

05AB1E , 4 बाइट्स

(s‰(

इसे ऑनलाइन आज़माएं!

5 बाइट्स

(‰ćÄJ

इसे ऑनलाइन आज़माएं!

वे कैसे काम करते हैं

पाइथन के मॉडुलो को गाली देता है! \ O /

(s B | पूरा कार्यक्रम। A और B दो इनपुट होने दें। उदाहरण: 100, 13

(- कंप्यूट एए | -100 |
 s | स्वैप (इस मामले में, स्टैक को उल्टा करें)। | 13, -100
  ‰ | Divmod। | [-8, ४]
   (- नकारात्मक (प्रत्येक को 1 से गुणा करें, मूल रूप से)। [8, -4]

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

((ƉJ | पूर्ण कार्यक्रम। रिवर्स ऑर्डर में इनपुट लेता है।

(-। नकारात्मक। पुश-ए।
 ‰ | Divmod
  ć | पुश हेड एक्सट्रैक्टेड डीमोड (स्टैक [भागफल, [शेष]] बनाएं)।
   Ä | पूर्ण मान (भागफल पर संचालित)।
    जे | स्टैक में शामिल हों।

Comments

आह हाँ, यह भूल गए कि डिवमॉड नकारात्मक संख्याओं के साथ काम करता है :)

— एमिग्ना

और यह भी, यह नई कार्यक्षमता Jनहीं है? ऐसा पहले कभी नहीं देखा। निश्चित रूप से उपयोगी हो सकता है।

— Emigna

@Emigna इसे Join के रूप में वर्णित किया गया है । पुश '' .join (a) यदि एक सूची है; एल्स, पुश '' .जॉइन (स्टैक) । मुझे लगता है कि यह नई कार्यक्षमता है, हालांकि मैंने Jपहले कभी इस्तेमाल नहीं किया है : पी

— श्री एक्सकोडर

यह निश्चित रूप से नया है। अगस्त से अपने स्थानीय संस्करण पर की कोशिश की और 5)6देता है ['5']6:)

— Emigna

Answer 6

ऐलिस , 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.

Answer 7

परी / जीपी , 18 बाइट्स

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

इसे ऑनलाइन आज़माएं!

Answer 8

जूलिया , 18 बाइट्स

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

इसे ऑनलाइन आज़माएं!

.-तत्व वार निगेटिव है, और fldmodफ्लोवर डिविज़न और संबंधित अवशेषों के परिणामों से बना एक टपल देता है।

Answer 9

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

Answer 10

जे , 16 बाइट्स

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

यह अनिवार्य रूप से जेनी_मैथी के गणितज्ञ समाधान जे में फिर से लिखा गया है।

यह काम किस प्रकार करता है:

a=.>.@% बाएँ और दाएँ तर्कों के विभाजन की छत को ढूँढता है और उसे चर a में संग्रहीत करता है

,~ समाप्‍त (उलटा)

([-]*a) बाएं तर्क से * सही तर्क को घटाता है

इसे ऑनलाइन आज़माएं!

Answer 11

आर , 31 29 बाइट्स

-2 बाइट्स ग्यूसेप के लिए धन्यवाद

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

इसे ऑनलाइन आज़माएं!

Comments

मुझे लगता है कि आप -c(e%/%-o,-e%%o)

— Giuseppe

Answer 12

आम लिस्प, 7 बाइट्स

अंतर्निहित फ़ंक्शन ceilingदो मान लौटाता है: भागफल की छत और मिलान करने के लिए शेष:

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

Answer 13

जावास्क्रिप्ट (ईएस 6), 37 31 29 27 25 बाइट्स

सहेजे गए 2 बाइट्स @Rod
के लिए धन्यवाद 2 बाइट्स @ETHproductions के लिए धन्यवाद

करी सिंटैक्स में इनपुट लेता है। रिटर्न [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

Comments

आप संभवतः q=(a+b-1)/b+|0इसके बजायq=a/b+.9|0

— रॉड

@ETHproductions एक योजना की तरह लगता है। ;)

— अरनौलड

Answer 14

पर्ल 5 , 30 + 1 ( -p) = 31 बाइट्स

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

इसे ऑनलाइन आज़माएं!

Answer 15

4 , 55 50 बाइट्स

3.711712114001231311141130013513213131211513115154

इसे ऑनलाइन आज़माएं!

भाषा द्वारा बाइट इनपुट और आउटपुट का उपयोग करने के बाद से ओपिनियन कॉमेंट द्वारा मान्य माना जाता है, क्योंकि यह नकारात्मकता ( 10इसके बजाय -10) द्वारा अनुस्मारक का प्रतिनिधित्व करता है।

Answer 16

कमेंटेटर , 90 बाइट्स

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

इसे ऑनलाइन आज़माएं!

शेष को आउटपुट करता है, फिर भागफल, न्यूलाइन अलग हो जाता है।

Answer 17

सी (जीसीसी) , 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);
}

इसे ऑनलाइन आज़माएं!

Answer 18

जावा (ओपनजेडके 8) , 30 बाइट्स

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

इसे ऑनलाइन आज़माएं!

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

Answer 19

++ , 35 बाइट्स जोड़ें

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

इसे ऑनलाइन आज़माएं!

Answer 20

सी (जीसीसी) 41 बाइट्स

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

यह दो कार्यों का उपयोग करते हुए धोखा हो सकता है और यह अन्य परीक्षणों में विफल हो सकता है?

इसे ऑनलाइन आज़माएं

Answer 21

स्विफ्ट , 47 बाइट्स

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

Answer 22

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, एक नई पंक्ति से अलग हो जाता है।

Answer 23

TXR: 8 बाइट्स

निर्मित समारोह ceil-rem। जैसे (ceil-rem 20 7)पैदावार (7 -1)।

Answer 24

साफ , 42 बाइट्स

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

इसे ऑनलाइन आज़माएं!

Answer 25

डोरस्ट , 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