कुछ संख्या का विस्तार करें

23

यह चुनौती इस Stackoverflow प्रश्न पर आधारित है ।

इनपुट के रूप में एक सकारात्मक संख्या के साथ, इसे प्रत्येक अंक के योग के रूप में आउटपुट करें, इसकी शक्ति -10 प्रतिनिधित्व द्वारा गुणा किया जाता है।

इनपुट

एक संख्या, पूर्णांक, एक स्ट्रिंग या अंकों / वर्णों की सूची के रूप में।

  • संख्या सख्ती से सकारात्मक होगी।
  • यदि आप संख्या को स्ट्रिंग या सूची के रूप में स्वीकार करते हैं, तो यह ए से शुरू नहीं होगा 0।

उत्पादन

प्रत्येक संबंधित बेस -10 अंकों की राशि का प्रतिनिधित्व करने वाला एक स्ट्रिंग, प्रत्येक अपनी संबंधित बेस -10 शक्ति से गुणा करता है। एक राशि के रूप में प्रतिनिधित्व किया है a + b। +यदि आप चाहते हैं तो आप साइन के हर तरफ एक स्थान तक का उपयोग कर सकते हैं। ऑपरेंड को अवरोही क्रम में सूचीबद्ध किया गया है।

  • 0 एक वैध ऑपरेंड कभी नहीं हो सकता।
  • +चिह्न (रिक्त स्थान से घिरा हुआ हो या नहीं) आगे या पीछे भाग नहीं हो सकता।

उदाहरण

Input       Output
12          10 + 2
         or 10+2
         or 10 +2
         or 10+ 2
9           9
123         100 + 20 + 3
10          10
101         100 + 1

अमान्य आउटपुट

2           1 + 1
10          10 + 0
1           0 + 1
12          + 10 + 2
12          10 + 2 +
12          2 + 10

यह कोड-गोल्फ है इसलिए बाइट्स जीत में सबसे छोटा कोड है!

code-golf  number 
— ओलिवियर ग्रेजायर
स्रोत
— ओलिवियर ग्रेजायर
— caird coinheringaahing
क्या हम रिवर्स में राशि का उत्पादन कर सकते हैं? पूर्व। 123 = 3 + 20 + 100
— क्विंटेक
1
अग्रणी और अनुगामी रिक्त स्थान की अनुमति है?
— ngn
2
इनपुट 0 के लिए अपेक्षित आउटपुट क्या है? (यदि मैं पहले स्थान पर एक अमान्य इनपुट हूं, तो उसे अमान्य आउटपुट उदाहरण IMO से हटा दिया जाना चाहिए)
— पेड्रो ए

जवाबों:

11

पायथन 3: 83 80 79 बाइट्स

यह ऑनलाइन की कोशिश करो!

मेरा पहला कोड गोल्फ सबमिशन।

t=input();x=len(t);print(*[t[i]+'0'*(x+~i)for i in range(x)if'0'<t[i]],sep='+')

-3 बाइट्स ओव्स द्वारा। उस उपयोगी टिप के लिए धन्यवाद :) -4 mypetlion द्वारा बाइट्स। उस छोटी सी टिप के लिए धन्यवाद :)

— गारेथ मा
स्रोत
PPCG में आपका स्वागत है! आप करने के लिए अपने अगर बयान का क्रम बदल कर अपने स्कोर में सुधार कर सकते हैं if'0'<t[i]और से अपने फार्मूला बदल x-i-1करने के लिए x+~i। यहाँ चरण दर चरण परिवर्तनों के साथ एक TIO लिंक है।
— अंडा
1 बाइट बचाने के लिए printस्टेटमेंट बदलें print(*[t[i]+'0'*(x+~i)for i in range(x)if'0'<t[i]],sep='+')।
— mypetlion
10

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

ḊƬḌQIAj”+

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

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

ḊƬḌQIAj”+  Main link. Argument: A (digit array)

 Ƭ         Til; apply the link to the left until the results are no longer unique.
           Return all unique results.
