หัวข้อสำรอง: นับประโยคที่เรือนจำของคุณติดไว้ที่ผนัง

กำหนดตัวเลขการnส่งออกนับเป็นกลุ่มแบบดั้งเดิม 5 ต่อกลุ่มและ 50 ต่อแถว

ตัวอย่าง

1

|
|
|
|

4

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

5

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

6

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

50

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

51

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

|
|
|
|

256

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

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

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

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

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

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

กฎระเบียบ

• 5 tallies ต่อกลุ่ม, 50 tallies ทั้งหมดต่อแถว
• ครั้งแรกที่ 4 นับเป็นแนวตั้ง 5 นับข้ามนับความสูงอื่น ๆ ทั้งหมด
  • แต่ละสี่คนแรกประกอบด้วย|อักขระแนวตั้ง 4 ตัว
  • แต้มสุดท้ายที่ 5 ครอบคลุมช่วงทั้งหมด 4 ตัวแรกด้วย/ตัวอักษรแนวทแยงมุม
• แต่ละกลุ่มควรคั่นด้วยช่องว่างแต่ละแถวจะเป็นบรรทัดใหม่ที่ว่างเปล่า
• ข้อ จำกัดnคือ: 0 <= n <= 1000(เพื่อความเรียบง่าย)
• ช่องว่างต่อท้ายและบรรทัดใหม่นั้นใช้ได้ก่อนหน้านี้
• นี่คือcode-golf ascii-art , การนับไบต์ต่ำสุดที่ชนะ

ตรวจสอบโดย ~ 4 คนในกล่องทดลอง

ปล. สนุกนิดหน่อยหน่อยจำนวนเฉลี่ยของการนับต่อแถวในคุกคือ 50 ดังนั้น alt หัวข้อ.

ถ่าน , 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

ฟังกี้ , 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)}

ลองออนไลน์!

Haskell , 117 ไบต์

f m|m<1=""|n<-min 50 m=unlines[[last$"| "!!(0^c%5):['/'|r+c%5==4,n-n%5>c]|c<-[1..n]]|r<-[0..3]]++'\n':f(m-50)
(%)=mod

ลองออนไลน์!

เยลลี่ , 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

ตอนนี้นานเกินไปแล้ว

Husk , 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.

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)

JavaScript (ES6), 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')

ส่งคืนสตริงที่มีขึ้นบรรทัดใหม่หนึ่งบรรทัดเมื่อnไม่ใช่หลาย 50 และหนึ่งมีขึ้นบรรทัดใหม่ต่อท้ายหลายเมื่อn เป็นทวีคูณ 50

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
}

ตัวอย่างการทดสอบ

f=
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')

;(I.oninput=_=>O.innerText=f(+I.value))(I.value=76)

<input id=I type=number>
<pre id=O style="border-bottom:1px solid black"></pre>

ไม่ใช่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วิธีนี้ก็สั้นลงเรื่อย ๆ

J , 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.

C (gcc), 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เป็นฟังก์ชั่นการใช้จำนวนเต็ม nonnegative ( x) และการพิมพ์ที่นับจำนวนมากจัดกลุ่มตามที่ระบุเพื่อ stdout

gเป็นฟังก์ชั่นตัวช่วยที่พิมพ์xนับจำนวน 5 โดยไม่ต้องแบ่งบรรทัด

fการโทรg(50)และการลดxจำนวน 50 จนกว่าจะน้อยกว่า 50 จากนั้นโทรg(x)เพื่อพิมพ์จำนวนที่เหลืออยู่ในหนึ่งบรรทัด

sเป็นchar*เช่นนั้นเป็นสตริงsเป็นแถวแรกของบันเดิลs+6เป็นที่สองs+12คือที่สามและs+18ที่สี่และs+24เป็นสตริงที่ว่างเปล่า

g(x)พิมพ์บันเดิลและการลดจำนวน x 5 โดยจนกว่า x จะน้อยกว่า 5 จากนั้นพิมพ์xนับเดี่ยว

Python 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

ลองออนไลน์!

Perl 5 , 103 ไบต์

$a=<>;do{$_=$a<50?"|||/ "x($a/5).'|'x($a%5):"|||/ "x10;for$i(1..4){say;s%\|/%/|%g}say""}while($a-=50)>0

ลองออนไลน์!

Haskell , 134 ไบต์

f#n=unlines$(concat.f.(<$[1..n`div`5]))<$>["|||/ ","||/| ","|/|| ","/||| "]
f n|n>50=id#50++'\n':f(n-50)|1>0=(++['|'<$[1..n`mod`5]])#n

ลองออนไลน์!

asdfghjkl-- ใช่ฉันกำลังทำงานอยู่

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หรือลองออนไลน์

งูหลาม 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)

ใช้งานได้ใน Python 2 และ 3

ลองออนไลน์

Java (OpenJDK 8) , 188 ไบต์

i->{int j=0,l,k;String r="";for(;j<~-i/50+1;j++,r+="\n")for(l=0;l<4;l++,r+="\n")for(k=0;k<(j*50+50>i?i-j*50:50);k++)r+=k%5>3?" ":k%5==3-l?"/":"|";return r.replaceAll("/(?=(\\|*\n))","|");}

ลองออนไลน์!

Ruby , 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.)
  }
}

ลองออนไลน์!

พิพ , 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 concatenates เนื้อหาของรายการร่วมกันและเอาท์พุทพวกเขาด้วยขึ้นบรรทัดใหม่ต่อท้าย ดังนั้นเราจึงได้รับ

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

ด้วยการขึ้นบรรทัดใหม่ต่อท้ายสองบรรทัด (หนึ่งรายการจากเนื้อหารายการและอีกหนึ่งบรรทัดที่เพิ่มโดยP) หากมีอีกแถวที่จะพิมพ์สิ่งนี้จะให้บรรทัดว่างที่จำเป็นในระหว่างนั้น

Befunge ขนาด125 105 ไบต์

$&:!#@_:::"2"v>*\5%4\`+1g1-,1+:14g\`#v_55+,$:#v_55+,
!}0:+*`"2"\-\<^!-g01%5\!`g41+5*5/5:::<0p01:-1<<<4-p4

ลองออนไลน์!

Canvas ขนาด 30 ไบต์

Ｈ╷‾#％╵¹‾#÷Ｕ╷５×¹５％？４|＊］；４－；４／｝╋

ลองที่นี่!

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

¶«,แน่นอนมีไม่กี่ที่เป็นไปได้เท่ากับไบต์ทางเลือกเช่นหรือ,¶?,õ,

Stax , 24 ไบต์

⌐å9☼,▄█┌`╕G╛ï╞▬Gpƒ\╜ª_N╬

เรียกใช้และแก้ไขข้อบกพร่อง

C (gcc) , 107 106 ไบต์

i,j;f(n){for(;n>50;f(50))n-=50;for(i=5;--i;)for(j=0;putchar(++j+~n?j%5?(j-i)%5|n-j<n%5?'|':47:32:10)%5;);}

ลองออนไลน์!

-1 ต้องขอบคุณแมวป่า