เขียนโปรแกรมหรือฟังก์ชั่นที่ใช้จำนวนเต็มมากกว่า 1 หรือน้อยกว่า -1 นั่นคืออินพุตจะไม่เป็น 0, 1 หรือ -1

หากอินพุตคือ2เอาต์พุตควรเป็น:

|\_/|
|___|

หากอินพุตคือ3เอาต์พุตควรเป็น:

|\_/\_/|
|______|

หากอินพุตคือ4เอาต์พุตควรเป็น:

|\_/\_/\_/|
|_________|

รูปแบบยังคงดำเนินต่อไปในลักษณะที่แน่นอนเช่นเดียวกันสำหรับอินพุตที่ใหญ่ขึ้น ตัวอย่างเช่นถ้าอินพุต10เอาต์พุตควรเป็น:

|\_/\_/\_/\_/\_/\_/\_/\_/\_/|
|___________________________|

หากอินพุตคือ-2เอาต์พุตควรเป็น:

 ____
|    |
|_/\_|

หากอินพุตคือ-3เอาต์พุตควรเป็น:

 _______
|       |
|_/\_/\_|

หากอินพุตคือ-4เอาต์พุตควรเป็น:

 __________
|          |
|_/\_/\_/\_|

รูปแบบยังคงดำเนินต่อไปในลักษณะเดียวกันกับอินพุตที่เล็กลง ตัวอย่างเช่นถ้าอินพุต-10เอาต์พุตควรเป็น:

 ____________________________
|                            |
|_/\_/\_/\_/\_/\_/\_/\_/\_/\_|

เอาต์พุตสามารถพิมพ์หรือส่งคืนเป็นสตริงที่มีบรรทัดใหม่ต่อท้ายเผื่อเลือก มุมบนขวา "ว่าง" ของเอาต์พุตสำหรับอินพุตเชิงลบอาจเป็นช่องว่างหรืออาจว่างเปล่า

รหัสที่สั้นที่สุดในหน่วยไบต์ชนะ

Pyth, 45 ไบต์