Ḋ              Dequeue; discard the first element.
           For input [1,2,0,4], this yields [[1,2,0,4], [2,0,4], [0,4], [4], []].
  Ḍ        Undecimal; convert the digit arrays into integers.
           For input [1,2,0,4], this yields [1204, 204, 4, 4, 0].
   Q       Unique; deduplicate the resulting integers.
           For input [1,2,0,4], this yields [1204, 204, 4, 0].
    I      Increments; yield the forward differences.
           For input [1,2,0,4], this yields [-1000, -200, -4].
     A     Absolute value.
      j”+  Join with separator '+'.
— डेनिस
स्रोत
3
स्मार्ट दृष्टिकोण!
— क्विंट सेक 9'18
8

जावास्क्रिप्ट (ईएस 6), 47 बाइट्स

एक पूर्णांक के रूप में इनपुट लेता है।

f=(n,m=1,k=n%m)=>n-k?f(n-k,m*10)+(k?'+'+k:''):n

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

टिप्पणी की गई

f = (                     // f is a recursive function taking:
  n,                      //   n = number to process
  m = 1,                  //   m = modulo (a power of 10, starting at 1)
  k = n % m               //   k = n mod m
) =>                      //
  n - k ?                 // if n is not equal to k:
    f(n - k, m * 10)      //   do a recursive call with n - k and m * 10
    + (k ? '+' + k : '')  //   if k is not zero: append '+' and k
  :                       // else:
    n                     //   append n and stop recursion
— Arnauld
स्रोत
7

आर , 55 बाइट्स

पूर्णांक मानकर सभी 1e10 से कम हैं, जो कि वैसे भी अधिकतम 32 बिट पूर्णांक से बड़ा है ...

function(n,p=10^(9:0),x=p*n%/%p%%10)cat(x[!!x],sep='+')

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

