बाल्टी भर दें

Question

आपका काम किसी दिए गए इनपुट तक की संख्याओं के साथ बाल्टी भरना है।

नियम

संख्याएं सबसे बाईं स्थिति पर कब्जा करती हैं, फिर सबसे दाहिनी ओर, फिर सबसे बाईं ओर इत्यादि।

ओवरफ्लो होने के बाद, संख्याएं बाल्टी के चारों ओर समान तरीके से इकट्ठा होने लगती हैं। वे तिरछे स्थान पर रहते हैं।

उदाहरणों से यह स्पष्ट होना चाहिए कि अपेक्षित आउटपुट क्या है (कुछ नियमों का उल्लेख उदाहरणों में किया गया है)।

10 से अधिक के लिए, सबसे सही अंक का उपयोग करें

उदाहरण:

The bucket: 
|      |  or |      | 
|      |     |      | 
|      |     |      |
|      |     |      |
|------|     |______|

input:1  (You can start from either 0 or 1)
output:
|      |  (There can be whitespace to the left even if there is no overflow
|      |  but the bucket must not be distorted.)
|      |
|1     |
|------|

input:6
output:
|      |
|      |
|      |
|135642|
|------|

input:8
output:
|      |
|      |
|7    8|
|135642|
|------|

input:23
output:
|913 20|
|357864|
|791208|
|135642|
|------|

input:27
output:
  |913420|
  |357864|
  |791208|
  |135642|
75|------|6

input:30
output:
  |913420|
  |357864|
  |791208|
 9|135642|0
75|------|68

input:40
output:
    |913420|
    |357864|
   5|791208|6
 939|135642|040
7175|------|6828

input:54   (Maximum input for start=1)
    3|913420|4
   13|357864|42
  915|791208|620
 7939|135642|0408
57175|------|68286

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

Comments

|024531|$n=6$

@ अर्नुलद, हाँ, अनुक्रम 0 से शुरू हो सकता है

— वेदांत

यह कोड गोल्फ के लिए बेहतर कोडिंग चुनौतियों में से एक है जिसे मैंने यहां देखा है!

— माइकल करस

Answer 1

जावास्क्रिप्ट (Node.js) ,  145  143 बाइट्स

एक हार्ड-कोडित पैटर्न ( अधिक गणित के लिए यहां देखें )।

1 अनुक्रमित।

n=>`    g|EGIJHF|h
   e]|?ACDB@|^f
  c[U|9;=><:|V\\d
 aYSO|357864|PTZb
_WQMK|------|LNRX\``.replace(/[3-h]/g,c=>(x=Buffer(c)[0])<n+51?x%10:' ')

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

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

Comments

/[^\s|-]/->/[0-z]/

— tsh

@ स त डी'ोह! मैं इस सरलीकरण से पूरी तरह चूक गया। धन्यवाद!

— अरनौलड

Answer 2

जावास्क्रिप्ट (ईएस 6),  144 ... 139  137 बाइट्स

एक गणितीय दृष्टिकोण ( कम गणित के लिए यहां देखें )।

0 अनुक्रमित।

n=>(y=4,g=x=>~y?(X=x>8?17-x:x,k=X<y?g:X<5?24-(z=4+y-X)*~z+y*2:y*6+X*2-18,~X?X^5?k<0?'-':(k+=x>8)<n?k%10:' ':'|':`
`)+g(~X?-~x:!y--):'')()

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

कैसे?

$y$$4$$0$$x$$0$$18$

हम परिभाषित करते हैं:

$$X=\begin{cases}x&\text{if }x\le 8\\17-x&\text{if }x>8\end{cases}$$

केवल इकाई अंक के बजाय पूर्ण मान लिखने से, हमें निम्न तालिका मिलती है:

 x |  0  1  2  3  4  5  6  7  8 |  9 10 11 12 13 14 15 16 17 18
 X |  0  1  2  3  4  5  6  7  8 |  8  7  6  5  4  3  2  1  0 -1
---+----------------------------+-------------------------------
 4 | .. .. .. .. 52 || 18 20 22 | 23 21 19 || 53 .. .. .. .. \n
 3 | .. .. .. 50 42 || 12 14 16 | 17 15 13 || 43 51 .. .. .. \n
 2 | .. .. 48 40 34 || 6  8  10 | 11 9  7  || 35 41 49 .. .. \n
 1 | .. 46 38 32 28 || 0  2  4  | 5  3  1  || 29 33 39 47 .. \n
 0 | 44 36 30 26 24 || -- -- -- | -- -- -- || 25 27 31 37 45 \n

