ASCII बुकशेल्फ़


27

आप उन स्टैकेबल अलमारियों को जानते हैं जो मूल रूप से सिर्फ लकड़ी के बक्से हैं जिन्हें एक साथ ढेर किया जा सकता है? हम कुछ ASCII कला वाले लोगों में से कुछ बुकशेल्व्स का निर्माण करने जा रहे हैं।

हमारी किताबें सब कर रहे हैं आसानी से आकार में एक समान है, और निम्नलिखित की तरह सभी देखो:

|X|
|X|
|X|

बुकशेल्व्स अलग-अलग बॉक्स हैं, हमेशा अंदर की तरफ तीन अक्षर ऊँचे होते हैं (एक किताब को सीधा खड़ा करने के लिए पर्याप्त), |बाएँ और दाएँ पर वर्णों से बना होता है , -ऊपर और नीचे के पात्रों के लिए, और Xकिताबों को फिट करने के लिए पर्याप्त विस्तृत होता है (जहां Xएक इनपुट होता है) पूर्णांक)। उदाहरण के लिए, यहां बुकशेल्फ़ का आकार 3:

|---------|
|         |
|         |
|         |
|---------|

क्योंकि आप 3किताबों को उसमें फिट कर सकते हैं

|---------|
||X||X||X||
||X||X||X||
||X||X||X||
|---------|

इनपुट दो सख्ती से सकारात्मक पूर्णांक होने जा रहा है, Xऔर Y, Xहमारे पास अलमारियों की चौड़ाई (पुस्तकों में मापी गई) की चौड़ाई है, और Yहमें कितनी पुस्तकों को स्टैक करना है। यदि हमारे पास एकल शेल्फ पर फिट से अधिक किताबें हैं, तो हमें शीर्ष पर अधिक अलमारियों को जोड़ने की आवश्यकता है। उदाहरण के लिए, यहाँ इनपुट है 4 wide / 6 books:

|------------|
||X||X|      |
||X||X|      |
||X||X|      |
|------------|
|------------|
||X||X||X||X||
||X||X||X||X||
||X||X||X||X||
|------------|

यदि Y % X > 0, पुस्तकों की संख्या शेल्फ आकार के एक पूर्णांक से अधिक नहीं है, तो शेष पुस्तकों को शीर्ष-सबसे बाईं ओर की स्थिति पर जाना चाहिए (जैसा कि 4 6ऊपर, मामले में ) और उस शेल्फ के शेष भाग में भरा हुआ है रिक्त स्थान।

इनपुट

  • किसी भी सुविधाजनक प्रारूप में दो सख्ती से सकारात्मक पूर्णांक , प्रत्येक >0
  • आप इनपुट को या तो क्रम में ले सकते हैं (उदाहरण के लिए, पहले अलमारियों का आकार, फिर पुस्तकों की संख्या, या इसके विपरीत)। कृपया अपने इनपुट ऑर्डर को सबमिट करें।
  • आप सुरक्षित रूप से मान सकते हैं कि न तो इनपुट आपकी भाषा के डिफ़ॉल्ट [int]आकार (या समकक्ष) से बड़ा होगा ।

उत्पादन

परिणामस्वरूप ASCII कला पुस्तकों और बुकशेल्फ़ का प्रतिनिधित्व करती है।

नियम

  • लीडिंग या अनुगामी newlines या व्हाट्सएप सभी वैकल्पिक हैं, जब तक कि वर्ण खुद को सही ढंग से पंक्तिबद्ध करते हैं।
  • या तो एक पूर्ण कार्यक्रम या एक समारोह स्वीकार्य हैं। यदि कोई फ़ंक्शन है, तो आप इसे प्रिंट करने के बजाय आउटपुट वापस कर सकते हैं।
  • यदि संभव हो, तो कृपया ऑनलाइन परीक्षण वातावरण का लिंक शामिल करें ताकि अन्य लोग आपके कोड को आज़मा सकें!
  • मानक खामियों को मना किया जाता है।
  • यह इसलिए सभी सामान्य गोल्फिंग नियम लागू होते हैं, और सबसे छोटा कोड (बाइट्स में) जीतता है।

आगे के उदाहरण

6 wide / 2 books
|------------------|
||X||X|            |
||X||X|            |
||X||X|            |
|------------------|

2 wide / 6 books
|------|
||X||X||
||X||X||
||X||X||
|------|
|------|
||X||X||
||X||X||
||X||X||
|------|
|------|
||X||X||
||X||X||
||X||X||
|------|