jtW!J<Q0.b+.[YN+h*3t.aQJY.>[d.<"\_/"J\_)J" ||

ลองใช้ออนไลน์: การสาธิตหรือชุดทดสอบ

คำอธิบาย:

jtW!J<Q0.b+.[YN+h*3t.aQJY.>[d.<"\_/"J\_)J" ||  implicit: Q = input number
    J<Q0                                       assign Q < 0 to J
                           [           )       create a list with
                            d                    * the string " "
                             .<"\_/"J            * the string "\_/" rotated to 
                                                   the left by J
                                     \_          * the string "_"
                         .>             J      rotate to the right by J
                                         " ||  the string " ||"
        .b                                     binary mapping, N iterates
                                               over list, Y over string:
           .[YN+h*3t.aQJ                         pad Y with N to reach a string
                                                 of length 3*(abs(Q)-1)+1-J
          +             Y                        and append Y
 tW!J                                           remove the first line if Q > 0
j                                               print each on separate line

CJam, 56 50 49 bytes

ri_(z"\_/"*'_@0>{\4>W<_,@*SooNoS}|1$,*]${'|\'|N}/

ลองใช้ออนไลน์ในล่าม CJam

มันทำงานอย่างไร

ri     e# Read an integer from STDIN and push it on the stack.
_(z    e# Push a copy, decrement it and apply absolute value.
       e# For positive n, (n -> n-1) and (-n -> n+1).
"\_/"* e# Repeat the string that many times.
'_     e# Push an underscore.
@0>    e# Check if the original integer is positive.
{      e# If it isn't:
  \    e#   Swap the generated string with the underscore.
  4>W< e#   Discard the string's first 4 and last character.
       e#   This makes the pattern of the bottom row start and end with an
       e#   underscore, truncating it to the correct length in the process.
  _,   e#   Push the length of a copy.
  @*   e#   Repeat the underscore that many times.
  So   e#   Print a space.
  oNo  e#   Print the underscores, then a linefeed.
  S    e#   Push a space.
}|     e#
1$,    e# Retrieve the strings length.
*      e# Repeat the underscore or space that many times.
]$     e# Wrap the two generated strings in an array and sort it.
{      e# For each string:
  '|\  e#   Push a vertical bar and swap the string on top of it.
  '|N  e#   Push a vertical bar and a linefeed.
}/     e#

Pyth, 56 54 ไบต์

ฉันเล่นกอล์ฟ Pyth ทางโทรศัพท์ด้วยล่ามออนไลน์ นั่นเป็นความคิดที่ยอดเยี่ยมโดยสิ้นเชิง

อัปเดตเมื่อวันที่ 2015-10-15:ฉันเขียนสิ่งใหม่ (ยังคงอยู่ในโทรศัพท์ของฉัน lol) และบันทึก 2 ไบต์ซึ่งสามารถทำได้ด้วยต้นฉบับ

J<Q0Ljb"||"jPW!J_WJ[y<>*K+J*3t.aQ"\_/"JKy*K?Jd\_+d*K\_

ลองออนไลน์

Minkolang 0.8 , 100 ไบต์

"|"nd0`u!vbd3*["_"]"|"25*"|"1g["\_/"]"|"(O).
"[d~g1"_"<.)O(" "D*3R~1"_"*52"|"D*3R1dg2"| "*52"|"]"\/_

เพียงแค่สร้างสแต็คแล้วพิมพ์ออกมาทั้งหมดในครั้งเดียว ฉันแน่ใจว่าสิ่งนี้สามารถเล่นกอล์ฟได้ แต่ฉันได้ใช้เวลาไปกับสิ่งนี้แล้ว ...

JavaScript (ES6), 111 98 ไบต์

ค้นพบเทคนิคที่ดีที่สุด! ปรากฎว่าลบ interpolators เหล่านั้นทั้งหมดจากสตริงแม่แบบบันทึกจำนวนมากไบต์ บางทีมันอาจทำให้สั้นลงได้ ไม่ว่าในกรณีใดสตริงเทมเพลต ES6 (และฟังก์ชั่นลูกศร) ยอดเยี่ยม :)

x=>(x>0?`|\\_/A|
|___A|`:` ___A_
|   A |
|_/\\A_|`).replace(/(...)A/g,(_,y)=>y.repeat(x>0?x-1:~x))

Python 2.7, 144 ไบต์

สิ่งนี้ใช้เวลาไบต์มากกว่าที่คาดไว้ นี่คือรหัส

c=int(input())
p,w,n,u=list('| \n_')
a=abs(c)-1
d=3*a
if c>0:
 s=p+"\\_/"*a+p+n+p+u*d+p
else:
 d=d+1
 s=w+u*d+n+p+w*d+p+n+p+"_/\\"*a+u+p
print s

Java, 272 ไบต์

String f(int i) {
String p = i>0?"\\_/":"_/\\_",x = "|"+new String(new char[(i<0?-i:i)-1]).replace("\0",p)+"|",
l=new String(new char[x.length()-2]).replace("\0","_");
return i>0?x+"\n|"+l+"|":" "+l+" \n|"+new String(new char[x.length()-2]).replace("\0"," ")+"|\n"+x;
}

SpecBAS - 167 ไบต์

1 INPUT n: DIM s$="\_/","_/\": LET t$=s$(2-(n>0))*(ABS n-1)+("_"*(n<0)),u$="_"*LEN t$
2 TEXT IIF$(n>0,"|"+t$+"|"#13"|"+u$+"|"," "+u$+#13"|"+" "*LEN t$+"|"#13"|"+t$+"|")

IIF$เป็นIFคำสั่งinline #13เป็นวิธีการฝังบรรทัดใหม่ในสตริง (และไม่จำเป็นต้องมีเครื่องหมาย "+" เสมอหากอยู่ระหว่างสตริง hardcoded)

ตั้งแต่ไม่กี่รุ่นที่ผ่านมา SpecBAS ช่วยให้คุณมีการกำหนดหลายLETคำสั่งเดียวซึ่งช่วยให้บันทึกอักขระบางตัวได้

Python 2.7, 118 ไบต์

n=input()*3-3
a=-n-6
s=' %s_\n| %s|\n|%s_|'%(a*'_',a*' ',a/3*'_/\\')
if n>0:s='|%s|\n|%s|'%(n/3*'\\_/',n*'_')
print s

การลงจาก 120 เป็น 118 นั้นสนุกมาก!

Ruby - 113 ไบต์

ดูเหมือนยาวเกินไป ฉันจะลองเล่นกอล์ฟนี้อีกสักหน่อย

n=gets.to_i;p,h=n.abs-1,?|;n>0 ? (puts h+'\\_/'*p+h,h+'___'*p+h):(k=p*3+1;puts' '+?_*k,h+' '*k+h,'|_'+'/\\_'*p+h)

C #, 185 ไบต์

C # ต่อสู้กับการเล่นซ้ำสตริง

golfed สมบูรณ์:

string S(int n){int m=n>0?n:-n;return string.Format(n>0?"|{0}\n|{1}|":" {1}\n|{2}|\n|_{0}","|".PadLeft(m).Replace(" ",n>0?@"\_/":@"/\_"),"".PadLeft(m=m*3-(n>0?3:2),'_'),"".PadLeft(m));}

เพิ่มการเยื้องและบรรทัดใหม่เพื่อความชัดเจน:

string S(int n){
    int m=n>0?n:-n;
    return string.Format(n>0?"|{0}\n|{1}|":" {1}\n|{2}|\n|_{0}",
        "|".PadLeft(m).Replace(" ",n>0?@"\_/":@"/\_"),
        "".PadLeft(m=m*3-(n>0?3:2),'_'),
        "".PadLeft(m)
    );
}

Powershell - 200 190 186 168 154

ใช้สมการ (4 - (($ n-2) 3)) ถึง (3 $ n-6) พร้อมกับ parens และเซมิโคลอนภายนอก

พบว่า `n มีค่าเท่ากัน[Environment]::NewLineและ$s -f [args]เทียบเท่า[String]::Format:

$n=$args;if($n-gt0){$s="|{1}|{0}|{2}|";$a=$n;$b=$n*3}else{$n*=-1;$s=" {2}{0}|{3}|{0}|_/{1}\_|";$a=$n-2;$b=$c=3*$n-2};$s-f"`n",("\_/"*$a),("_"*$b),(" "*$c)

คำอธิบายยังคงความกระจ่างในวงเล็บ:

$n=$args;

// Basically a way of coming up with a string to format and the 
// necessary counts of repeated characters
if($n-gt0){
  // Placeholder format
  $s="|{1}|{0}|{2}|{3}";
  // Number of repeated "\_/" instances
  $a=$n;
  // Number of repeated "_" instances
  $b=$n*3
} else { 
  $n*=-1;
  $s=" {2}{0}|{3}|{0}|_/{1}\_|";
  $a=($n-2);
  $b=(4+(($n-2)*3));
  // Number of repeated " " instances .. not needed for "positive" saw
  $c=$b;
};
[String]::Format($s,[Environment]::NewLine,"\_/"*$a,"_"*$b," "*$c)