यह तालिका अनिवार्य रूप से y- अक्ष में सममित है, सिवाय इसके कि बाईं ओर के मूल्य समान हैं और दाईं ओर के मान उनके विषम समकक्ष हैं।

हम परिभाषित करते हैं:

$$k=\begin{cases}24+(4+y-X)(5+y-X)+2y&\text{if }X<5\\6y+2X-18&\text{if }X>5\end{cases}$$

$$k'=\begin{cases}k&\text{if }x\le 8\\k+1&\text{if }x>8\end{cases}$$

और प्रत्येक सेल के लिए, हम संलग्न हैं:

• अगर एक लाइनफीड$X=-1$
• $X=5$
• $k<0$
• $X<y$$k'>n$$n$
• $k' \bmod 10$

टिप्पणी की गई

n => (                                // main function taking n
  y = 4,                              // start with y = 4
  g = x =>                            // g = recursive function taking x
    ~y ?                              // if y is not equal to -1:
      ( X = x > 8 ? 17 - x : x,       //   compute X
        k = X < y ?                   //   if X is less than y:
          g                           //     set k to a non-numeric value
        :                             //   else:
          X < 5 ?                     //     if X is less than 5:
            24 - (z = 4 + y - X) * ~z //       apply the 'side numbers' formula
             + y * 2                  //
          :                           //     else:
            y * 6 + X * 2 - 18,       //       apply the 'middle numbers' formula
        ~X ?                          //   if X is not equal to -1:
          X ^ 5 ?                     //     if X is not equal to 5:
            k < 0 ?                   //       if k is less than 0:
              '-'                     //         append a hyphen
            :                         //       else:
              (k += x > 8) < n ?      //         update k to k'; if it's less than n:
                k % 10                //           append the unit digit of k'
              :                       //         else:
                ' '                   //           append a space
          :                           //     else (X = 5):
            '|'                       //       append a pipe
        :                             //   else (X = -1):
          `\n`                        //     append a linefeed
      )                               //
      + g(~X ? -~x : !y--)            //   update x and y, and do a recursive call
    :                                 // else (y = -1):
      ''                              //   stop recursion
)()                                   // initial call to g with x undefined

Answer 3

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

I=input()
s="    u|SUWXVT|v\n   sk|MOQRPN|lt\n  qic|GIKLJH|djr\n oga]|ACEFDB|^bhp\nme_[Y|------|Z\`fn"
i=1
exec"s=s.replace(chr(64+i),[`i%10`,' '][i>I]);i+=1;"*55
print s

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

Answer 4

जावा 10, 168 बाइट्स

n->"    g|EGIJHF|h\n   e]|?ACDB@|^f\n  c[U|9;=><:|V\\d\n aYSO|357864|PTZb\n_WQMK|------|LNRX`".chars().forEach(c->System.out.print(c<46|c==124?(char)c:c<n+51?c%10:" "))

पोर्ट @Arnauld के जावास्क्रिप्ट उत्तर (इसलिए 1-अनुक्रमित, और -नीचे के रूप में आउटपुट )। यदि आपको यह उत्तर पसंद है, तो उसे भी सुनिश्चित करें!

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

स्पष्टीकरण:

n->                      // Method with integer parameter and no return-type
  "    g|EGIJHF|h\n   e]|?ACDB@|^f\n  c[U|9;=><:|V\\d\n aYSO|357864|PTZb\n_WQMK|------|LNRX`"
                         //  String containing the bucket and magic string
   .chars().forEach(c->  //  Loop over the characters (as integers)
     System.out.print(   //   Print:
       c<46|c==124?      //    If the character is "\n", " ", "-", or "|":
        (char)c          //     Output the character as is
       :c<n+51?          //    Else-if the character value is smaller than the input + 51:
        c%10             //     Output a digit: the character value modulo-9
       :                 //    Else:
        " "))            //     Output a space

Answer 5

6502 मशीन कोड (C64), 130 बाइट्स

00 C0 20 9B B7 A9 C0 65 65 85 FB A2 00 BD 2B C0 F0 1A 10 12 C5 FB 90 04 A9 20
D0 0A 69 70 C9 3A 90 04 E9 0A B0 F8 20 D2 FF E8 D0 E1 60 20 20 20 20 F5 7D D3
D5 D7 D8 D6 D4 7D F6 0D 20 20 20 F3 EB 7D CD CF D1 D2 D0 CE 7D EC F4 0D 20 20
F1 E9 E3 7D C7 C9 CB CC CA C8 7D E4 EA F2 0D 20 EF E7 E1 DD 7D C1 C3 C5 C6 C4
C2 7D DE E2 E8 F0 0D ED E5 DF DB D9 7D 2D 2D 2D 2D 2D 2D 7D DA DC E0 E6 EE 00