4 wide / 9 books
|------------|
||X|         |
||X|         |
||X|         |
|------------|
|------------|
||X||X||X||X||
||X||X||X||X||
||X||X||X||X||
|------------|
|------------|
||X||X||X||X||
||X||X||X||X||
||X||X||X||X||
|------------|

क्या मैं इसे इतना कम कर सकता हूँ कि कम से कम किताबों के साथ शेल्फ नीचे है, इसलिए यह ऊपर से नीचे तक भर जाता है
स्वर्ण अनुपात

1
@GoldenRatio नहीं, पुस्तकों को नीचे से ऊपर, बाएं से दाएं भरा जाना चाहिए।
AdmBorkBork

जवाबों:


14

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

करी सिंटैक्स में चौड़ाई wऔर पुस्तकों की संख्या लेता है ।b(w)(b)

w=>g=(b,s=`|${'-'.repeat(w*3)}|
`,r=s.replace(/---/g,_=>b&&b--?'|X|':'   '))=>(b?g(b)+s:s)+r+r+r+s

प्रारूपित और टिप्पणी की गई

w =>                                // main function: takes width 'w' as input, returns 'g'
  g = (                             // g = recursive function with:
    b,                              //   - b = number of books
    s = `|${'-'.repeat(w * 3)}|\n`, //   - s = top/bottom of shell, filled with '-'
    r = s.replace(                  //   - r = pattern of the current row of books,
      RegExp('---', 'g'),           //         using 's' as a template and updating
      _ => b && b-- ? '|X|' : '   ' //         'b' while building it
    )                               // NB: 'r' must be defined in the scope of 'g',
  ) =>                              //     otherwise it would be overwritten by
    (                               //     subsequent calls
      b ?                           // if there are remaining books:
        g(b) + s                    //   do a recursive call and append shell top
      :                             // else:
        s                           //   just append shell top
    ) + r + r + r + s               // append book rows and shell bottom

परीक्षण के मामलों


9

बैश (+ उपयोगिताओं), 130, 108, 106 बाइट्स

अपने बुकशेल्व को रेंडर करने के लिए एक एकल, निरंतर, शेल पाइपलाइन।

बदलाव का:

  • अनुकूलित पहली sed अभिव्यक्ति थोड़ा; -12 बाइट्स (Thx @Riley!)
  • printf + seqएक कच्चे printf-10 बाइट्स के साथ प्रतिस्थापित
  • दूसरे सेड एक्सप्रेशन को दर्शाया, -2 बाइट्स

golfed

printf %$2s\\n|fold -$1|sed "s/ /|X|/g;:;/.\{$[$1*3]\}/!s/$/ /;t;h;s/./-/gp;x;p;p;p;x"|sed 's/.*/|&|/'|tac

$./shelf 6 8
|------------------|
||X||X|            |
||X||X|            |
||X||X|            |
|------------------|
|------------------|
||X||X||X||X||X||X||
||X||X||X||X||X||X||
||X||X||X||X||X||X||
|------------------|

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

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

$./shelf 2 3

printf %$2s\\n- n व्हाट्सएप कैरेक्टर जेनरेट करें, एक प्रति बुक (जैसा दिखाया गया है _)

___

fold -$1 - उन्हें शेल्फ की लंबाई से मोड़ो

__
_

sed "s/ /|X|/g;"- के _साथ बदलें X, पुस्तक कवर जोड़ें

|X||X|
|X|

:;/.\{$[$1*3]\}/!s/$/ /;t- रिक्त स्थान के साथ पैड (जैसा दिखाया गया है _)

|X||X|
|X|___

h;s/./-/gp;x;p;p;p;x- प्रत्येक पंक्ति को तीन गुना करें, और इसके ---पहले और बाद में जोड़ें ।

------
|X||X|
|X||X|
|X||X|
------
------
|X|   
|X|   
|X|   
------

sed 's/.*/|&|/'|tac- लपेटें लाइनों | |, उलट tac के साथ

|------|
||X|   |
||X|   |
||X|   |
|------|
|------|
||X||X||
||X||X||
||X||X||
|------|

पहली सीड में आप एक बेकार लेबल का उपयोग कर सकते हैं, और tइसके बजाय bआपको इसकी आवश्यकता नहीं है {}। आप छोड़ सकते s/./-/gहैं क्योंकि वे पहले से ही हैं -इसे ऑनलाइन आज़माएं!
रिले