— J.Doe
स्रोत
खैर, 10^(nchar(n):1-1सैद्धांतिक रूप से किसी भी पूर्णांक के लिए काम करेंगे ...
— Giuseppe
1
यह होगा, लेकिन उन सभी अतिरिक्त बाइट्स को देखो!
— जे। डी।
7

शेक्सपियर प्रोग्रामिंग लैंग्वेज , 807 806 805 804 बाइट्स

,.Ajax,.Ford,.Page,.Act I:.Scene I:.[Enter Ajax and Ford]Ford:Listen tothy!Scene V:.Ajax:Remember the remainder of the quotient between I twice the sum of a cat a big big cat.You be the sum of you a cat.Ford:You be the quotient between you twice the sum of a cat a big big cat.Be you nicer zero?If solet usScene V.You be I.Scene X:.Ajax:Recall.Be you worse a cat?If solet usScene D.[Exit Ford][Enter Page]Ajax:Be you nicer zero?If sospeak thy.You be the sum of a big big big big cat the cube of the sum of a cat a big cat.[Exit Page][Enter Ford]Ajax:Open heart.Remember I.You zero.Scene L:.Ajax:Am I nicer a cat?If notlet usScene C.Open heart.Ford:You be the sum of you a pig.Let usScene L.Scene C:.Ajax:Recall.Ford:You be I.Scene D:.Ford:You be the sum of you a pig.Be you nicer zero?If solet usScene X.

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

-23 बाइट्स यदि कोई अशक्त चरित्र पहले आउटपुट हो सकता है

,.Ajax,.Ford,.Page,.Act I:.Scene I:.[Enter Ajax and Ford]Ford:Listen tothy!Scene V:.Ajax:Remember the remainder of the quotient between I twice the sum of a cat a big big cat.You be the sum of you a cat.Ford:You be the quotient between you twice the sum of a cat a big big cat.Be you nicer zero?If solet usScene V.You be I.Scene X:.Ajax:Recall.Be you worse a cat?If solet usScene D.[Exit Ford][Enter Page]Ajax:Speak thy.You be the sum of a big big big big cat the cube of the sum of a cat a big cat.[Exit Page][Enter Ford]Ajax:Open heart.Remember me.You zero.Scene L:.Ajax:Am I nicer a cat?If notlet usScene C.Open heart.Ford:You be the sum of you a pig.Let usScene L.Scene C:.Ajax:Recall.Ford:You be I.Scene D:.Ford:You be the sum of you a pig.Be you nicer zero?If solet usScene X.

व्याख्या

,.Ajax,.Ford,.Page,.Act I:.Scene I:.[Enter Ajax and Ford]

    Boilerplate, introducing the characters.

Ford:Listen tothy!

    Input a value to Ajax.

Scene V:.Ajax:Remember the remainder of the quotient between I twice the sum of a cat a big big cat.You be the sum of you a cat.Ford:You be the quotient between you twice the sum of a cat a big big cat.Be you nicer zero?If solet usScene V.

    Push the digits of Ajax onto Ford's stack, and set Ford's value to be the number of digits in Ajax.

You be I.

    Store the number of digits in the input to Ajax.

Scene X:.Ajax:Recall.Be you worse a cat?If solet usScene D.

    Pop the next digit off the stack, and skip processing it if it equals 0.

[Exit Ford][Enter Page]Ajax:Be you nicer zero?If sospeak thy.You be the sum of a big big big big cat the cube of the sum of a cat a big cat.[Exit Page][Enter Ford]

    All characters start out with a value of 0.
    If Page is 0, that means this is the first number being processed, and we shouldn't output a plus.
    In either case, store the ASCII value of "+" to Page to output next time it is needed.

Ajax:Open heart.Remember I.You zero.

    Output the digit, save the remaining-digit-count for later, and store 0 to Ford for output purposes.

Scene L:.Ajax:Am I nicer a cat?If notlet usScene C.Open heart.Ford:You be the sum of you a pig.Let usScene L.

    Output one fewer 0 than the number of remaining digits to process.

Scene C:.Ajax:Recall.Ford:You be I.

    Store the remaining-digit-count back into Ajax.

Scene D:.Ford:You be the sum of you a pig.Be you nicer zero?If solet usScene X.

    Subtract 1 from the remaining-digit-count, and loop back until there are no more digits left to process.
— JosiahRyanW
स्रोत
6

जेली ,  12  11 बाइट्स

J’⁵*Ṛ×ḟ0j”+

एक पूर्ण कार्यक्रम अंकों की सूची (पायथन प्रारूप में) के रूप में संख्या को स्वीकार करता है जो परिणाम को प्रिंट करता है।

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

कैसे?

J’⁵*Ṛ×ḟ0j”+ - Main Link: list of digits  e.g. [1,0,2,0,3,0]
J           - range of length                 [1,2,3,4,5,6]
 ’          - decrement (vectorises)          [0,1,2,3,4,5]
  ⁵         - literal 10                      10
   *        - exponentiate (vectorises)       [1,10,100,1000,10000,100000]
    Ṛ       - reverse                         [100000,10000,1000,100,10,1]
     ×      - multiply (vectorises)           [100000,0,2000,0,30,0]
      ḟ0    - filter discard zeros            [100000,2000,30]
        j”+ - join with '+'                   [100000,'+',2000,'+',30]
            - implicit (smashing) print       "100000+2000+30"

पिछला @ 12 बाइट्स:

Ḣ;0€ƊÐƤẸƇj”+
— जोनाथन एलन
स्रोत
5

हास्केल, 60 54 बाइट्स

संपादित करें: -6 बाइट्स Delfad0r के लिए धन्यवाद।

tail.(>>=('+':)).filter(>="1").scanr((.('0'<$)).(:))""

एक स्ट्रिंग के रूप में इनपुट नंबर लेता है।

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

    scanr(        )""    -- starting with the empty string fold from the right and
                         -- collect the intermediate results in a list
      (.('0'<$)).(:)     -- non pointfree: \d s -> d : ('0'<$s)
                         -- i.e. take the next digit 'd' and append the current result
                         -- from the scanr where each char is replaced by 0
                         --
                         -- e.g. "103" -> ["100","00","3"]
                         --
  f ilter(>="1")         -- keep only elements that have not a 0 as the first char
 (>>=('+':))             -- prepend a + to each element and flatten into
                         -- a single list
tail                     -- drop the first char, ie.e the leading +
— nimi
स्रोत
2
tail.(>>=('+':)).filter(>="1").scanr((.('0'<$)).(:))""6 बाइट्स बचाता है यह ऑनलाइन कोशिश करो! ।
— डेल्फ़्रेड ०
1
@ Delfad0r: अच्छा, बहुत बहुत धन्यवाद!
— नीमी
4

05AB1E , 10 बाइट्स

सीधे आगे कार्यान्वयन।
अंकों की सूची के रूप में इनपुट।

āR<°*0K'+ý

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

व्याख्या

    *        # multiply each digits in the input with
āR<°         # 10^(len(input)-1-index)
     0K      # remove results that are zero
       '+ý   # merge on "+"
— Emigna
स्रोत
4

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

lambda n:'+'.join(`b`+~e*'0'for e,b in enumerate(n,-len(n))if b)

एक अनाम फ़ंक्शन जो अंकों की एक सूची लेता है n, और एक स्ट्रिंग लौटाता है।

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

enumerate(n)एक सूचकांक शुरू करने के साथ index, itemभर में tuples का उत्पादन होगा ।n0

हालांकि enumerateयह भी करने के लिए, अपनी दूसरी तर्क के रूप में एक वैकल्पिक प्रारंभिक सूचकांक लेता है यह निर्धारित करके -len(n)हम मिल सूचकांक ( eके रों) -len(n), -len(n)+1, ..., -1।

इस का मतलब है किसी भी आइटम के लिए आवश्यक अनुगामी शून्य की संख्या ( b) है -1-e, जो है ~eतो ~e*'0'आवश्यक अनुगामी शून्य हो जाता है।

`b`पूर्णांक अंक का एक स्ट्रिंग प्रतिनिधित्व प्राप्त करता है bऔर +इसे उन शून्य के साथ जोड़ता है।

if bके साथ प्रविष्टियों को छानता है b==0।

'+'.join(...)तब +वर्णों के साथ परिणामी तार जुड़ता है ।

— जोनाथन एलन
स्रोत
4

हास्केल , 56 55 52 बाइट्स

-4 बाइट थैंक्स टू निम्मी ।

tail.f
f('0':x)=f x
f(d:x)='+':d:('0'<$x)++f x
f x=x

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

व्याख्या

g :: String -> String

-- drop the first char (the leading +) from f
g = tail.f

f :: String -> String

-- if the first digit is 0, continue with the rest of the number
f ( '0' :rest) = f rest

-- otherwise, add a +, the digit and as many 0s as there are digit in the rest.
f (digit:rest) = '+' : digit : ('0' <$ rest) ++ f rest

-- if there is no digit left, return the empty string
f "" = ""

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

— OVS
स्रोत
3

पर्ल 6 , 38 बाइट्स

{join '+',grep +*,($_ Z~[R,] 0 Xx^$_)}

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

अनाम कोड ब्लॉक जो अंकों की सूची लेता है और एक स्ट्रिंग लौटाता है।

स्पष्टीकरण:

{                                    }  # Anonymous code block
                   $_ Z~   # Zip concatenate the list of digits with
                        [R,] 0 Xx^$_   # The correct number of 0s

          grep +*,(                 )  # Filter out all all the 0 values
 join '+',   # And join with '+'s
— मजाक कर रहा है
स्रोत
3

APL (Dyalog), 46 41 40 बाइट्स

{¯1↓∊{'0'=⊃⍵:⍬⋄⍵}¨⍵,¨('0'⍴⍨¨⌽⍳≢⍵),¨'+'}

-5 बाइट्स @ @ @ का धन्यवाद

अनाम उपसर्ग फ़ंक्शन। एक स्ट्रिंग के रूप में इनपुट लेता है। TIO

(यह पीपीसीजी पर एपीएल का उपयोग करने का मेरा पहला मौका है, शायद गोल्फ खेलने योग्य है। इसके अलावा, आपको शाप देते हैं, जीरो!)

— Quintec
स्रोत
41 बाइट्स के साथ⎕IO←0
— dzaima
3

रेटिना , 19 बाइट्स

|'+L$`[1-9]
$&$.'*0

इसे ऑनलाइन आज़माएं! लिंक में परीक्षण मामले शामिल हैं। स्पष्टीकरण:

L`[1-9]

सभी गैर-शून्य अंकों की सूची बनाएं

$
$&$.'*0

प्रत्येक अंक के लिए, जितने शून्य थे उतने ही अंकों को जोड़ लें।

|'+

+डिफ़ॉल्ट न्यूलाइन के बजाय प्रत्येक परिणाम को s से अलग करें ।

रेटिना 0.8.2 , 21 बाइट्स

M&!`[1-9].*
\B.
0
¶
+

इसे ऑनलाइन आज़माएं! लिंक में परीक्षण मामले शामिल हैं। स्पष्टीकरण:

M&!`[1-9].*

गैर-शून्य अंकों से शुरू होने वाले इनपुट के सभी प्रत्ययों को सूचीबद्ध करें।

\B.
0

सभी अनुगामी अंकों को शून्य से बदलें।

¶
+

परिणामों को +एस के साथ मिलाएं।

— नील
स्रोत
3

सी (जीसीसी) , 71 69 बाइट्स

पुनरावर्ती फ़ंक्शन का प्रत्येक चरण उस भाग को घटाता है जो इसे प्रिंट करेगा और शेष संख्या को पास करेगा।

सुझाव के लिए सीलिंग के लिए धन्यवाद।

g(v,c,w){v&&printf("+%d"+!g(v-w,c*10)+!w*3,w=v%c);w=v;}f(v){g(v,10);}

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

— ErikF
स्रोत
3

ब्रेकीलॉग , 35 32 बाइट्स

l⟧₅;?z{tℕ₁I&h;10↔^;I×ṫ}ˢ;"+"zckc

-3 बाइट का कारण 0 वैध इनपुट नहीं है

इसे ऑनलाइन आज़माएं! या परीक्षण

व्याख्या

                                    #   implicit input          eg  105
l                                   #   length of input             3
 ⟧₅                                 #   descending range ]n,0]      [2, 1, 0]
   ;?                               #   pair with input             [[2, 1, 0], [105]]
     z                              #   zip (considers numbers as array of digits)
                                    #                               [[2, 1], [1, 0], [0, 5]]
      {               }ˢ            #   select (map and filter)     [2, 1]  |   [1, 0]  |   [0, 5]
       t                            #       tail (last element)     1       |   0       |   5
        ℕ₁                          #       is at least 1           1       |   fail    |   5
          I                         #       store in I
           &h                       #       head of input           2       |           |   0
             ;10↔                   #       pair with 10 & reverse  [10, 2] |           |   [10, 0]
                 ^                  #       power                   100     |           |   1
                  ;I                #       pair with I             [100, 1]|           |   [1, 5]
                    ×               #       multiply                100     |           |   5
                     ṫ              #       to string               "100"   |           |   "5"
                        ;"+"        #   pair with "+"               [["100", "5"], "+"]
                            z       #   zip (cycles shorter)        [["100", "+"], ["5", "+"]]
                             c      #   concat (flattens)           ["100", "+", "5", "+"]
                              k     #   knife (remove last)         ["100", "+", "5"]
                               c    #   concat                      "100+5"
— Kroppeb
स्रोत
ओपी ने अब निर्दिष्ट किया है कि 0 एक इनपुट नहीं है जिसे आपको संभालना है, इसलिए आप |∧Ṡअंत से हटा सकते हैं । :)
— १५
3

Brachylog v2, 15 बाइट्स

~+bᵛ⁰↔;"+"zckwᵐ

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

बहुत, बहुत अकुशल।

किसी भी तरह, यह (के रूप में बंटवारे संख्या क्या अधिकांश भाषाओं में कठिन हिस्सा है पर केवल 6 बाइट्स का उपयोग करने का प्रबंधन करता है एक 10 ख जहां एक "के साथ शामिल होने के लिए एक एकल अंक है, घटते क्रम में), और एक पूरे 9 बाइट्स +"(जो कि अधिकांश गोल्फिंग भाषाओं में एक बिलिन है, लेकिन ब्रेकीलॉग नहीं है)।

मेरे अधिकांश ब्रैकलॉग सबमिशन (जो कार्य हैं) के विपरीत, यह एक पूर्ण कार्यक्रम है, जो मानक इनपुट से इनपुट ले रहा है और मानक आउटपुट के लिए उत्पादन कर रहा है।

व्याख्या

~+bᵛ⁰↔;"+"zckwᵐ
~+               Find an additive partition of the input number
   ᵛ               such that each component of the partition,
  b                when the first digit is removed
    ⁰              is equal to 0;
     ↔           reverse it,
      ;"+"z      pair every element with "+",
           c     flatten the resulting list one level,
            k    remove the last element (i.e. the final "+"),
             w   and print
              ᵐ  each remaining element.

(इस कारण wᵐका उपयोग अधिक सामान्य होने के बजाय किया जाता cहै कि हम एक विषम सूची के साथ काम कर रहे हैं - इसमें संख्या और तार दोनों शामिल हैं - और इन्हें मिश्रण करने की अनुमति देने के बजाय, यह सिर्फ उन सभी को व्यक्तिगत रूप से प्रिंट करने के लिए सबसे सरल है।)

एल्गोरिथ्म यहाँ इनपुट के सभी योगात्मक विभाजन पर बल देता है जब तक कि यह एक उपयुक्त नहीं मिलता है (!)। ब्रेजलॉग कम संभावनाओं में विभाजन का पक्षधर है, और आरोही क्रम में छंटनी की संभावनाओं के साथ, इसलिए पहला समाधान जो इसे मिलेगा वह उस समाधान का उल्टा है जो सवाल पूछ रहा है। इसलिए हमें केवल उस समाधान को प्राप्त करना है जिसे हम चाहते हैं।

— ais523
स्रोत
2

अटैची , 37 बाइट्स

Join&"+"@{Id\`-&>Pairs[_'0]}@Suffixes

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

पॉइंटफ्री संस्करण (41 बाइट्स): Join&"+"##`\&:Id##`-&>Pairs@`'&0@Suffixes

व्याख्या

Join&"+"@{Id\`-&>Pairs[_'0]}@Suffixes      input e.g.: 1203
                             Suffixes      take the suffixes of the input digit
                                           e.g.: [1203, 203, 3, 3] 
         {                 }@              apply the inner lambda to the suffixes:
                       _'0                   append `0`
                                             e.g.: [1203, 203, 3, 3, 0]
                 Pairs[   ]                  generate the pairs of integers of the above
                                             e.g.: [[1203, 203], [203, 3], [3, 3], [3, 0]]
             `-&>                            subtraction over each pair
                                             e.g.: [1000, 200, 0, 3]
          Id\                                keep only truthy (nonzero) elements
                                             e.g.: [1000, 200, 3]
Join&"+"@                                  join the result by `+`
                                           e.g.: "1000+200+3"
— कोनोर ओ ब्रायन
स्रोत
2

पॉवर्सशेल, 55 52 बाइट्स

$i=$args.Count;($args|%{$_+'0'*--$i}|?{+$_})-join'+'

स्क्रिप्ट में स्ट्रिंग की एक सरणी की उम्मीद है, प्रत्येक स्ट्रिंग में एक अंक होता है। टेस्ट स्क्रिप्ट:

$f = {

$i=$args.Count;($args|%{$_+'0'*--$i}|?{+$_})-join'+'

}

@(
    ,('10','1','0')
    ,('10+2','1','2')
    ,('9','9')
    ,('100+20+3','1','2','3')
    ,('100+1','1','0','1')
) | % {
    $e, $a = $_
    $r = &$f @a
    "$($e-eq$r): $(-join$a)=$r"
}

आउटपुट:

True: 10=10
True: 12=10+2
True: 9=9
True: 123=100+20+3
True: 101=100+1
— Mazzy
स्रोत
2

जाप , 13 बाइट्स

अंकों की एक सरणी के रूप में इनपुट लेता है।

í*¡ApYÃw)f q+

कोशिश करो

व्याख्या

í                 :Interleave
  ¡               :  Map input
   A              :    10
    p             :    To the power of
     Y            :    The current 0-based index
      Ã           :  End map
       w          :  Reverse
 *                :  Reduce each pair by multiplication
        )         :End interleaving
         f        :Filter (remove 0s)
           q+     :Join with "+"