यह कुछ अन्य उत्तरों के "विकृत" दृष्टिकोण के एक संशोधित संस्करण का उपयोग करता है। इसमें बाल्टी की एक पूरी स्ट्रिंग होती है, लेकिन अंकों को शुरू करने वाले मूल्यों से बदल दिया जाता है 0xC1, जबकि प्रत्यक्ष मुद्रण के लिए कोई भी वर्ण सीमा में हैं 0x01- 0x7f।

C64 चारसेट में एक पाइप ( |) वर्ण शामिल नहीं है , इसलिए इसे समान दिखने वाले PETSCII वर्ण के साथ बदल दिया गया है 0x7d।

ऑनलाइन डेमो

उपयोग: SYS49152,[n](1-अनुक्रमित, जैसे SYS49152,54पूर्ण उत्पादन के लिए)

असंतुष्ट टिप्पणी :

         00 C0       .WORD $C000        ; load address
.C:c000  20 9B B7    JSR $B79B          ; get unsigned byte from commandline
.C:c003  A9 C0       LDA #$C0           ; add #$C0 (+ carry = #$C1) ...
.C:c005  65 65       ADC $65            ; ... to parameter
.C:c007  85 FB       STA $FB            ; and store in $FB
.C:c009  A2 00       LDX #$00           ; loop index
.C:c00b   .loop:
.C:c00b  BD 2B C0    LDA .bucket,X      ; loop over encoded string
.C:c00e  F0 1A       BEQ .done          ; null-terminator -> done
.C:c010  10 12       BPL .out           ; positive (bit 7 clear) -> output
.C:c012  C5 FB       CMP $FB            ; compare with parameter+#$C1
.C:c014  90 04       BCC .digit         ; smaller -> convert to digit
.C:c016  A9 20       LDA #$20           ; otherwise load space character
.C:c018  D0 0A       BNE .out           ; and output
.C:c01a   .digit:
.C:c01a  69 70       ADC #$70           ; add offset to '0' (#$30)
.C:c01c   .check:
.C:c01c  C9 3A       CMP #$3A           ; greater than '9' (#$39) ?
.C:c01e  90 04       BCC .out           ; no -> to output
.C:c020  E9 0A       SBC #$0A           ; otherwise subtract 10 (#$a)
.C:c022  B0 F8       BCS .check         ; and check again
.C:c024   .out:
.C:c024  20 D2 FF    JSR $FFD2          ; output character
.C:c027  E8          INX                ; next index
.C:c028  D0 E1       BNE .loop          ; and repeat loop
.C:c02a   .done:
.C:c02a  60          RTS                ; exit ....
.C:c02b   .bucket:
.C:c02b  20 20 20    [...]              ; "encoded" string for bucket

Answer 6

चारकोल , 64 बाइट्स

Ｎθ³↑⁵‖Ｍ←Ｆ²«‖Ｊ⁻³ι±¹Ｆ⊘⁺θ¬ι«↖Ｉ﹪⁺⊗κ⊕ιχＭ§”)⊟E≡≦⌈▷⊖ü∕”꧔)⊟＆hXτtD(λＭ”κ

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

Ｎθ

नंबर इनपुट करें।

³↑⁵‖Ｍ←

आधी बाल्टी खींचें और फिर बाल्टी को पूरा करने के लिए इसे मिरर करें।

Ｆ²«

बाल्टी के प्रत्येक पक्ष के लिए लूप।

‖Ｊ⁻³ι±¹

बाल्टी को प्रतिबिंबित करें ताकि हम दोनों छोरों पर एक सुसंगत दिशा में आकर्षित कर सकें, और बाल्टी के उस तरफ पहले अंक की स्थिति पर कूद सकें।

Ｆ⊘⁺θ¬ι«

बाल्टी के उस तरफ अंकों की संख्या पर लूप।

↖Ｉ﹪⁺⊗κ⊕ιχ

अगला अंक प्रिंट करें और कर्सर को ऊपर और बाएं घुमाएँ।

Ｍ§”)⊟E≡≦⌈▷⊖ü∕”꧔)⊟＆hXτtD(λＭ”κ

दो संपीड़ित तारों, 003003003005203004000500(क्षैतिज ऑफसेट) और 11011011011510200300040000(ऊर्ध्वाधर ऑफसेट) से ऑफसेट को पढ़कर कर्सर की स्थिति को समायोजित करें । ये ऑफसेट उपरोक्त कर्सर आंदोलन को ध्यान में रखते हैं जिसका मतलब है कि उन्हें कभी भी नकारात्मक नहीं होना चाहिए।