@ रिले यह एक उत्कृष्ट सलाह है, धन्यवाद!
ज़ेपेलिन

6

पायथन 2, 133 113 105 बाइट्स

मुझे यकीन है कि एक बेहतर तरीका है ...

X,Y=input()
k='|'+'---'*X+'|'
while Y:g=Y%X or X;print k+'\n'+('|'+'|X|'*g+'   '*(X-g)+'|'+'\n')*3+k;Y-=g

इनपुट लिया गया है width, books

अनावश्यक बम्बू फंक्शन की सूचना देने के लिए @ovs को -20 बाइट्स धन्यवाद!
-8 बाइट्स इनपुट को छोटा करने के लिए @ovs के लिए धन्यवाद।


X,Y=input()मूल्यों को लेने का एक छोटा तरीका है।
ओव्स

@ ओह ओह रुको, मैंने अपनी पहली कोशिश के लिए वहाँ रखा। ओह। अच्छा कैच, धन्यवाद!
हाइपरनेत्रिनो

1
@ नो थैंक्स, तो इनपुट के रूप में लिया जाता है X, Y, है ना?
हाइपरनेत्रिनो

2
मुझे लगता है कि आप '|'चर के रूप में परिभाषित करके दो बाइट्स बचा सकते हैं ।
अर्जन जोहान्सन

6

बैच, 261 बाइट्स

@set/an=~-%1%%%2+1,b=%1-n
@set s=
@set t=
@for /l %%i in (1,1,%2)do @call set t=---%%t%%&if %%i gtr %n% (call set s=%%s%%   )else call set s=%%s%%X
@for %%s in ("|%t%|" "|%s:X=|X|%|" "|%s:X=|X|%|" "|%s:X=|X|%|" "|%t%|")do @echo %%~s
@if %b% gtr 0 %0 %b% %2

मेरे बैच जवाब से मेरी चाल का उपयोग करता है चलो आसानी से बहुत सारे |पात्रों को मुद्रित करने के लिए टेनिस खेलते हैं


5

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

x#yचौड़ाई xऔर yपुस्तकों के लिए स्ट्रिंग लौटाता है ।

s?n=[1..n]>>s
x#y|x<y=x#(y-x)++x#x|w<-"---"?x,b<-"|X|"?y++"   "?(x-y)=[w,b,b,b,w]>>=('|':).(++"|\n")

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

मुख्य कार्य / ऑपरेटर है #। जब x<yयह किताबों को विभाजित करता है y-xऔर xफिर, पुनरावृत्ति करता है। जब x>=y, wऔर bदो लाइन प्रकार होते हैं, तो बाहरी |एस और न्यूलाइन माइनस होते हैं ।

सहायक ऑपरेटर s?nconcatenates nस्ट्रिंग की प्रतियां s


5

पॉवरशेल , 149 134 बाइट्स

param($w,$b)$s="|$('-'*$w*3)|"
if($a=$b%$w){,$s+,"|$('|X|'*$a)$(' '*3*($w-$a))|"*3+$s}
if($b-=$a){(,$s+,"|$('|X|'*$w)|"*3+$s)*($b/$w)}

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

इनपुट $wमूर्ति और $books लेता है । $sक्षैतिज अलमारियों में से एक होने के लिए स्ट्रिंग सेट करता है । फिर हमारे पास दो ifकथन हैं।

पहले जाँचता है कि क्या हमारे पास "शेष" किताबें हैं। यदि ऐसा है, तो हम शेल्फ, पुस्तकों की संख्या (रिक्त स्थान की संख्या के साथ) *3, और एक अन्य शेल्फ का उत्पादन करते हैं।

इसके बाद, हम देखते हैं कि यदि हम अभी भी अवशेषों ( $a) को हटाने के बाद शेष हैं । सिवाय सेटअप के, हम $wपुस्तकों की संख्या का उपयोग कर रहे हैं। चूंकि इस बिंदु पर, $bएक से अधिक होने की गारंटी है $w(क्योंकि हमने शेष को हटा दिया है $a), हमें गोलाई के बारे में चिंता करने की आवश्यकता नहीं है।

[math]::Floor()कॉल को हटा दिया , 15 बाइट्स बचा रहा है

इन सभी तारों को पाइप लाइन पर छोड़ दिया जाता है, और निहितार्थ Write-Outputकार्यक्रम पूरा होने पर होता है।


4

CJam , 62 61 बाइट्स