विकल्प

इनपुट को अंक स्ट्रिंग के एक सरणी के रूप में लेता है।

ËúTUÊ-EÃfn q+

कोशिश करो

— झबरा
स्रोत
2

जावा 10, 82 78 बाइट्स

n->f(n,1)Object f(int n,int m){return m<n?f(n-n%m,m*10)+(n%m>0?"+"+n%m:""):n;}

पोर्ट ऑफ़ अरनल्ड्स जावास्क्रिप्ट (ES6) उत्तर ।
-2 बाइट्स @ceilingcat की बदौलत ।
-2 बाइट्स अरनौल्ड की बदौलत ।

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

स्पष्टीकरण:

n->                      // Method with int parameter & Object return-type
  f(n,1)                 //  Call the recursive method with `n` and 1

Object f(int n,int m){   // Recursive method with 2 int parameters & Object return-type
  return m<n?            //  If `m` is smaller than `n`:
          f(n-n%m,m*10)  //   Do a recursive call with `n-n%m` and `m` multiplied by 10
          +(n%m>0?       //   And if `n` is not divisible by `m`:
            "+"          //    Append a "+"
            +n%m         //    As well as `n%m`
           :             //   Else:
            "")          //    Append nothing more
         :               //  Else:
          n;}            //   Simply return the input `n`
