बेसिक ASCII टैली

36

वैकल्पिक शीर्षक: टैली योर प्रिजन सेंटेंस ऑन द वॉल

एक संख्या को देखते हुए n, आउटपुट को पारंपरिक 5-प्रति-समूह और 50 प्रति पंक्ति में वर्गीकृत किया गया।

उदाहरण

1

|
|
|
|

4

||||
||||
||||
||||

5

|||/
||/|
|/||
/|||

6

|||/ |
||/| |
|/|| |
/||| |

50

|||/ |||/ |||/ |||/ |||/ |||/ |||/ |||/ |||/ |||/
||/| ||/| ||/| ||/| ||/| ||/| ||/| ||/| ||/| ||/|
|/|| |/|| |/|| |/|| |/|| |/|| |/|| |/|| |/|| |/||
/||| /||| /||| /||| /||| /||| /||| /||| /||| /|||

51

|||/ |||/ |||/ |||/ |||/ |||/ |||/ |||/ |||/ |||/
||/| ||/| ||/| ||/| ||/| ||/| ||/| ||/| ||/| ||/|
|/|| |/|| |/|| |/|| |/|| |/|| |/|| |/|| |/|| |/||
/||| /||| /||| /||| /||| /||| /||| /||| /||| /||| 

|
|
|
|

256

|||/ |||/ |||/ |||/ |||/ |||/ |||/ |||/ |||/ |||/
||/| ||/| ||/| ||/| ||/| ||/| ||/| ||/| ||/| ||/|
|/|| |/|| |/|| |/|| |/|| |/|| |/|| |/|| |/|| |/||
/||| /||| /||| /||| /||| /||| /||| /||| /||| /||| 

|||/ |||/ |||/ |||/ |||/ |||/ |||/ |||/ |||/ |||/
||/| ||/| ||/| ||/| ||/| ||/| ||/| ||/| ||/| ||/|
|/|| |/|| |/|| |/|| |/|| |/|| |/|| |/|| |/|| |/||
/||| /||| /||| /||| /||| /||| /||| /||| /||| /||| 

|||/ |||/ |||/ |||/ |||/ |||/ |||/ |||/ |||/ |||/
||/| ||/| ||/| ||/| ||/| ||/| ||/| ||/| ||/| ||/|
|/|| |/|| |/|| |/|| |/|| |/|| |/|| |/|| |/|| |/||
/||| /||| /||| /||| /||| /||| /||| /||| /||| /||| 

|||/ |||/ |||/ |||/ |||/ |||/ |||/ |||/ |||/ |||/
||/| ||/| ||/| ||/| ||/| ||/| ||/| ||/| ||/| ||/|
|/|| |/|| |/|| |/|| |/|| |/|| |/|| |/|| |/|| |/||
/||| /||| /||| /||| /||| /||| /||| /||| /||| /||| 

|||/ |||/ |||/ |||/ |||/ |||/ |||/ |||/ |||/ |||/
||/| ||/| ||/| ||/| ||/| ||/| ||/| ||/| ||/| ||/|
|/|| |/|| |/|| |/|| |/|| |/|| |/|| |/|| |/|| |/||
/||| /||| /||| /||| /||| /||| /||| /||| /||| /||| 

|||/ |
||/| |
|/|| |
/||| |

नियम

  • प्रति समूह 5 लम्बे, पंक्ति प्रति 50 लम्बे।
  • पहले 4 लम्बे लम्बे होते हैं, 5 वां ताल बाकी सभी ऊँचाइयों को पार करता है।
    • पहले चार में से प्रत्येक में 4 ऊर्ध्वाधर |वर्ण होते हैं।
    • अंतिम 5 वीं टैली पहले के सभी 4, एक /चरित्र के साथ , तिरछे रूप में फैला हुआ है ।
  • प्रत्येक समूह को एक स्थान से अलग किया जाना चाहिए, प्रत्येक पंक्ति एक रिक्त नई रेखा।
  • इस पर अड़चनें nहैं: 0 <= n <= 1000(सरलता के लिए)।
  • ट्रेलिंग स्पेस और न्यूलाइन्स ठीक हैं, पूर्ववर्ती नहीं हैं।
  • यह कोड-गोल्फ अस्की-आर्ट है , सबसे कम बाइट-काउंट जीतता है।