q~1a*W$/W$f{0e]}{{"|X|"S3*?}%s__'-3*W$*_}%1m>W%"|
|"*"||"\*o;

के रूप में इनपुट लेता है width books

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

व्याख्या

q~           Read and eval input (pushes width W and books B to the stack)
1a*          Push an array containing  the number 1 B times
W$/          Split it into chunks of size W
W$f{0e]}     Pad each chunk to width W by adding 0's to the right (the last chunk might be 
              shorter than W)
{            Apply the following to each chunk:
 {            Apply the following to each number in the chunk:
  "|X|"S3*?    Push "|X|" if the number is 1, or "   " if it's 0
 }%           (end of block)
 s            Stringify (joins with no separator)
 __           Duplicate twice (each shelf is 3 identical lines)
 '-3*W$*_     Push a string containing '-' repeated 3×W times, then duplicate it
}%           (end of block)
              At this point we have an array containing sequences of 3 identical lines 
              each followed by two lines of -'s
1m>          Rotate the array 1 to the right; brings the final line of -'s to the start
W%           Reverse the array, so that the top shelf is the partially empty one
"|\n|"*      Join the array with the string "|\n|", to build the sides of the shelves
"||"\*       Join the string "||" with the shelf string (adds the first and last | chars)
o            Print the result
;            Pop and discard W

4

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

अभी तक उस पर कार्य कर रहा हूं। b'पुस्तकों की संख्या' के लिए है और wशेल्फ की चौड़ाई के लिए है।

def s(b,w):
 R=b%w
 B='|\n'
 I='|'
 X='|X|'
 d=I+3*w*'-'+B
 f=I+X*w+B
 p=I+R*X+3*(w-R)*' '+B
 print(R and d+3*p+d or" ")+b//w*(d+3*f+d))

PPCG में आपका स्वागत है! यह मेरे लिए काम नहीं करता है जब तक R=b%wकि अगली पंक्ति में नीचे नहीं ले जाया जाता है। इसके अलावा, आपको =कुछ बाइट्स को बचाने के लिए उन तीनों के आसपास व्हाट्सएप को हटाने में सक्षम होना चाहिए ।
व्यवसाय बिल्ली

PPCG में आपका स्वागत है!
AdmBorkBork

आप बदल सकते हैं d+3*p+d if R!=0 else ''के साथR and d+3*p+d or''
shooqie

@shooqie मैं उत्सुक हूं, यह कैसे परिणाम के लिए मूल्यांकन कर सकता है d+3*p+d?
जुआन मेलेरो

1
अर्धविरामों का उपयोग करके आप सभी परिभाषाओं को एक पंक्ति में रख कर कुछ बाइट्स बचा सकते हैं।
L3viathan

3

एएचके, 208 बाइट्स

AutoTrim,Off
w=%1%
b=%2%
f:=Mod(b,w)
Loop,%w%
s=%s%---
s=|%s%|`n
If (f>0) {
Loop,%f%
t=%t%|X|
Loop,% w-f
t=%t% ` ` `
t=|%t%|`n
t:=s t t t s
}
Loop,%w%
r=%r%|X|
r=|%r%|`n
Loop,% (b-f)/w
t:=t s r r r s
Send,%t%

आगे गोल्फिंग से मुझे निराश करने वाली कुछ चीजें हैं:

  • AutoHotkey में एक अंतर्निहित दोहराने कार्य नहीं है
  • आप सीधे गणित के कार्यों में तर्कों ( %1%और %2%) में पारित का उपयोग नहीं कर सकते क्योंकि वे चर या संख्या इनपुट की उम्मीद करते हैं और यह मान लिया जाएगा कि 1चर नाम के बजाय नंबर एक हो जाएगा
  • मैं गोल्फ में बहुत अच्छा नहीं हूं

उपरोक्त संस्करण को पढ़ने का एक आसान तरीका इस प्रकार है:

AutoTrim,Off
w=%1%
b=%2%
f:=Mod(b,w)

Loop,%w%
   s=%s%---
s=|%s%|`n

If (f>0) {
   Loop,%f%
      t=%t%|X|
   Loop,% w-f
      t=%t% ` ` `
   t=|%t%|`n
   t:=s t t t s
}

Loop,%w%
   r=%r%|X|
r=|%r%|`n

Loop,% (b-f)/w
   t:=t s r r r s

Send,%t%

यदि Loopकोष्ठक का उपयोग नहीं किया जाता है {}, तो केवल अगली पंक्ति लूप का हिस्सा है। यदि :=इसके बजाय चर का मान सेट करते हैं =, तो आप प्रतिशत साइन एस्केप वर्णों को छोड़ सकते हैं। टिल्डे एन न्यूलाइन कैरेक्टर है।