— केविन क्रूज़सेन
स्रोत
मुझे लगता है कि यह उत्तर मूल प्रश्न के लिए भी मान्य होगा । :) (शायद n%mपठनीयता के लिए एक चर को सौंपा गया है।)
— अरनौल्ड
1
अच्छा! मेरा मूल समाधान 91 बाइट्स था।
— ओलिवियर ग्रेगोइरे
1
@ceilingcat वास्तव में, m<nकाम करना चाहिए।
— अरनुलद
2

एसईडी -E ,109 99 97 75 74 बाइट्स

h;s:.:0:g;G
:l;s:.(.*)\n(.)(.*)\+?(.*):\1\n\3+\4\2\1:;tl
s:\+0+::g;s:..?::

इनपुट की प्रत्येक पंक्ति को एक अलग संख्या माना जाता है। इसे ऑनलाइन आज़माएं ।

स्पष्टीकरण:

h;                                           | copy the original string to the temporary buffer
  s:.:0:g;                                   | substitute all digits with zeroes
          G                                  | append the original string to the substituted one
                                             |
:l;                                          | main loop start
   s:.(.*)\n(.)(.*)\+?(.*):\1\n\3+\4\2\1:;   | cut the next digit from the number, append with zeroes and add to the back
                                          tl | loop if the substitution hasn`t converged yet
                                             |
s:\+0+::g;                                   | remove all zero terms
          s:..?::                            | remove \n and the first +, if any

... गोल्फ हो सकता है वायदा, मुझे लगता है।

— hidefromkgb
स्रोत
नमस्कार और पीपीसीजी में आपका स्वागत है। आपका उत्तर ठीक लग रहा है, हालाँकि मुझे समझ नहीं आ रहा है कि आपने BADC0FFEE टेस्ट केस क्यों जोड़ा । मुझे लगता है कि चुनौती केवल दशमलव अभ्यावेदन के बारे में है।
— जोनाथन फ्रीच
चुनौती की युक्ति के अनुसार, आपको संभालने की जरूरत नहीं है 01010101010या 000000। क्या यह किसी भी बाइट को बचाता है?
— डेनिस
@ डेनिस सबसे शायद नहीं, जैसा कि अग्रणी शून्य और बीच के लोग समान व्यवहार करते हैं, इसलिए मुझे उन्हें वैसे भी मिटाने की जरूरत है।
— हिडेनफ्रॉम्बकॉब
2

ब्रेनफक, 147 बाइट्स

>>+[[<]>+[>],]-[>+>+<<-----]>--->--------<<<[<]>---[[<+<+>>-]<[>+<-]>>.<<<[>>[>]>.<<[<]<-]>>[>]>>.<<<[<]>>>[<[-]>[<+>-]>]>[<+>-]>[<+>-]<<<<[<]>-]>.

इसे ऑनलाइन आज़माएं! (आपको चिह्नित बॉक्स पर टिक करना होगा "!" और कोड की दूसरी पंक्ति पर "!" के बाद अपना इनपुट टाइप करें अन्यथा यह हमेशा के लिए इनपुट मांगता रहेगा। "

इसका शायद सबसे छोटा जवाब नहीं है या कम से कम इसे करने के लिए तैयार किया जा सकता है, लेकिन यह ब्रेनफक में कोशिश करने और ऐसा करने के लिए बहुत मजेदार था इसलिए मैं इसे पोस्ट कर सकता हूं।

जैसा @JoKing ने बताया, यह प्रोग्राम 0 को नहीं हटाता है। मैं कोशिश करूंगा और इसे ठीक करूंगा लेकिन यह काफी कठिन हो सकता है।

स्पष्टीकरण:

>>+[[<]>+[>],]                            Takes inputs and records the amount of them
-[>+>+<<-----]>--->--------               Sets the next 2 cells to 48 (0) and 43 (plus)
<<<[<]>---                                Returns to the start and corrects the number of inputs
                                          Loop
[[<+<+>>-]<[>+<-]>>.                      Prints the first number
<<<[>>[>]>.<<[<]<-]                       Prints the correct number of 0's
>>[>]>>.                                  Prints plus
<<<[<]>                                   Returns to the first cell
>>[<[-]>[<+>-]>]>[<+>-]>[<+>-]<<<<[<]>-]  Removes the first number and shifts everything up by one to make the second number the first 
                                          Loops until on last number
>.                                        Prints last number
— FinW
स्रोत
क्षमा करें, लेकिन यह निर्दिष्ट के रूप में शून्य को नहीं हटाता है। इसे ऑनलाइन आज़माएं!
— जो राजा
धन्यवाद, मैंने ध्यान नहीं दिया। मैं कोशिश करूँगा और इसे ठीक करूँगा। जब भी मैं हूं, मैं अपने पोस्ट को संपादित करूंगा
— FinW
2

एपीएल (डायलॉग यूनिकोड) , 20 बाइट्स

{⍵'+'⍺}/0~⍨(10×⊢)\∘⌽

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

अंकों के एक वेक्टर के रूप में इनपुट लेता है। प्रत्येक से पहले और बाद में एक स्थान के साथ आउटपुट +, और अग्रणी रिक्त स्थान की एक चर राशि शामिल है।

यह एक ट्रेन है। इसे निम्नलिखित में विभाजित किया गया है।

  ┌───┴───┐
  /     ┌─┼──┐
┌─┘     0 ⍨  ∘
{⍵'+'⍺} ┌─┘ ┌┴┐
        ~   \ ⌽
          ┌─┘
       ┌──┼─┐
       10 × ⊢

पहला फ़ंक्शन है ⌽, यह सरणी को उलट देता है, इसलिए 1 0 2बन जाता है 2 0 1।

फिर हम इसमें आते हैं (10×⊢)\, जिसे उलट सरणी पर लागू किया जाता है। यह हिस्सा बोग्रोफेडोनेज़ चुनौती के लिए ngn के जवाब से प्रेरित है । Ngn की व्याख्या करते हुए, अंकों के एक सदिश को देखते हुए A B C ..., (10×⊢)\इस सदिश पर लगाने से निम्नलिखित जानकारी मिलती है।

A (A (10×⊢) B) (A (10×⊢) (B (10×⊢) C)) ...
A ((10×⊢) B) ((10×⊢) (10×C)) ...
A (10×B) (10×10×C) ...

पर 2 0 1, (10×⊢)\देता है 2 0 100।

अगला आता है 0~⍨। यह 0सरणी से सभी को हटा देता है , दे रहा है 2 100।

अंत में +एस आता है । {⍵'+'⍺}/एक कमी है जो दाएं से शुरू होती है जो बाएं आर्ग को समतल करती है +, उसके बाद दायाँ आर्ग। प्रभावी रूप से, यह +एस डालने के दौरान सरणी को उलट देता है । यह देता है 100 '+' 2, जो के रूप में प्रदर्शित किया जाता है 100 + 2।

— क्रिकटी लिथोस
स्रोत
2

मैथॉल्फ , 12 11 10 बाइट्स

hrzúm*ç'+u

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

व्याख्या

पहले कमांड की जरूरत नहीं है क्योंकि इनपुट को अंकों की सूची के रूप में दिया जा सकता है।

(▒           Convert to a list of digits)
 h           Get length of input list without popping
  r          Push range(a)
   z         Reverse sort
    ú        Map i -> 10**i for each element in list
     m*      Element-wise multiplication
       ç     Filter faulty items in list
        '+   Push "+"
          u  Join with separator

मैं जोड़ीदार गुणक ऑपरेटर जोड़ सकता हूं जो एक बाइट है, लेकिन यह वर्तमान में भाषा का हिस्सा नहीं है। तब मैं इस समाधान से एक बाइट निकाल सकता था।

— maxb
स्रोत
हमारी साइट का प्रयोग करके, आप स्वीकार करते हैं कि आपने हमारी Cookie Policy और निजता नीति को पढ़ और समझा लिया है।
Licensed under cc by-sa 3.0 with attribution required.