सैंडबॉक्स में ~ 4 लोगों द्वारा समीक्षित ।

पीएस मज़ेदार थोड़ा टिड-बिट, जेल में प्रति पंक्ति लम्बाई की औसत संख्या 50 थी, इसलिए ऊंचाई। शीर्षक।

code-golf  ascii-art  number  code-golf  number  integer  binary  base-conversion  code-golf  array-manipulation  code-golf  chemistry  code-golf  number  sequence  fibonacci  code-golf  matrix  optimization  code-golf  number  code-golf  math  number  sequence  code-golf  math  array-manipulation  matrix  linear-algebra  code-golf  kolmogorov-complexity  cops-and-robbers  cops-and-robbers  code-golf  tips  basic  code-golf  decision-problem  binary  tiling  game  king-of-the-hill  python  code-golf  c  code-golf  ascii-art  code-golf  string  kolmogorov-complexity  alphabet  code-golf  number  code-golf  string  code-golf  number  sequence  integer  code-golf  number  permutations  restricted-complexity  restricted-time 
— जादू ऑक्टोपस Urn
स्रोत
— मैजिक ऑक्टोपस Urn
बड़ी चुनौती, जटिल अभी तक सरल।
— ATaco
@ टैको मैं वास्तव में उस समाधान को खोजना चाहता हूं जो स्लैश को "बड़ी तस्वीर" में एकत्रित करता है, और इस बात को ध्यान में रखता है कि स्लैश पैटर्न को पंक्ति (यह आसान जीत) से अनुमान लगाया जा सकता है।
— मैजिक ऑक्टोपस Urn
2
बैकवर्ड स्लैश के बजाय उन्हें आगे स्लैश बनाने के लिए बहुत बहुत धन्यवाद ।
— पूरी तरह से
1
@totallyhuman ओह भगवान, जिस छवि को मैंने पोस्ट किया है, वह क्या है ... क्या यह है? यह बर्नस्टीन सब पर फिर से भालू है ... क्या सिक्का सबसे हाल के अमेरिकी चुनाव का फैसला करने के लिए सिर या पूंछ पर जमीन करता है ?!
— मैजिक ऑक्टोपस Urn

जवाबों:

11

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

ＦＮ«Ｊ﹪ι⁵⁰×⁵÷ι⁵⁰¿﹪⊕ι⁵↓⁴«←↙⁴

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

 Ｎ                          Input number
Ｆ «                         Loop over implicit range
     ι     ι                Loop index
      ⁵⁰    ⁵⁰              Literal 50
    ﹪                       Modulo
          ÷                 Integer divide
         ⁵                  Literal 5
        ×                   Multiply
   Ｊ                        Jump to column, row
                 ι          Loop index
                ⊕           Incremented
                  ⁵         Literal 5
               ﹪            Modulo
              ¿             If
                   ↓⁴       Print 4 `|`s downwards
                     «      Implicit else
                      ←     Move left
                       ↙⁴   Print 4 `/`s down and left
— नील
स्रोत
6

फंकी , 156 132 133 बाइट्स