3

जावा 7, 230 224 222 बाइट्स

String c(int w,int b){String r="",n="|\n",z="|";int i=0,j,k,t=b%w<1?w:b%w,x=b/w+(t!=w?1:0);for(;i++<w;z+="---");z+=n;for(i=0;i<x;i++){r+=z;for(j=0;j++<3;r+=n){r+="|";for(k=0;k<w;r+=i<1&k++>=t?"   ":"|X|");}r+=z;}return r;}

स्पष्टीकरण:

String c(int w, int b){                // Method with two integer parameters and String return-type
  String r = "",                       //  The return-String
         n = "|\n",                    //  Part that's used multiple times in the code
         z = "|";                      //  Shelf part of the book-boxes
  int i = 0, j, k,                     //  Indexes used in the for-loops
      t = b%w < 1 ? w : b%w,           //  Books on top shelf
      x = b/w + (t != w ? 1 : 0);      //  Amount of shelves
  for(; i++ < w; z += "---"); z += n;  //  Create the shelf-part ("|---|"; with w times "---")
  for(i = 0; i < x; i++){              //  Loop over the rows
    r += z;                            //   Append the result with the shelf-part
    for(j = 0; j++ < 3; ){             //   Loop three times (the height of the books & boxes)
      r += "|";                        //    Append the result-String with "|"
      for(k = 0; k < w;                //    Loop over the columns
          r +=                         //     And append the result-String with:
           i < 1                       //      If this is the first row:
           & k++ >= t ?                //      And the current column is larger or equal to the amount of books in the top shelf
             "   "                     //       Use an empty space
           :                           //      Else:
             "|X|"                     //       Use the book-part
            );                         //    End of columns loop
         r += n;                       //    Append the result-String with a "|" and a new-line
       }                               //   End of the loop of three
      r += z;                          //   Append the result-String with the shelf-part
    }                                  //  End of rows loop
    return r;                          //  Return the result-String
 }                                     // End of method

टेस्ट कोड:

इसे यहाँ आज़माएँ।

class M{
  static String c(int w,int b){String r="",n="|\n",z="|";int i=0,j,k,t=b%w<1?w:b%w,x=b/w+(t!=w?1:0);for(;i++<w;z+="---");z+=n;for(i=0;i<x;i++){r+=z;for(j=0;j++<3;r+=n){r+="|";for(k=0;k<w;r+=i<1&k++>=t?"   ":"|X|");}r+=z;}return r;}

  public static void main(String[] a){
    System.out.println(c(6, 2));
    System.out.println(c(2, 6));
    System.out.println(c(4, 9));
  }
}

आउटपुट:

|------------------|
||X||X|            |
||X||X|            |
||X||X|            |
|------------------|

|------|
||X||X||
||X||X||
||X||X||
|------|
|------|
||X||X||
||X||X||
||X||X||
|------|
|------|
||X||X||
||X||X||
||X||X||
|------|

|------------|
||X|         |
||X|         |
||X|         |
|------------|
|------------|
||X||X||X||X||
||X||X||X||X||
||X||X||X||X||
|------------|
|------------|
||X||X||X||X||
||X||X||X||X||
||X||X||X||X||
|------------|


@ OlivierGrégoire ध्यान में रखते हुए मैंने इसे लगभग 1.5 साल पहले पोस्ट किया था, मुझे आश्चर्य नहीं है कि यह काफी हद तक गोल्फ हो सकता है। ;)
केविन क्रूज़सेन

ओउ ... मैंने तारीख की जांच नहीं की थी: मैंने केवल यह देखा कि यह प्रश्न सक्रिय था और जावा के लिए एक पूर्ण अन्य एल्गोरिथ्म संभव था। मेरा बुरा ...
ओलिवियर ग्रेजायर

@ OlivierGrégoire कोई समस्या नहीं है, और आपके उत्तर के साथ अच्छी तरह से किया गया है। :) यह लगभग महसूस करता है कि जब मैं अभी भी परीक्षण के मामलों और आउटपुट को उत्तर में जोड़ रहा था, तो मैं इस उत्तर को देख रहा था, और जावा 7 में सब कुछ जवाब दिया, क्योंकि मुझे अभी तक जावा 8 समझ नहीं आया था। XD
केविन क्रूज़सेन

2

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

param($w,$b)for(;$b;$b-=$c){if(!($c=$b%$w)){$c=$w}($l="|$('-'*$w*3)|")
,"|$('|X|'*$c)$(' '*($w-$c)*3)|"*3
$l}

कम गोल्फ परीक्षण स्क्रिप्ट:

$f = {

param($w,$b)
for(;$b;$b-=$c){
    if(!($c=$b%$w)){$c=$w}
    ($l="|$('-'*$w*3)|")
    ,"|$('|X|'*$c)$(' '*($w-$c)*3)|"*3
    $l
}

}

@(
    ,(6, 2, 
    "|------------------|",
    "||X||X|            |",
    "||X||X|            |",
    "||X||X|            |",
    "|------------------|")

    ,(2, 6,
    "|------|",
    "||X||X||",
    "||X||X||",
    "||X||X||",
    "|------|",
    "|------|",
    "||X||X||",
    "||X||X||",
    "||X||X||",
    "|------|",
    "|------|",
    "||X||X||",
    "||X||X||",
    "||X||X||",
    "|------|")

    ,(4, 9,
    "|------------|",
    "||X|         |",
    "||X|         |",
    "||X|         |",
    "|------------|",
    "|------------|",
    "||X||X||X||X||",
    "||X||X||X||X||",
    "||X||X||X||X||",
    "|------------|",
    "|------------|",
    "||X||X||X||X||",
    "||X||X||X||X||",
    "||X||X||X||X||",
    "|------------|")
) | % {
    $w,$b,$expected = $_
    $result = &$f $w $b
    "$result"-eq"$expected"
    $result
}

आउटपुट:

True
|------------------|
||X||X|            |
||X||X|            |
||X||X|            |
|------------------|
True
|------|
||X||X||
||X||X||
||X||X||
|------|
|------|
||X||X||
||X||X||
||X||X||
|------|
|------|
||X||X||
||X||X||
||X||X||
|------|
True
|------------|
||X|         |
||X|         |
||X|         |
|------------|
|------------|
||X||X||X||X||
||X||X||X||X||
||X||X||X||X||
|------------|
|------------|
||X||X||X||X||
||X||X||X||X||
||X||X||X||X||
|------------|

पॉवरशेल, 109 बाइट्स, वैकल्पिक

param($w,$b)for(;$b;$b-=$c){($l="|$('---'*$w)|")
,"|$('|X|'*($c=(($b%$w),$w-ne0)[0]))$('   '*($w-$c))|"*3
$l}

1

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

i,j=input()
a=j%i
n='|\n'
x='|'+'---'*i+n
print(x+('|'+'|x|'*a+' '*(i-a)*3+n)*3,'')[a<1]+(x+('|'+'|x|'*i+n)*3)*(j/i)+x

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

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

चौड़ाई, पुस्तकों के रूप में लिया गया इनपुट


1

एसओजीएल , 64 बाइट्स

be%→M"Q└ƨS‘*ač;┼→S%‘A |e3* -* |++M?tMSeM-9*@*a+┼Ot}be÷:?{teSa┼Ot

स्पष्टीकरण: पहला कार्य:

   →M  define function M which pushes
b      the book amount
  %    mod
 e     the bookshelf width

दूसरा समारोह:

           →S  create function S (example input: 3)          [3]
"Q└ƨS‘         push the string "|||XXX|||" (the book)        [3, "|||XXX|||"]
      *        multiply by the number on stack (book count)  ["|||XXX||||||XXX||||||XXX|||"]
       a       push variable A (later defined "|||")         ["|||XXX||||||XXX||||||XXX|||", "|||"]
        č      chop into char array                          ["|||XXX||||||XXX||||||XXX|||", ["|", "|", "|"]]
         ;     swap top 2 on stack                           [["|", "|", "|"], "|||XXX||||||XXX||||||XXX|||"]
          ┼    horizontally append                           [["||X||X||X|", "||X||X||X|", "||X||X||X|"]]

यह फ़ंक्शन स्टैक पर एक संख्या (पुस्तक गणना) की अपेक्षा करता है और बुकशेल्फ़ पुस्तकों का आउटपुट देता है

["||X||X||X|",
 "||X||X||X|",
 "||X||X||X|"]

आगे दिया गया उदाहरण e = 3 (बुकशेल्फ़ चौड़ाई) और b = 8 (पुस्तक राशि) है

%‘A              var A = "|||"                        
    |            push "|"                      ["|"]                
     e3*         push E * 3                    ["|", 9]             
         -*      push that many "-"es          ["|", "---------"]   
            |+   append "|"                    ["|", "---------|"]  
              +  prepend the "|"               ["|---------|"]      