n=>{k=n=>((l="|"::rep)(3-i)+"/"+l(i)+" ")::rep(n)p=print L=f=>fori=0i<4i++p(f())forc=0c<n//50c++{L@k(10);p()}L@k((m=n%50)//5)+l(m%5)}

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

— Ataco
स्रोत
1
कायरता है एक ... अब क्या? दिलचस्प। इससे पहले मेरी किसी भी चुनौती पर इस भाषा को कभी नहीं देखा गया।
— मैजिक ऑक्टोपस Urn
1
@MagicOctopusUrn शायद इसलिए क्योंकि मैंने इसे लिखा था: P
— ATaco
1
एक जावास्क्रिप्ट आधारित भाषा? खतरनाक। लेकिन यह ठीक है, मुझे खतरा है।
— मैजिक ऑक्टोपस Urn
1
fori=0i<4i++p(f())forc=0c<n//50c++क्या यह अपवित्र जानवर सिंटेक्स का नाम ले रहा है
— पूरी तरह से
1
— ATaco
5

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

:5[“|||/”]ẋ;”|ẋ⁸%5¤¤W¤ṙ€4Ḷ¤s⁵Z€G€j⁾¶¶

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

व्याख्या

:5[“|||/”]ẋ;”|ẋ⁸%5¤¤W¤ṙ€4Ḷ¤s⁵Z€G€j⁾¶¶  Main Link
:5                                     Floordiv by 5
  [“|||/”]ẋ                            Repeat ["|||/"] by this number
           ;                           Append
            ”|ẋ    ¤                   "|" repeated by
               ⁸%5¤                    The argument modulo 5
                    W¤                 Then wrapped to prevent weirdness
                      ṙ€               Rotate each tally segment by
                        4Ḷ¤            (each) [0, 1, 2, 3]
                           s⁵          Slice into pieces of length 10 (to get 50 per row)
                             Z€        Transpose each
                               G€      Convert each into a grid
                                 j⁾¶¶  Join these grids by a double newline

मट्ठा यह बहुत लंबा है

— HyperNeutrino
स्रोत
@FrownyFrog फिक्स्ड, धन्यवाद!
— हाइपरएन्यूट्रीनो
4

भूसी , 29 बाइट्स

J;øṀṪṙŀ4C10§:oR"|||/"÷5oR'|%5

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

मुझे लगता है कि पहले 5बेमानी है, लेकिन इसे हटाने से एक प्रकार की त्रुटि होती है ...

व्याख्या

J;øṀṪṙŀ4C10§:oR"|||/"÷5oR'|%5  Implicit input, an integer n.
                       oR'|    Repeat the character '|'
                           %5  n mod 5 times.
             oR"|||/"          Repeat the string "|||/"
                     ÷5        n/5 times.
           §:                  Tack the '|'-string to the end of that list.
        C10                    Cut the list of strings into pieces of length 10.
   Ṁ                           For each piece,
    Ṫ ŀ4                       for each k in [0,1,2,3],
     ṙ                         rotate each string k steps to the left
                               and collect the results into a list.
                               Now we have a list of lists of lists of strings.
J;ø                            Join them with the list [[]].
                               Implicitly join each list of strings by spaces,
                               then join the resulting list of strings by newlines,
                               and print the result.
— Zgarb
स्रोत
4

SOGL V0.12 , 33 बाइट्स

ā.{┐4∙F5\?X1w⁄3-14╚╬5@}┼FM»\?O¶oā

यह कोशिश करो!

एक फोन पर गोल्फ मुश्किल है ..

स्पष्टीकरण:

ā                                  push an empty array
 .{                                repeat input times
   ┐4∙                               push a 4 tall line
      F5\?            }              if the counter (1-indexed) divides by 5
          X                            pop that vertical line
           1w⁄                         get the width of the main array
              3-                       subtract 3 from that width - X position
                1                      push 1 - Y position
                 4╚                    push a 4 long diagonal
                   ╬5                  place that in the main array at [width-3; 1]
                     @                 push a space - for the below to add spacing
                       ┼             append horizontally
                        FM»\?        if the counter divides by 50
                             O         output the main array
                              ¶o       output a newline
                                ā      push a new array
                                       (note that the outputting here doesn't disable
                                       implicit outputting)
— dzaima
स्रोत
4

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

n=>eval('s="";for(i=0;i++<=n/50;s+=N)for(j=5;--j;s+=N=`\n`)for(k=0;k<(x=(y=n-i*50)<0?50+y:50);)s+=++k%5?k%5-j|k>5*(x/5|0)?"|":"/":" ";s')

एक अनुगामी न्यूलाइन के साथ एक स्ट्रिंग लौटाता है जब n50 से अधिक नहीं होता है और 50 के कई होने पर कई अनुगामी न्यूलाइन के साथ एक होता n है ।

Ungolfed

n=>{
    s=""
    for(i=0; i++ <= n/50; s+=N)
        for(j=5; --j; s+=N=`\n`)
            for(k=0; k < (x = (y = n-i*50) < 0 ? 50+y : 50);)
                s += ++k%5 ?
                    k%5-j|k>5*(x/5|0) ?
                        "|"
                    : "/"
                : " "
    return s
}

टेस्ट स्निपेट

कोड स्निपेट दिखाएं

गैर- evalसमाधान, 150 बाइट्स

n=>(A=(v,m)=>j=>[...Array(v).keys()].map(m).join(j))(n/50+1|0,i=>A(4,j=>A(x=(y=n+~i*50)<0?50+y:50,k=>++k%5?k%5-4+j|k>5*(x/5|0)?"|":"/":" ")``)`
`)`

`

संभवत: यह एक और गोल्फ करने में सक्षम है, लेकिन evalविधि अब तक कम है।

— जस्टिन मेरिनर
स्रोत
मुझे ungolfed संस्करण के माध्यम से काम करने और इसे समझने के लिए एक ठोस 10 मिनट का समय लगा। = ^ P आपको वहां कुछ अच्छे ट्रिक्स मिले हैं।
— DLosc
बहुत यकीन है कि आप के लिए कर सकते हैं (मैं = 0; ++ मैं <n / 50; s + = एन) जो एक चार बचाता है
— डैनियलइंडी
@DanielIndie विफल रहता है क्योंकि बाहरी लूप एक बहुत कम बार चलता है: इसे ऑनलाइन आज़माएं!
— जस्टिन मेरिनर
4

जे , 50 48 45 35 33 बाइट्स

_50|:\'|/ '{~[{.(|.2,=i.4)$~]-5|]

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

                (    =i.4)          Identity matrix of size 4.
                (  2,    )          Prepend a row of 2s.
                (|.      )          Upside down.
                          $~        Take __ rows.
                            ]-5|]   Input rounded down to a multiple of 5.
             [{.                    Pad with rows of zeroes to [input] rows.
      '|/ '{~                       Get the characters.
_50|:\                              Transpose and fit to width.
— FrownyFrog
स्रोत
मुझे इस भाग के लिए इन्फ़िक्स का उपयोग करने का विचार पसंद है4,&' '\7$'|||/'
— जोनाह
@ जोनाह को जाना था :(
— फ्रोवनीफ्रॉग
3

सी (जीसीसी), 170 बाइट्स

char*s="|||/ \0||/| \0|/|| \0/||| \0";h;k;g(x){for(h=0;h<5;h++){for(k=x;k>4;k-=5)printf(s+6*h);for(;k&&h-4;k--)printf("|");putchar(10);}}f(x){for(;x>49;x-=50)g(50);g(x);}

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

fएक ऐसा कार्य है जो एक गैर-पूर्णांक ( x) और मुद्रण को निर्दिष्ट करता है जिसे स्टैडआउट करने के लिए निर्दिष्ट कई लम्बाई के रूप में वर्गीकृत किया गया है

gएक सहायक कार्य है जो x5 को लम्बाई में विभाजित करता है, बिना विभाजन रेखा के।

f50 से कम होने तक कॉल g(50)और डिक्रिप्शन x, फिर g(x)एक लाइन पर शेष लम्बाई को प्रिंट करने के लिए कॉल करता है।

sएक char*ऐसा है, जैसा कि तार, sएक बंडल की पहली पंक्ति s+6है, दूसरा s+12है, तीसरा है, और s+18चौथा है, और s+24एक खाली स्ट्रिंग है।

g(x)5 बंडलों को प्रिंट करता है और x को 5 से घटाता है जब तक x 5 से कम नहीं होता है, तब xएकल लम्बे प्रिंट करता है ।

— pizzapants184
स्रोत
— छत
2

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

n=input()
while n>0:print"\n".join("".join("|/ "[2*(j%5>3)+(n/(5*(j/5+1))and 3-i==j%5)]for j in range(min(50,n)))for i in range(4)),"\n";n-=50

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

— हलवार्ड वुल्म
स्रोत
1
18 मिनट में 142 बाइट? बुरा नहीं :)।
— मैजिक ऑक्टोपस Urn
3
जब आप वास्तव में एक घंटे पहले बिस्तर पर चले गए हों, तो जल्दी काम करना शुरू कर दिया
— २३
Quick ~= Quality;)। अच्छी नौकरी।
— मैजिक ऑक्टोपस Urn
3
इर्रर ... जो गलत हो सकता है। यह कहते हुए कि आपने तेजी से काम किया है ... विपरीत नहीं।
— मैजिक ऑक्टोपस Urn
2
— १३:१tes बजे १४'१। बजे अंडा
2

PHP, 138 141 + 1 बाइट्स

शायद कम से कम संभव समाधान नहीं है

for(;0<$z=50+min($n=$x=$y=0,$argn-=50);print"
")while($n++<$z||!$x=+(3<$y+=$n=print"
"))echo"/| "[$n%5?($y+$x++)%4<3|$n%5+$y<4|$z-$z%5<$n:2];

ऑनलाइन के साथ पाइप के रूप में चलाएं -nRया इसे आज़माएं ।

— टाइटस
स्रोत
साफ! लेकिन दूसरी लम्बाई पर टैली-लाइन को पूरी तरह से पार नहीं किया जाता है।
— SpazzMarticus
५.५ पर स्थानीय रूप से ५.५.३१ और it.१.९ से अपना "ऑनलाइन प्रयास करें" उदाहरण चलाते समय।
— स्पैजमार्टिकस
1
$xकेवल पहली पाश में अपरिभाषित है, मिलान अधिक से अधिक के लिए उत्पादन इस भोजनालयों से 54. फिक्स्ड, लेकिन golfed नहीं: sandbox.onlinephpfunctions.com/code/...
— SpazzMarticus
@SpazzMarticus तय
— टाइटस
ठंडा! यह मेरी पहली बार गोल्फिंग डिबगिंग कोड था, आपने मुझे कठिन समय दिया! :) मुझे लगता है कि मैं आदी हूँ!
— स्पैजमार्टिकस
2

अजगर, 129 113 112 बाइट्स

f=lambda n:n>50and f(50)+"\n\n"+f(n-50)or"\n".join(("|||/|||"[k:k+4]+" ")*(n//5)+" "+"|"*(n%5)for k in range(4))

व्याख्या

def p(n):
  if n > 50:
    return p(50) + "\n\n" + p(n-50) # Handle 50-groups recursively
  else:
    # For each of the 4 lines:
    rows = []
    for row in range(4):
      #  - Build the "|||/"-blocks by slicing the correct part of "|||/|||".
      #  - Do that n/5 times
      #  - Then add "|" n%5 times
      rows += [("|||/|||"[row:row+4]+" ")*(n//5) + " " + "|"*(n%5)]

    # Join the four rows together
    return "\n".join(rows)

अजगर 2 और 3 में काम करता है।

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

— लुकास बोर्स्मा
स्रोत
1

रूबी , 100 बाइट्स

->n{(n/-50*-4).times{|i|j=[n-i/4*50,50].min
$><<("|||/|||"[i%4,4]+" ")*(j/5)+?|*(j%5)+$/*(1+i%4/3)}}

टिप्पणी की गई

->n{(n/-50*-4).times{|i|              #Calculate rows of tallies (Ruby rounds division towards negative infinity. Multiply by 4 lines per tally and iterate through them.)
  j=[n-i/4*50,50].min                 #Number of strokes printed in current row is either the number remaining, or 50, whichever is less
    $><<("|||/|||"[i%4,4]+" ")*(j/5)+ #Send to stdout the correct 4 chars selected from "|||/|||" plus a space, j/5 times (rounded down, which eliminates odd strokes.) 
    ?|*(j%5)+                         #If there are any odd strokes, add them to the output
    $/*(1+i%4/3)                      #followed by a newline (2 for the final line of each row of tallies.)
  }
}

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

— स्तर नदी सेंट
स्रोत
1

पिप , 47 46 बाइट्स

Wa-:yP('|X4.sRA3-_'/M,4)X(YMN[a50])/5.'|Xy%5.n

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

व्याख्या

        Implicit: a is 1st cmdline arg, y is "", s is space, n is newline
W       While loop:
 a-:y   Each iteration, subtract y from a and check if a is still nonzero
        (Since "" is 0 in numeric contexts, this does nothing the first time through)
     P  Print the following:

('|X4.sRA3-_'/M,4)X(YMN[a50])/5.'|Xy%5.n
              M                           Map this function to each number in
               ,4                         range(4):
 '|X4                                      String of four pipe characters
     .s                                    Concatenate a space
       RA                                  Replace the character at index
         3-_                                (3 minus function argument)
            '/                              with forward slash

                                          We now have a list of four strings representing
                                           the rows of a group of 5 tally marks; the
                                           following operations apply to the list
                                           element-wise:

                       [a50]              List of a (number of remaining tallies) and 50
                     MN                   Get the min (number of tallies on this row)
                    Y                     Yank it into y
                   (        )/5           Divide by 5 (number of groups on this row)
(                )X                       String-multiply by that amount
                                   y%5    Number of leftover tallies on this row
                                '|X       String-multiply that many pipes
                               .          Concatenate
                                      .n  Concatenate a newline

परिणामी सूची कुछ इस प्रकार होगी:

["|||/ ||\n" "||/| ||\n" "|/|| ||\n" "/||| ||\n"]

डिफ़ॉल्ट रूप से, Pसूची की सामग्री को एक साथ सम्मिलित करता है और उन्हें एक अनुगामी न्यूलाइन के साथ आउटपुट करता है। इस प्रकार, हम प्राप्त करते हैं

|||/ ||
||/| ||
|/|| ||
/||| ||

साथ दो अनुगामी नई-पंक्तियों (सूची सामग्री से एक और एक से जोड़ा P)। यदि कोई अन्य पंक्ति मुद्रित की जानी है, तो यह बीच में अपेक्षित रिक्त रेखा देता है।

— DLosc
स्रोत
0

05AB1E , 28 बाइट्स

5‰"|||/"¬‚×J4ôTôεε3Ý._}ø»¶«,

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

स्पष्टीकरण:

5‰              # Divmod the (implicit) input-integer by 5
                #  i.e. 111 → [22,1]
  "|||/"        # Push string "|||/"
        ¬       # Push its first character (without popping the string itself): "|"
         ‚      # Pair them together: ["|||/","|"]
          ×     # Repeat it based on the divmod
                #  i.e. [22,1] → ["|||/|||/|||/...|||/|||/|||/","|"]
           J    # Join everything together to a single string
                #  → "|||/|||/|||/...|||/|||/|||/|"
            4ô  # Which is then split into block of size 4
                #  → ["|||/","|||/","|||/",...,"|||/","|||/","|||/","|"]
Tô              # Then split this list into sublists of size 10
                #  → ["|||/","|||/","|||/",...],[...,"|||/"],["|||/","|||/","|"]]
  ε             # For-each over the sublists:
   ε            #  Map over the strings in the sublist:
    3Ý          #   Push list [0,1,2,3]
      ._        #   For each: rotate the string that many times
                #    ("|||/" → ["|||/","||/|","|/||","/|||"])
   }ø           #  After the map: zip/transpose; swapping rows/columns
     »          #  Join each inner list by spaces, and then the strings by newlines
      ¶«        #  Append a newline to each string
        ,       #  And print with trailing newline

¶«,बेशक कुछ संभव बराबर-बाइट्स विकल्प हैं, जैसे ,¶?या ,õ,।

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