यह बुकशेल्फ़ टॉप / बॉटम लाइन है और हमेशा स्टैक फर्स्ट पार्ट (आधा-खाली बुकशेल्फ़) पर रहती है

पहला मुख्य भाग

M?               }               if the modulo != 0
  tM                             output the bookshelf top/bottom line
    S                            execute the S function width the modulo
     eM-                         push bookshelf width - modulo (empty space count)
        9*                       multiply by 9 (books are 3x3 so 3x3 spaces)
          @*                     get that many spaces
            a+                   append to that "|||"
              ┼                  horizontally append
               O                 output
                t                output the bookshelf top/bottom line

और आखिरी हिस्सा

be÷            floor divide book amout by width (full shelves)
   :?          if not 0 (a bug makes all loops execute once)
     {         repeat
      t        output the bookshelf top/bottom line
       eS      execute S with shelf width (full shelf)
         a┼    horizontally append "|||"
           O   output
            t  output the bookshelf top/bottom line



0

कैनवास , 33 बाइट्स

|X|3*×⁷3×⇵-×|3*×╫│;22╋P
%?%⁸}÷[⁷⁸

यहाँ कोशिश करो!

स्पष्टीकरण (कुछ पात्रों को अधिक मोनोसेप्स दिखने के लिए बदल दिया गया है):

|X|3*×⁷3×⇵-×|3*×╫│;22╋P  helper function. Prints a shelf with X books
|X|                      push "|X|"
   3*                    repeat it 3 times vertically
     ×                   repeat that horizontally by the item (X) below on the stack
      ⁷3×                push width * 3
         ⇵               ceiling divide that by 2
          -×             repeat "-" that many times
            |3*          repeat "|" vertically 3 times (aka "|¶|¶|")
               ×         prepend that to the dashes (aka ¼ of a bookshelf)
                ╫│       quad-palindromize with horizontal overlap of the remainder
                           taken before and vertical overlap of 1
                  ;      get the books on top
                   22╋   and at coordinates (2;2) in the shelf, place them in
                      P  print that whole thing

%?%⁸}÷[⁷⁸  
%?  }      if width%amount (!= 0)
  %⁸         execute the helper function with width%amount on the stack
     ÷[    repeat floor(width/amount) times
       ⁷     push width
        ⁸    execute the helper function

0

पिप -n , 45 बाइट्स

Wb-:yPPZ['-X3Xa"|X|"X(Yb%a|a).sX3Xa-yRL3]WR'|

कमांड-लाइन तर्कों के रूप में क्रमशः चौड़ाई और पुस्तक गणना लेता है। इसे ऑनलाइन आज़माएं!

व्याख्या

हम अलमारियों को ऊपर से नीचे तक एक-एक करके प्रिंट करने के लिए एक लूप चलाते हैं। प्रत्येक पुनरावृत्ति पर, हम bघटाकर y(उस पुनरावृत्ति पर छपी पुस्तकों की संख्या ) अपडेट करते हैं । जब b0 पर पहुंच जाता है, तो लूप बाहर निकल जाता है।

Wb-:yPPZ['-X3Xa"|X|"X(Yb%a|a).sX3Xa-yRL3]WR'|
                                               a is 1st cmdline arg (shelf width); b is 2nd cmdline
                                                 arg (# books); s is space; y is ""
                                               Note that "" becomes zero in numeric contexts
Wb-:y                                          While b decremented by y is nonzero:
                       b%a|a                    b mod a, or a if that quantity is zero
                      Y                         Yank that value into y
                     (      )                   This is the number of books on the current shelf
               "|X|"                            Book-spine string
                    X                           Repeated y times
                                  a-y           Number of empty slots on the current shelf
                              sX3X              Three spaces for each slot
                             .                  Concatenate to the book-spines string
                                     RL3        Make a list of 3 copies of that string
         '-X3Xa                                 3*a hyphens
        [                               ]       Put that string and the above list in a list
                                         WR'|   Wrap all strings in the nested list in |
      PZ                                        Palindromize the outer list (adding a copy of the
                                                hyphens to the end of it)
     P                                          Print, joining all sublists on newlines (-n flag)

क्योंकि यह थोड़ा सा शामिल है, यहाँ पहली यात्रा का एक उदाहरण है जब a = 3, b = 8:

Yb%a|a       2
"|X|"X ^     "|X||X|"
^ .sX3Xa-y   "|X||X|   "
^ RL3        ["|X||X|   ";"|X||X|   ";"|X||X|   "]
['-X3Xa ^ ]  ["---------";["|X||X|   ";"|X||X|   ";"|X||X|   "]]
^ WR'|       ["|---------|";["||X||X|   |";"||X||X|   |";"||X||X|   |"]]
PZ ^         ["|---------|";["||X||X|   |";"||X||X|   |";"||X||X|   |"];"|---------|"]

जो तब प्रिंट करता है

|---------|
||X||X|   |
||X||X|   |
||X||X|   |
|---------|

0

पायथ , 56 बाइट्स

M++GHGV_fTs*V,]Q1.DEQjCg*5\|smgL\-*L3?d"|X|""   ".[*]1N0

उस क्रम में अलग तर्क के रूप में शेल्फ की चौड़ाई, पुस्तक गणना को स्वीकार करता है। इसे यहाँ ऑनलाइन आज़माएँ , या यहाँ पर सभी परीक्षण मामलों को सत्यापित करें

M++GHGV_fTs*V,]Q1.DEQjCg*5\|smgL\-*L3?d"|X|""   ".[*]1N0Q   Implicit: Q=1st arg, E=2nd arg
                                                            Trailing Q inferred
M                                                           Define a function, g(G,H):
 ++GHG                                                        Return G + H + G
                 .DEQ                                       Divmod E by Q, yields [E//Q, E%Q]
             ,]Q1                                           [[Q], 1]
           *V                                               Vectorised multiply the two previous results
                                                              This yields Q repeated E//Q times, then E%Q
          s                                                 Flatten
        fT                                                  Filter out falsey values (i.e. trailing 0 if present)
       _                                                    Reverse (to put partially filled shelf on top)
      V                                                     For N in the above:
                                                    ]1        [1]
                                                   *  N       Repeat the above N times
                                                 .[    0Q     Pad the above on the right with 0, to length Q
                             m                                Map the above, as d, using:
                                     ?d"|X|""   "               If d != 0, yield "|X|", else "   "
                                  *L3                           Multiply each char by 3
                                                                  Yields ['|||','XXX','|||'] or ['   ','   ','   ']
                              gL\-                              Use g to wrap each element in '-'
                            s                                 Flatten
                       g*5\|                                  Use g to add '|||||' to start and end of the above
                      C                                       Transpose
                     j                                        Join on newlines, implicit print

0

फोर्थ (gforth) , 622 बाइट्स (कम से कम टिप्पणी, इंडेंटेशन, 1-चार शब्द नाम) से 303 बाइट्स तक)

फोर्थ के साथ मेरा पहला नाटक :)

: bar 124 EMIT ;

: delimline ( width -- )
    bar
    3 * 0 DO 45 EMIT LOOP
    bar CR
;

: bookline ( width books -- )
    bar
    DUP 0 DO bar 88 EMIT bar LOOP
    2DUP = IF
        DROP DROP
    ELSE
        - 0 do 3 SPACES LOOP
    THEN
    bar CR
;

: shelf ( width books -- )
    DUP 0 = IF
        DROP DROP
    ELSE
        OVER delimline
        3 0 DO OVER OVER bookline LOOP
        DROP delimline
    THEN
;

: stack ( width books -- )
    CR
    OVER OVER OVER MOD shelf
    OVER /
    DUP 0 = IF
        DROP DROP
    ELSE 
        0 DO DUP DUP shelf LOOP
    THEN
;

6 2 stack
2 6 stack
3 5 stack
4 4 stack

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

उत्पादन

| ------------------ |
|| एक्स || एक्स | |
|| एक्स || एक्स | |
|| एक्स || एक्स | |
| ------------------ |

| ------ |
|| एक्स || एक्स ||
|| एक्स || एक्स ||
|| एक्स || एक्स ||
| ------ |
| ------ |
|| एक्स || एक्स ||
|| एक्स || एक्स ||
|| एक्स || एक्स ||
| ------ |
| ------ |
|| एक्स || एक्स ||
|| एक्स || एक्स ||
|| एक्स || एक्स ||
| ------ |

| --------- |
|| एक्स || एक्स | |
|| एक्स || एक्स | |
|| एक्स || एक्स | |
| --------- |
| --------- |
|| एक्स || एक्स || एक्स ||
|| एक्स || एक्स || एक्स ||
|| एक्स || एक्स || एक्स ||
| --------- |

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